Programowanie w VB w exelu

Witam
Jaki będzie wynik z następującej procedury:

Sub makro()
Dim licznik As integer
Cons liczba=15
For licznik= 1 to 4
Wokrsheets (“arkusz1”)._
Range (2,1). Offset (licznik)-_
Liczba*licznik
Next
End Sub

Trzeba określić wartość komórki A1

Luki9191 napisał(a)

Witam
Jaki będzie wynik z następującej procedury:

Sub makro()
Dim licznik As integer
Cons liczba=15
For licznik= 1 to 4
Wokrsheets (“arkusz1”)._
Range (2,1). Offset (licznik)-_
Liczba*licznik
Next
End Sub

Wynik będzie nijaki, bo VBA tego nieskompiluje. Błąd na błędzie w tym wycinku kodu. Funkcja Offset(x, y) wymaga podania offsetu po wierszu i po kolumnie.