şarta bağlı makroda yardım

[misirkafa]

selam herkese

aşağıdaki kodu yazdığım zaman çalışıyor (kırmızı bölüm hariç olduğunda). satırları gizliyor. ancak ikinci bir görevi yaptıramıyorum. V24 nolu sütuna da bişey yazsın istiyorum şart sağlandığı zaman ancak bu halde olunca donuyor excel.
ikinci bir makro yapmaya çalıştım onun için ayrıca onu da yapsın diye onu da beceremedim .yardımlarınızı rica ediyorum.

Private Sub Worksheet_change(ByVal Target As Range)

a = Range("V23")
If a = 1 Then
Rows("28:144").EntireRow.Hidden = True
Range("V24") = "bu kısım çalışmıyor "

ElseIf a <> 1 Then
Rows("28:144").EntireRow.Hidden = False
End If
End Sub

 

[metehan8001]

Kodunuzun başına ve sonuna Application.EnableEvents ekleyin aksi halde sürekli kodu tetikler

Private Sub Worksheet_change(ByVal Target As Range)
Application.EnableEvents = False
a = Range("V23")
If a = 1 Then
Rows("28:144").EntireRow.Hidden = True
Range("V24") = "bu kısım çalışmıyor "

ElseIf a <> 1 Then
Rows("28:144").EntireRow.Hidden = False
End If
Application.EnableEvents = True
End Sub

 

[misirkafa]

harika bilgi
çok teşekkürler

 

[metehan8001]

harika bilgi
çok teşekkürler

İyi Çalışmalar.