Jak jsem se koukal na ten kod, trochu jsem tomu porozumel a pokusil jsem se si to napsat nejak sam. Problem nastal na radkach typu: Range("BD" + i).Select, kde chci, aby vyber u kazdyho kroku cyklu byl BD0, BD1, BD2, ...
Cely makro:
Sub mojemakro()
krok = 0.001
aktualni = 0
For i = 0 To 10
Range("C94").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = aktualni + krok
Range("C94").Select
Selection.Copy
Range("BD" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M97").Select
Application.CutCopyMode = False
Selection.Copy
Range("BE" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O97").Select
Application.CutCopyMode = False
Selection.Copy
Range("BF" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
citovat