Ajutor programatorilor :)

[Fiestel]

Salutare
Am vazut ca multi de aici sunt programatori asa ca am zis sa incerc si aici.

Trebuie sa fac un buton in excel care sa imi aduca in acelasi sheet date dintr-un alt sheet si alt buton sa imi aduca datele din alt fisier tot excel.

Poate sa ma ajute careva? Am incercat si cu google da mai mult imi prind urechile

PS: nu prea ma pricep la macro-uri si cod VBA

Multumesc

[Cornel001]

cat de urgent iti trebuie ?
cred ca , cu prima te pot ajuta eu, ca am mai facut chestii d-astea. cu a doua cred ca e posibil dar n-am facut practic, tre sa testez.

[Fiestel]

Luni cel tarziu

[ASZ]

$2alutare
Am vazut ca multi de aici sunt programatori asa ca am zis sa incerc si aici.

Trebuie sa fac un buton in excel care sa imi aduca in acelasi sheet date dintr-un alt sheet si alt buton sa imi aduca datele din alt fisier tot excel.

Poate sa ma ajute careva? Am incercat si cu google da mai mult imi prind urechile

PS: nu prea ma pricep la macro-uri si cod VBA

Multumesc

Buton ? sau e vorba sa iti actualizeze o informatie intr-o celula luan date din alt sheet, respectiv din alt fisier ?

[Cornel001]

auleu am si uitat. da-mi un pm luni dimineata la prima ora sa-mi aduci aminte. asta daca mai ai nevoie.

[Fiestel]

Deci pe sheet1 am un buton (click button) care la apasarea lui trebuie sa imi aduca date din sheet2 (sa zicem date cuprinse in 5 linii si 2 coloane).

Datele astea trebuie sa fie afisate in sheet1 sub buton.

[Cornel001]

Daca dai record new macro, faci operatiunile manual, si apoi il opresti si te uiti la codul lui vezi ceva de genu asta:

Sheets("Sheet2").Select
Range("A1:B5").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A4").Select
ActiveSheet.Paste

Am pornit de la premisa ca cele 10 celule (2x5) sunt exact din coltul stanga sus al foii2 , si ca vrei sa le copiezi tot asa pe foaia1, dar cu 4 linii mai jos (incepand cu linia 4) ca sa aiba loc si butonul.

E ok ? Mai ai nevoie si de varianta cu fisier separat ?
daca datele de copiat nu sunt mereu in format 2x5 zi-mi si 'extrapolam'.

[danmatyas]

fratilor, ce limba vorbiti!?

[Fiestel]

Sarumana!

Merge!

Am inlocuit eu range-ul si locatia unde sa fie pus tabelu in sheet1.

Multam inca odata. Daca vrei rasplata zi si se va face!

Da, mai trebuie din pacate sa fac si treaba cu luatu din alt fisier. Acum incerc sa modific eu dar da cu erori. Se pare ca nu folosesc sintaxa corecta.

[Smiley]

incearca asa:


Application.ScreenUpdating = False
Set SourceWB = Workbooks.Open("C:\FolderName\another_file.xls", False, True)
SourceWB.Worksheets(1).Range("A1:A21").Select
..................................copy&paste, ca in exemplul lui Cornel......................
SourceWB.Close False
Set SourceWB = Nothing
Application.ScreenUpdating = True

[Mihai L]

Simplu, uite daca esti pieton, ai mai mult timp de gandire...

[danysg74]

iar daca vrei sa te mai joci in zona Excel/ VBA uite un link cu o gramada de aplicatii utile: http://www.contextures.com/excelfiles.html

[Fiestel]

Asta e ce am scris acolo:

Application.ScreenUpdating = False
Set SourceWB = Workbooks.Open("C:\Documents and Settings\U010405166\Desktop\x\Book2.xls", False, True)
SourceWB = Worksheets(1).Range("A1:A10").Select
Sub Button1_click()
Sheets("Sheet1").Select
Range("A1:A10").Select
Sheets("Sheet1").Select
Range("A5").Select
ActiveSheet.Paste
End Sub
SourceWB.Close False
Set SournceWB = Nothing
Application.ScreenUpdating = True


Beleaua e ca zice Invalid Ouside Procedure ... acu m-a bagat in ceata!!!

[Smiley]

incearca asa:
Sub Button1_click()
Application.ScreenUpdating = False
Set SourceWB = Workbooks.Open("C:\Documents and Settings\U010405166\Desktop\x\Book2.xls", False, True)
SourceWB = Worksheets(1).Range("A1:A10").Select
Sheets("Sheet1").Select
Range("A1:A10").Select
Sheets("Sheet1").Select
Range("A5").Select
ActiveSheet.Paste
SourceWB.Close False
Set SournceWB = Nothing
Application.ScreenUpdating = True
End Sub

[Fiestel]

Run-time error '424'
Object requiered
apoi se ingalbeneste linia SourceWB.Close False

Fisierul Book2.xls e la locu lui si contine date.

[Smiley]

incearca asa:
Sub Button1_click()
Application.ScreenUpdating = False
Set SourceWB = Workbooks.Open("C:\Documents and Settings\U010405166\Desktop\x\Book2.xls", False, True)
SourceWB.Worksheets(1).Range("A1:A10").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A5").Select
ActiveSheet.Paste
SourceWB.Close False
Set SournceWB = Nothing
Application.ScreenUpdating = True
End Sub

[Fiestel]

Asa nu face nimic butonul. Nu mai da eroare dar nici date nu importa.