bravo64
Altın Üye
- Katılım
- 21 Eylül 2005
- Mesajlar
- 184
- Excel Vers. ve Dili
- ofis 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 25-10-2024
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
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