DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
HucreDegistiMakroCalisti
End Sub
Sub HucreDegistiMakroCalisti()
MsgBox "Sayfa1 deki A1 hücresi değişti, bende çalışıp mesaj verdim"
End Sub
Mantığı değişen hücre yada hücrelere göre kurmak gerektiğini anlatmak için örneği verdim.gönderdiğiniz örnek tam istediğim fakat bir problem var.
değiştirlen hücreye ben değer girmiyorum.
Baska bir hücreden formülle değer alıyor.
O zaman sizin örnek çalışmıyor.
Private Sub ComboBox1_Change()
HucreDegistiMakroCalisti
End Sub
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount > 0 Then Exit Sub
ComboBox1.Clear
deg = Array("BİLETLİ", "BİLETSİZ", "AKTARMALI")
For x = LBound(deg) To UBound(deg)
ComboBox1.AddItem deg(x)
Next
End Sub
Rica ederim. İsterseniz nasıl yapıldığını anlatayım, vakit kaybetmeyin.Sayın leemruk,
Çok teşekkür ederim.Bilginize sağlık.Kendi dosyama uygulamaya çalışacağım.Hayırlı geceler diliyorum.
merhabaçok benzer bir durum olduğu için burda sormayı uygun buldum..
A1 değiştiğinde, A1 in değişen her değerinin B1 toplanması mümkünmüdür..
Teşekkürler..
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[b1] = [b1] + [a1]
End Sub