[ my name is bond @ 21.01.2009. 12:29 ] @
Treba mi makro koji će aktivnu prostu excel tabelu od 1 shita u stvari određene ćelije tog aktivnog shita da kopira u određena polja odredišne tabele koja je template i koja se na kraju štampa.Znači neka aktivna tabela copy-paste special-u template pa print template.
(D10 u B1;
D11 u D3;
D12 u D3;
D13 u C3;
D14 u C1;)
Hvala unapred.



[Ovu poruku je menjao my name is bond dana 21.01.2009. u 14:21 GMT+1]
[ momsab @ 21.01.2009. 12:52 ] @
takav makro lepo snimis i po potrebi izmenis
ako zapne negde onda pitas
[ my name is bond @ 21.01.2009. 12:54 ] @
Ali za početnu tabelu uvek uzimam neku drugu dok mi je odredišna uvek ista.
[ momsab @ 21.01.2009. 19:57 ] @
pa? snimis u posebnom xls fajlu koji porkeces kad god ti je potreban makro
makro pokrenes u zeljenom fajlu tako sto ga izaberes iz fajla u kom si ga snimio
[ Manonegra @ 21.01.2009. 22:31 ] @
I nije "shit" nego "sheet"
[ my name is bond @ 22.01.2009. 11:50 ] @
Ovako nešto meni treba samo samo da se umesto - Sheets("belinalog")Select - (hvala @Manonegra na podršci ) treba mi predpostavljam ActiveWorkbook.. Inače belinalog i Stanko su 2 sheeta iste sveske.
Sub Stanko()
'
' Stanko Makro
'

'
Range("C2:D2").Select
Sheets("belinalog").Select
Range("D10").Select
Selection.Copy
Sheets("stanko ").Select
Range("C2:D2").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C3:D3").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C4:D4").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C5:D5").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("A36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C6:D6").Select
ActiveSheet.Paste
Range("D11").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
[ momsab @ 22.01.2009. 13:30 ] @
pre ce biti ActiveWorksheet, ako se uopste zove tako :)
ne znam napamet