Dolu hücre sayısına göre makro çalıştırma.

[zeliha]

Bir excel çalışma kitabında yaz1,yaz2,yaz3,yaz4......yaz30'a kadar devam eden isimlere sahip makrolar mevcut.A sütununda A1 hücresinden başlayarak 1 veri varsa diğer hücreler boş ise yaz1 makrosu çalışsın.A1,A2,A3 ve A4 hücresi doluysa yani 4 veri varsa yaz4 makrosu çalışsın.Anlatabildiğimi umarım.Yardımlarınızı bekliyorum.

 

[zafer]

Merhaba

Private Sub Worksheet_Change(ByVal Target As Range)

b = WorksheetFunction.CountA(Range("a:a"))


Application.Run "yaz" & b
End Sub

ekli dosyada a sütünuna veri girin deneyin