Kısmen Aynı Olan Verinin En Altta Bulunduğu Hücrenin Adresi

[baydeniro]

Merhaba arkadaşlar. Bir verinin kısmen aynı olduğu hücrelerden en altta bulunduğu hücrenin adresi bulunabilir mi ? Örneğin B sütununda Astar ile başlayan muhatelif hücreler var. İçinde astar kelimesi olan hücrelerden en altta olanın adresi nasıl bulunur. Örnek dosya ekte.

Not : Dosyada bulunmak istenen hücrenin adresi B30

 

[hamitcan]

Sub bul()
    veri = InputBox("aranacak veriyi yazın")
    b = WorksheetFunction.Match(veri & "*", [b:b], 1)
    MsgBox Cells(b, "b").Address
End Sub

 

[baydeniro]

Teşekkürler

Sayın hamitcan yine her zamanki gibi harikasınız. Hemen imdada yetiştiniz.

Bu kodu şu şekilde revize etmek molası mı ?
* Inputbox'a yazılacak olen veriyi hücreden okusun, ve sonucu H1 hücresine yazsın.

İlginize çok teşekkürler, işlerinizde başarılar dilerim.

 

[hamitcan]

Sub bul()
    veri = [g1]' olduğunu varsayalım
    b = WorksheetFunction.Match(veri & "*", [b:b], 1)
    [h1]= Cells(b, "b").Address
End Sub

 

[baydeniro]

Teşekkürler

Sayın hamitcan çok çok teşekkürler. Elleriniz, aklınız dert görmesin. İşlerinizde başarılar, bol kazançlar dilerim,

 

[Ali]

Fonksiyonlar başlığına açtığınız için buda fonksiyonlar ile bir çözüm olsun.

 

[baydeniro]

Teşekkürler

Sayın Ali ilginize ve yardımınız için çok teşekkürler.