satır no larını gözükmesi için gerekli makro(halloldu)

[ahmetozbey]

aşağıdaki kullandığım makro borcu olan müşterileri görüntülüyor.görüntülenen yerde o müşterilere ait satır numarasınıda göstermesini istiyorum.

Sub gitalacak()
Sheets("55").Select
Sheets("55").[b5].Select
[b7:l11000].ClearContents
For s = 1 To 1
Satsay = Sheets("1").Cells(65532, 1).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("1").Cells(ara, 12).Value <> 0 Then
c = c + 1
For sut = 1 To 11
Cells(c + 6, sut + 1) = Sheets("" & s).Cells(ara, sut).Value
Next
End If
Next
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Dosyanızı ekleyin üzerinden gidelim daha sağlıklı olur. :arkadas:

 

[ahmetozbey]

başka yöntemle hallettim arkadaşlar teşekkür ederim.

 

[Seyit Tiken]

Böyle bir kod oluşturabildik. İmleç hangi satırda ise o satır No'sunu verir. Bir deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = "=ROW(R[0]C[0])"
[a1].Value = ActiveCell.Value
ActiveCell = ""
End Sub