ARAMA DÖNGÜSÜ OLUŞTURMA

[mavi674]

Selam,
L sütununda isimler var.
K2 hücresine isim yazıp aşağıdaki makroyu çalıştırıyorum ve ilk ismi buluyor.

İstediğim bu makroya döngü yaparak makroyu her çalıştırdığımda bir sonraki ismi bulması ve
sonunda da "BAŞKA İSİM YOK" mesajı ile işlemin sonlanması...
Şimdiden teşekkürlerimi sunuyorum.

Sub isimbul()
    Dim sat As Long
    On Error GoTo atla
    sat = WorksheetFunction.Match([k2], [l:l], 0)
             
    Range("e" & sat).Select
'    Exit Sub

atla:
    MsgBox "BAŞKA İSİM YOK"
   End Sub

 

[muhasebeciyiz]

Dim sonBulunanSatir As Long

Sub isimbul()
Dim sat As Long
Dim isim As String
On Error GoTo atla

If IsEmpty(sonBulunanSatir) Then
sonBulunanSatir = 0
End If

isim = Range("K2").Value
sat = WorksheetFunction.Match(isim, Range("L" & sonBulunanSatir + 1 & ":L" & Rows.Count), 0) + sonBulunanSatir

Range("E" & sat).Select
sonBulunanSatir = sat

Exit Sub

atla:
MsgBox "BAŞKA İSİM YOK"
sonBulunanSatir = 0
End Sub

Lütfen deneyiniz

 

[mavi674]

Hocam
mükemmel olmuş, tam istediğim gibi.
Çok Teşekkürler, iyi ki varsınız...

 

[mavi674]

Hocam bir ekleme daha çağrışım yaptı, ama olmasa da olur cinsten.
I6 hücresine 1 isim, 2 isim ve bu gibi,
Ben toplam bulunan isim rakamını I5 hücresine yazdırdım.
Örneğin,
I5 hücresi 18 isim var mesajını veriyor.
Her arama yapılınca da I6 hücresine bulunan isim döngüsünü yazsa daha kontrolü güzel olacak.
Teşekkürler...