Soru Hücreye elle 1 yazınca kod çalışıyor,formülle 1 yazdırınca kod çalışmıyor

[MESUT K]

Herkese Merhaba

Aşağıdaki sorunla ilgili işin içinden çıkamadım.Bilen üstadlarımdan yardım istiyorum.


liste_3 adında açılır listem var. V132 hücresine elle 1 yazınca liste_3 gizleniyor fakat ;

V132 hücresine bu şekilde bir formül yazmak istiyorum =IF(T132=1;1;"") .Bu sefer V132 hücresine 1 değeri oluşuyor ama liste_3 gizlenmiyor

kod:
If Intersect(Target, [V132]) Is Nothing Then GoTo 10

If Worksheets("VERİ").Range("V132") = 1 Then

Worksheets("VERİ").Shapes("liste_3").Visible = False

ElseIf Worksheets("VERİ").Range("V132") <> 1 Then

Worksheets("VERİ").Shapes("liste_3").Visible = True

End If

 

[AdemCan]

Merhaba, T132 hücresine elle 1 yazıyorsanız. Kod içindeki V132 leri T132 olarak değiştirdiğiniz zaman kod çalışır.

 

[MESUT K]

Merhaba, T132 hücresine elle 1 yazıyorsanız. Kod içindeki V132 iler T132 olarak değiştirdiğiniz zaman kod çalışır.

En Başta dediğiniz şekilde denemiştim fakat yinede olmuyor.Elle yazılmış gibi algılamıyor

 

[AdemCan]

Örnek dosya paylaşır mısınız?

 

[MESUT K]

Örnek dosya paylaşır mısınız?

ara.xlsm dosyasını indir - download

ara.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[AdemCan]

V132 leri T132 olarak değiştirdim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [T132]) Is Nothing Then Exit Sub

If Worksheets("VERİ").Range("T132") = 1 Then

Worksheets("VERİ").Shapes("liste_3").Visible = False

ElseIf Worksheets("VERİ").Range("T132") <> 1 Then

Worksheets("VERİ").Shapes("liste_3").Visible = True

End If
End Sub

Spoyler: Sonuç

 

[MESUT K]

sayı elle yazılınca normalde kod çalışıyor fakat formülle yazdırınca çalışmıyor.Orjinal dosyama uyarlayabilmem için formüllü olanı gerekli

 

[AdemCan]

Eksik bilgi paylaştığınız için konu uzuyor. T132 hücresinde formül mü var?

Orjinal dosyanızın örneğini paylaşıp yapmak istediğinizi anlatır mısınız?

 

[Korhan Ayhan]

Alternatif...

Eski kodun tümünü silip aşağıdaki kodu uygulayınız.

Private Sub Worksheet_Calculate()
    Worksheets("VERİ").Shapes("liste_3").Visible = Not Worksheets("VERİ").Range("V132") = 1
End Sub

 

[MESUT K]

Alternatif...

Eski kodun tümünü silip aşağıdaki kodu uygulayınız.

Private Sub Worksheet_Calculate()
    Worksheets("VERİ").Shapes("liste_3").Visible = Not Worksheets("VERİ").Range("V132") = 1
End Sub

Süper ,kod çalıştı.Çok teşekkürler