Aranılan Değerin Bulunduğu Sütunun Adını Getirme

[sahir73]

Merhaba arkadaşlar yardımınıza başvurduğum konu şu listemde 24 sutun var bu sutunun isimleri ürünlerin bulunduğu rafları temsil etmektedir. Ben ürün kodunu inputa girdiğimde bana ürünün bulunduğu sutünun ismini getirecek vba kodları lazım yapabildiğim sadece ürünün hangi satırda olduğunu seçebilmek oldu. Bu yüzden yardımlarınızı rica ediyorum. dosyam ektedir

 

[hamitcan]

Sub SutunBul()
    bul = InputBox("Sütun Bul")
    Set x = Cells.Find(bul)
    MsgBox x.Column
End Sub

 

[sahir73]

Sub SutunBul()
    bul = InputBox("Sütun Bul")
    Set x = Cells.Find(bul)
    MsgBox x.Column
End Sub

Teşekkür ederim artık devamını getirebilirim sağolun.

 

[sahir73]

Sub SutunBul()
    bul = InputBox("Sütun Bul")
    Set x = Cells.Find(bul)
    MsgBox x.Column
End Sub

Hamit bey eğer girilen değer tabloda yoksa VBA hata veriyor son olarak sizden find sonucu bir değer yoksa girilen değerin bulunmadığını nasıl bildirim ( bunu yapabilirim) ama VBA hatasını nasıl düzeltebiliriz.

 

[hamitcan]

Sub SutunBul()
    bul = InputBox("Sütun Bul")
    Set x = Cells.Find(bul)
    If Not x Is Nothing Then
    MsgBox x.Column
    Else
    MsgBox "Aranan değer bulunamadı"
    End If
End Sub