Hücre Değeri Değişince Makro Çalışsın

[alpay1]

Merhaba Arkadaşlar,
Formda bu konuyla ilgili bir örnek vardır diye arama yaptım ama bulamadım.
Ben "Y1" Hücresin de "K" Sütununda listelediğim benzersiz kayıtları saydırıyorum.Eğer listeye yeni bir isim girersem bu sayı artacak ve makro çalışarak Rapor sayfasındaki listeyi yenileyecek.
Bana "Y1" Hücresi artınca yada değişince makroyu çalıştıracak bir Kod gerekiyor.
Yardımcı olursanız sevinirim.
Teşekkürler.

 

[Levent Menteşoğlu]

Y1 hücresindeki saydırma işlemini nasıl yapıyorsunuz,yaptığınız kodu veya formülü yazarmısınız?

 

[Levent Menteşoğlu]

Aşağıdaki kodu değeri değişen Y1 hücresinin bulunduğu sayfanın kod sayfasına kopyalayın. Burada calistir yazan yere çalışmasını istediğiniz makronun adını yazın.
[vb:1:f0877a327b]Dim eski As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If [y1] <> eski Then Call calistir
eski = [y1].Value
End Sub[/vb:1:f0877a327b]

 

[alpay1]

Sayın leventm bey,
Yazdığınız kodu denedim ve çalıştı.Çok teşekkür ederim.

 

[alpay1]

Levent Bey kod çalıştı demiştim ama Y1 hücresi dışında da herhangi bir hücrede değer değişirse kod yine çalışıyor.
Y1 Hücresindeki formül "=BAÐ_DEÐ_DOLU_SAY(Q2:Q6500)"
Sorun ne olabilir acaba?

 

[Levent Menteşoğlu]

Kodu aşağıdaki şekilde deneyin.

[vb:1:7c1bab5329]Dim eski As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
say = WorksheetFunction.CountA([q2:q65532])
If say <> eski Then Call a
eski = say
End Sub
[/vb:1:7c1bab5329]

 

[alpay1]

Levent Bey,
Yardımınız için teşekkürler.

 

[muratemirik]

ya arkadaşlar benimde bu hücre değeri değişince çalışan makro ile ilgili yardıma ihtiyacım var.
ben hücreye bizzat giderek değerini değiştirmiyorum.listbox ın bağlı olduğu bir hücre var ve ben listboxta değişiklik yaptığımda hücrenin değeri değişiyor ama bu markoyu çalıştırmıyor.
veya bir formül yazılı hücre değeri değiştiğinde makro çalışsn istiyorum. ikiside işimi görür.

 

[Korhan Ayhan]

Merhaba,

Yardımcı bir hücre kullanarak sayfa olaylarını kullanabilirsiniz.

Ekteki örnek dosyayı inceleyiniz.