Döngü hangi satırda işlem yapıyor

[Grimm80]

Merhabalar

Örnek olarak aşağıdaki gibi bir kodum var fakat hangi satırda işlem yaptığını ögrenmem için sorguya hangi komutu eklemem gerekir.

(Örnek 10. satıra işlem yaparken ya satırı tek tek aşağıda alsın yada imleç ile gelsin yada sayfada bir yerde işlem yaptığı satırı yazsın. 11. satırda 12 satırda gibi )

Tşk.ler


Sub ForNext()
Dim i As Integer
For i = 2 To 5000
Cells(i, 1) = i
Next i
End Sub

 

[YUSUF44]

Verdiğiniz kodlar zaten o an çalışmakta olan satıra satır numarasını yazıyor. Başka bir yerde örneğin A1 hücresinde bunu görmek istiyorsanız:

Sub ForNext()
Dim i As Integer
For i = 2 To 5000
[a1] = i & ". satırda"
Cells(i, 1) = i
Next i
End Sub

Şeklinde kullanabilirsiniz.

 

[Grimm80]

Çok teşekkür ederim