naudok makro komanda

copy -> paste, veliau raides ir skaicius pasikeisk :)

Dim i As Integer, j As Integer
Sub abc()
j = 60
For i = 15 To 200
Range("G" & i).Formula = "=B" & j
j = j + 15
Next i
End Sub


"Eex"  wrote in message news:in44h8$5m4$1@trimpas.omnitel.net...

nu afiget, niekaip nesurandu kaip padaryti paprasta dalyka: braukiant zemyn,
kad imtu reiksmes ne viena paskui kita, o persokdamas per fiksuota celiu
skaiciu.
net google nezinau kaip paklaust :)