Satır numarasını Görmek

[Grimm80]

Merhabalar


Aşağdaki gibi kodum var. 1000 satır listeye var makro çalışırken hangi satırda işlem yaptığını görmek için kod nasıl bir eklenti yapmak gerekiyor.
6 . satır da iken 6 satırda 7 satırda iken 7 satırda diye hücre numarasını görmek istiyorum .

Yardımlarınız için tşk. ederim


Sub Makro2()
Dim lcText As String
Dim i As Integer
Dim j As Integer
Dim satir As Integer
Dim saticisayisi As Integer

For k = 1 To Range("Su").Rows.Count
If Range("Su").Value2(k, 1) <> "" Then
Dim ie As SHDocVw.InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
ie.Silent = False
ie.Visible = True


satir = Range("Sera").Row
ie.navigate "http://www.abc.com/" & Range("Su").Value2(k, 1)
Application.Wait Now + TimeSerial(0, 0, 5)

 

[askm]

Eğer mesaj ile görmek istiyorsanız.
Msgbox k & " . satırda bulunuyorsunuz."
Eğer hücreye yazsın istiyorsanız.
Cells(1,1)=k & ". satırdasınız..."

 

[Seyit Tiken]

MsgBox ActiveCell.Address(Row, 0) & ".Satırındasınız"

satir = ActiveCell.Row
MsgBox (satir & ".Satırdasınız"), vbInformation, _
satir & ".Satırdasınız"

 

[Grimm80]

Çok teşekkür ederim ilginize Sayın askm ve Seyit Tiken