U kodu stavljena naredba da kopira u sheet1, A1 u rang B3:B34, sta treba dodati da istu naredbu kopira u sheet2,sheet3,sheet4 i ostale, znaci onaj next? Sta kod njega staviti i pre njega?
Ako je u pitanju unos istih podataka na više sheets tada uradi slijedeće
Pritisni CTRL i mišem selektiraj sve Sheets da ih grupiraš. Unesi podatke u određeni range i i potvrdi sa enter.
Izvrši ungroup grupiranih sheets. Sada imaš podatke na svakom sheetu
Hvala Ivek33 za ovo nisam znao, ali u rangu nisu istipodaci, tj u svakom od sheet-a su u A1 razliciti podaci a A1 kopiram u rasponu B9:B30, nasao sam nesto mozda moze bolje i jednostavnije
Sub Macro1()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Select
Range("A1").Select
Selection.Copy
Range("C7:C44").Select
ActiveSheet.Paste
Next i
End Sub
ovaj i mi je bio problem.
Sad imam tu pitanje, da li je moguce da ova formula ide na svaki parni sheet, odnosno neparni, znaci na svaki drugi sheet, ili prvih 10 a ne poslednjih 10?
Koliko sam razumeo treba u trecem redu da zamenim umesto 1 da napisem 2?
Ako je tako, probao sam i tada krece od sheet2 a ne neparne ili parne sheet-ove.