Soru Detaylı arama

[Sezerkaratas]

Merhabalar find komutu ile arama yapabiliyoruz .
Ama find komutuyla aynı değeri ikinci kere arayınca hep üsteki değeri bulup buldum diyor bu sorunu nasıl çözerim . Örneğin bir liste düşünün
Kemal
Nazan
İrem
Sezer
Mert
Kemal.
Find komutuyla altaki 2. Kemale ulaşmak için ne yapmam lazım.

 

[Sezerkaratas]

Bide taramaya listenin altından başlasın istiyorum .
Mesela ben kemali aratım buldu offset(0, 5) ine baktı eğer aktif yazıyorsa teslim edildi yazıcak . Sonra diğer ismi aramaya geçicek , ama eğer offsetinde teslim edildi yazıyorsa , alten yukarıya doğru aramaya devam edicek bulabilirse offseti teslim edildi yapıcak bulamazsa başka ismi aramaya başlıyacak

 

[PLİNT]

Merhaba
Aşağıdaki kodları denermisiniz?

Sub ara()
Dim sonsat As Long, c As Range, aranan As String
aranan = "Kemal"
sonsat = Rows.Count
Set c = Cells(Rows.Count, 1)
Do Until c Is Nothing
Set c = Range("a1:a" & sonsat).Find(aranan, , , xlWhole, , xlPrevious)
If Not c Is Nothing Then
If c.Offset(0, 5) = "Aktif" Then
c.Offset(0, 5) = "Teslim edildi"
Exit Do
Else
sonsat = c.Row - 1
If sonsat = 0 Then Exit Do
End If
End If
Loop
End Sub