Zdravo ivanpro,
Primeni sledeci makro (preporucujem na kopiji orginalnog fajla):
Code:
Sub CopySvaki4()
'
' CopySvaki4
For i = 1 To 100 Step 3
Sheets("Sheet1").Select
Rows(i).Select
Selection.Copy
Sheets("Sheet2").Select
Rows(i).Select
ActiveSheet.Paste
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:�lse, Transpose:�lse
Sheets("Sheet1").Select
Next i
End Sub
Naravno, umesto "Sheet1" i "Sheet2" stavi odgovarajuca imena Sheet-ova
(ako si ih preimenovao). Za pocetnu vrednost "i" stavi broj reda od
koga hoces da krene kopiranje (ako ne pocinje od prvog reda), a za
vrednost iza "To" stavi broj poslednjeg reda u polaznoj tabeli. Ako
korak iza Step nije pravi, stavi odgovarajuci (u mom primeru kopirace
se 1, 4, 7...
Red u kodu iza apostrofa aktiviraj (brisanjem apostrofa) ako zelis da
kopiras samo vrednosti bez formula i formatiranja. Tada red iznad
deaktiviraj dodavanjem apostrofa ispred.
Sve najbolje.
Ratko.