Hücre değerine göre msgbox bilgisi

[bravo64]

Merhaba arkadaşlar,
Aşağıda yazdığım koda göre,64 adet sayfada cari hesap kartları var .her cari kartın,mamul isimleri yazan satırlarına mamul ismini yazdığımda,stok miktarını msgbox yardımıyla görüyorum.Sorun şu;bu makroyu mamul ismini girdiğimde otomatik olarak çalıştırsın ve msgbox değeri göstersin..modül sayfasına aşağıdaki şekilde yazdım ama olmadı.Ancak butonla çalışıyor..Nasıl yapabilirim acaba?
Teşekkür ederim..
Sub auto_open()
a = ActiveCell
alan = Sheets("liste").Range("h2:by108")
If a > 0 Then
değer = WorksheetFunction.VLookup(a, alan, 70, 0)
MsgBox değer & Chr(13) & "Adet var"
End If
End Sub

 

[bravo64]

Sıra çok mu uzun?

 

[Levent Menteşoğlu]

Bu durumda kodun hücreye değiştiğinde çalışmasını sağlamanız gerekir, bunun yoluda yazacağınız kodu sayfanın veya kitabın kod sayfasına yazmaktır. Aşağıdaki kodu kitabın kod sayfasına (thisworkbook) kopyalayarak deneyin. Fakat kodun ilk satırındaki 1 (bir) rakamını mamul ismini yazacağınız sütun nosu ile değiştirin. Bu kodun sadece o sütunda çalışmasını sağlamak için alınmış bir tedbirdir.

[vb:1:1e0dfb4cbf]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
a = Target
alan = Sheets("liste").Range("h2:by108")
If a > 0 Then
değer = WorksheetFunction.VLookup(a, alan, 70, 0)
MsgBox değer & Chr(13) & "Adet var"
End If
End Sub[/vb:1:1e0dfb4cbf]

 

[bravo64]

Çok teşekkür ederim Leventm.