Hücredeki değere göre makro çalıştırma

[tactless]

Merhaba siteden baktığım kadarıyla yapmaya çalıştım ama olmadı. Neyi hatalı yapıyorum? Amacım AB5 hücresinde formülle bir rakam dönüyor. 15 olduğunda bazı hücrelere gizlenecek bazıları ise görünecek. Sayg.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("ab5") = 15 Then
Rows("22:25").Select
Selection.EntireRow.Hidden = True
Rows("26:26").Select
Selection.EntireRow.Hidden = False
Range("C3").Select
Else
Rows("22:25").Select
Selection.EntireRow.Hidden = False
Rows("26:26").Select
Selection.EntireRow.Hidden = True
Range("C3").Select
End If
Application.ScreenUpdating = True
End Sub

 

[Asri]

Bu kodu sayfa adının üzerinde sağ tuş yapıp, "Kodu Görüntüle" dedikten sonra çıkan boş ekrana yapıştırdınız mı?

Module e yapıştırıyorsanız çalışmaz.

Kodun çalışmasında sorun görülmedi. Formüllü hücre değeri değiştiğinde gizleme ve göstermeleri yapıyor.

 

[tactless]

Üstad sayfa üzerinde de denedim çalışmadı. Office 2013 kullanıyorum fark eder mi? Sayg.

 

[Asri]

Üstad sayfa üzerinde de denedim çalışmadı. Office 2013 kullanıyorum fark eder mi? Sayg.

Bilgi seviyenizi bilemediğim için açıklamam gerekti.

IF in olduğu satıra break point koyun. ( satırın başında gri kolonu tıklayın satır kahverengi ye boyanacak)

hücrede değişiklik yapın. o anda kod penceresnin gelmesi gerekiyor. o satırı sarıya boyar. Bu aşamada F8 ile adım adım çalıştırıp kontrol edin.

 

[tactless]

Sorunu buldum sanırım. Sayfamda Auto_open() var bu yüzden çakışıyor galiba başka sayfada kodu denedim çalıştı. Bu çakışma durumunu nasıl engelleyebilirim? Şimdi de bu sorun çıktı.

 

[Asri]

Sorunu buldum sanırım. Sayfamda Auto_open() var bu yüzden çakışıyor galiba başka sayfada kodu denedim çalıştı. Bu çakışma durumunu nasıl engelleyebilirim? Şimdi de bu sorun çıktı.

Auto_open() ı VBA bölümünde BuÇalışmaKitabı yazan yerin kod bölümüne taşıyın.

 

[tactless]

Dediğiniz gibi yaptım hata komple auto_open 'ı sildim. Nafile başka yerde çalışıyor. Mevcut kitapta çalışmıyor. Ne engeller ki çalışmasını başka makrolar var ama alakasız.

 

[Asri]

Dediğiniz gibi yaptım hata komple auto_open 'ı sildim. Nafile başka yerde çalışıyor. Mevcut kitapta çalışmıyor. Ne engeller ki çalışmasını başka makrolar var ama alakasız.

Bu durumda dosyanızı örnek veriler ile dosya.tc yada dosya.co ya yükleyip linkini paylaşın.

 

[tactless]

http://dosya.co/gxx7h2o7tlj2/Kitap1.xlsm.html

Örnek dosyayı ekledim. Çok uğraştırdım sizide, çok teşekkür ederim.

 

[tactless]

Cevabı buldum.

Private Sub Worksheet_Calculate() şeklinde yapmam gerekiyormuş. Diğer türlü sayfadaki değişikliği algılamıyordu.

Yardımınız için yinede teşekkürler. Sayg.