Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. www.neurohope.ro |
Excel macro
Last Updated: Sep 06 2007 15:55, Started by
Domnuics
, Aug 24 2007 10:57
·
0
#1
Posted 24 August 2007 - 10:57
Salutare
Trebuie sa fac si eu in excel un buton care sa imi aduca niste date din alt fisier excel. Cum as putea sa fac si eu asa ceva? Butonul e simplu de facut, dar la macro-uri e gata pt mine. Nu mai stiu ce sa scriu. Ma poate ajuta cineva va rog cu cateva linii de cod? Multumesc |
#2
Posted 28 August 2007 - 07:29
Domnuics, on Aug 24 2007, 11:57, said: Salutare Trebuie sa fac si eu in excel un buton care sa imi aduca niste date din alt fisier excel. Cum as putea sa fac si eu asa ceva? Butonul e simplu de facut, dar la macro-uri e gata pt mine. Nu mai stiu ce sa scriu. Ma poate ajuta cineva va rog cu cateva linii de cod? Multumesc Insert.JPG 185.39K 182 downloads |
#3
Posted 28 August 2007 - 10:48
Domnuics, on Aug 24 2007, 11:57, said: Salutare Trebuie sa fac si eu in excel un buton care sa imi aduca niste date din alt fisier excel. Cum as putea sa fac si eu asa ceva? Butonul e simplu de facut, dar la macro-uri e gata pt mine. Nu mai stiu ce sa scriu. Ma poate ajuta cineva va rog cu cateva linii de cod? Multumesc Salut Raspunsul e destul de simplu. Asa cum ai spus: 1) click pe buton deschide alt fisier; 2) il faci active; 3) selectezi un range din el si il copiezi unde vrei tu in excel-ul tau 4) inchizi fisierul. Acum ai in clipboard ceea ce doreai... Daca nu te descurci cu scrierea codului pentru pasii de mai sus: Deschidere fisier: Workbooks.Open Filename:="C:\Folder\Fisierul_cu_datele_care_te_intereseaza.xls" Inchidere fisier: Workbooks("C:\Folder\Fisierul_cu_datele_care_te_intereseaza.xls").Close |
#4
Posted 28 August 2007 - 11:07
Sorry ca ma "bag" si eu. E cineva interesat de o pozitie de C#+Excel si VBA+Excel in Timisoara?
|
#5
Posted 05 September 2007 - 18:48
am si eu o problema asemanatoare
am 2 fisiere A si B si vreau ca in fisierul A sa introduc intr-un sheet un range de ex A1:L81 din fisierul B dintr-un sheet as putea sa fac asta printr-un buton care sa fie in A si care sa aiba atasat un cod in visual basic? o procedura in genu: Sub test() Workbooks.Open Filename:="C:\test\B.xls" Sheets("sheet1").Select Range("A1:L81").Select End Sub ceva in genu asta...ma poate ajuta cineva? PS:in Excel 2007 stie undeva unde gasesc control toolbox... |
#6
Posted 06 September 2007 - 13:56
bujuu, on Sep 5 2007, 19:48, said: am si eu o problema asemanatoare am 2 fisiere A si B si vreau ca in fisierul A sa introduc intr-un sheet un range de ex A1:L81 din fisierul B dintr-un sheet as putea sa fac asta printr-un buton care sa fie in A si care sa aiba atasat un cod in visual basic? o procedura in genu: Sub test() Workbooks.Open Filename:="C:\test\B.xls" Sheets("sheet1").Select Range("A1:L81").Select End Sub ceva in genu asta...ma poate ajuta cineva? PS:in Excel 2007 stie undeva unde gasesc control toolbox... de ce te complici cu cod daca poti face pur si simplu link intre sheet-uri si in momentul deschiderii se actualizeaza automat cu valorile din al doile afisier ? |
#7
Posted 06 September 2007 - 13:58
am reusit sa mai lucrez la procedura insa nu reuseste sa imi copieze in fisier decat daca dau paste sau un enter in foaia unde vreau sa copieze...teoretic am reusit sa mi se copieze in clipboard ceea ce vroiam insa cum il aduc automat in primul fisier?
aceasta este procedura... Sub test() Workbooks.Open Filename:="C:\test\test2.xls" Sheets("RaporturiFundamentaleActiuni").Visible = True Sheets("RaporturiFundamentaleActiuni").Select Range(" A1:L81").Select Range(" A1:L81").Copy Workbooks.Open Filename:="C:\test\test1.xls" ActiveWorkbook.Activate Sheets("test").Select End Sub |
#8
Posted 06 September 2007 - 14:12
#9
Posted 06 September 2007 - 14:33
#10
Posted 06 September 2007 - 14:44
bujuu, on Sep 6 2007, 14:58, said: ... ia vezi asa, este cod pentru un buton ...deschide test2, copiaza, inchide, deschide test1, face paste, salveaza si inchide. Quote Private Sub CommandButton1_Click() Application.DisplayAlerts = False Application.ScreenUpdating = False Workbooks.Open Filename:="C:\test\test2.xls" Sheets("RaporturiFundamentaleActiuni").Range("A1:L81").Copy ActiveWorkbook.Close Workbooks.Open Filename:="C:\test\test1.xls" Sheets("test").Range("A1").Select ActiveSheet.Paste ActiveWorkbook.Save ActiveWorkbook.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub am mai scos parti din ceea ce ai scris tu care nu-s in mod necesare in mod deosebit Edited by endless, 06 September 2007 - 14:47. |
|
#11
Posted 06 September 2007 - 14:55
endless, on Sep 6 2007, 14:56, said: de ce te complici cu cod daca poti face pur si simplu link intre sheet-uri si in momentul deschiderii se actualizeaza automat cu valorile din al doile afisier ? |
#12
Posted 06 September 2007 - 15:13
endless, on Sep 6 2007, 15:44, said: ia vezi asa, este cod pentru un buton ...deschide test2, copiaza, inchide, deschide test1, face paste, salveaza si inchide. am mai scos parti din ceea ce ai scris tu care nu-s in mod necesare in mod deosebit incerc sa imi dau seama de ce... |
#13
Posted 06 September 2007 - 15:18
bujuu, on Sep 6 2007, 15:55, said: pai am facut un hiperlink in fisierul A pe fisierul B insa daca dau click pe link mi se deschide fisierul B... am spus link, nu hyperlink si este ceva de forma (in test 2 catre test1) : ='C:\Test\[test1.xls]RaporturiFundamentaleActiuni'!$A$1 in celula A1, chestie care o repeti in fiecare celula din aria respectiva, fiecare celula catre corespondenta ei. Oricum, vezi ca ti-am facut cod mai sus, pe care il poti pune intr-un workbook oarecare si care la rulare, copiaza cum vrei tu datele. Poate nu-ti face paste pentru ca respectivul cod este de fapt in al treilea fisier, in timp ce initial, cele 2 sunt inchise inainte de a plimba datele intre ele. Edited by endless, 06 September 2007 - 15:19. |
#14
Posted 06 September 2007 - 15:55
endless, on Sep 6 2007, 16:18, said: am spus link, nu hyperlink si este ceva de forma (in test 2 catre test1) : ='C:\Test\[test1.xls]RaporturiFundamentaleActiuni'!$A$1 in celula A1, chestie care o repeti in fiecare celula din aria respectiva, fiecare celula catre corespondenta ei. Oricum, vezi ca ti-am facut cod mai sus, pe care il poti pune intr-un workbook oarecare si care la rulare, copiaza cum vrei tu datele. Poate nu-ti face paste pentru ca respectivul cod este de fapt in al treilea fisier, in timp ce initial, cele 2 sunt inchise inainte de a plimba datele intre ele. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users