Adında "Ahmet" olanların satır numarasını bulma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli dosyadaki makro adı Ahmet ile başlayanların satır numaralarını yazıyor. Ahmet kelimesini içeren hücrelerin satır numarasını bulmak istiyorum. Nasıl bir ek yapmalıyım.
Saygılarımla

 

[Korhan Ayhan]

İçerir (Like) mantığı ile arama yapmalısınız.

Option Compare Text

Sub Bul_Yaz()
    Range("F2:F10").Clear
  
    Range("F1").Select

    ss = Cells(Rows.Count, "A").End(3).Row + 1
        For i = 1 To ss
            bs = Cells(Rows.Count, "F").End(3).Row + 1
            aranan = Cells(1, 6)
                If Cells(i, 4) Like "*" & aranan & "*" Then Cells(bs, 6) = i
        Next i
End Sub

Bu da başka bir alternatif;

Sub Bul_Yaz()
    Range("F2:F10").Clear
   
    Range("F1").Select

    ss = Cells(Rows.Count, "A").End(3).Row + 1
        For i = 1 To ss
            bs = Cells(Rows.Count, "F").End(3).Row + 1
            aranan = Cells(1, 6)
                If InStr(1, Cells(i, 4), aranan, vbTextCompare) > 0 Then Cells(bs, 6) = i
        Next i
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlginize çok teşekkür ederim.
Saygılarımla

 

[Korhan Ayhan]

Like komutu için harf duyarlılığını ortadan kaldırmak için modülün en tepesine Option Compare Text ifadesini eklemeniz gerekir.

Bu komut daha önceki denemelerimde sorunlar çıkarmıştı. Eğer yine sorun çıkarırsa kodu aşağıdaki gibi düzenlemek yeterli olacaktır.

Sub Bul_Yaz()
    Range("F2:F10").Clear
  
    Range("F1").Select

    ss = Cells(Rows.Count, "A").End(3).Row + 1
        For i = 1 To ss
            bs = Cells(Rows.Count, "F").End(3).Row + 1
            aranan = Ucase(Replace(Replace(Cells(1, 6), "ı", "I"), "i", "İ"))
                If Ucase(Replace(Replace(Cells(i, 4), "ı", "I"), "i", "İ")) Like "*" & aranan & "*" Then Cells(bs, 6) = i
        Next i
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
Duyarlılığınıza çok teşekkür ederim.
Bu arada merak ediyorum. Acaba aynı işlemler Google Drive için nasıldır?
Saygılarımla

 

[Korhan Ayhan]

O konunun üstadları @Haluk ve @veyselemre beylerdir.