Makro kodlama hk.

[recepkull]

Arkadaşlar L4 ve U8 hücrelerine tıklandığında userformun açılması için aşağıdaki kodu kullanıyorum. Ama sayfa içerisinde herhangi bir hücreye tıkladığımda bu kod hata vermeye başladı. Sorunu çözemedim yardım ederseniz çok sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
    Application.Calculate
End If
 If Not Intersect(Target, Range("L4,U8")) Is Nothing Then
        UserForm1.Show 0
    End If
End Sub

 

[metin_0606]

Arkadaşlar L4 ve U8 hücrelerine tıklandığında userformun açılması için aşağıdaki kodu kullanıyorum. Ama sayfa içerisinde herhangi bir hücreye tıkladığımda bu kod hata vermeye başladı. Sorunu çözemedim yardım ederseniz çok sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
    Application.Calculate
End If
If Not Intersect(Target, Range("L4,U8")) Is Nothing Then
        UserForm1.Show 0
    End If
End Sub

Ekli dosyayı görüntüle 218055

on error resume next yazın düzelir

 

[metin_0606]

on error resume next yazın düzelir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = False Then
    Application.Calculate
End If
 If Not Intersect(Target, Range("L4,U8")) Is Nothing Then
        UserForm1.Show 0
    End If
End Sub

 

[recepkull]

Exceli kapatıp açtım düzeldi. Acaba neden vermiş olabilir bu hatayı kafama takıldı

 

[metin_0606]

Exceli kapatıp açtım düzeldi. Acaba neden vermiş olabilir bu hatayı kafama takıldı

dediğim gibi yapın hata vermeyecektir

 

[YUSUF44]

Kodun ilk kısmında sayfa olayları pasifse hesaplama yaptırılıyor ama bu kod zaten sayfa olayı kodu. Eğer pasifse bu kod hiç çalışmamalı. Bunda Bir çelişki yok mu?

 

[recepkull]

Hocam bilmiyorum kodu ben yazmadım yine buradan konu açarak elde etmiştim. Şimdiye kadar sorunsuz çalışıyordu az önce hata vermeye başladı kapat açı yaptım düzeldi. Neden böyle oldu ne oldu da düzeldi bilmiyorum. İşte bu yüzden açtığım konularda cevap aldıktan sonra verilen kodun mantığını anlamak istiyorum.

 

[Necdet]

Merhaba,

Bazen kodu yazıyorsunuz özellikli sayfa kodlarında yazdığınız an çalışmıyor, kapatıp açınca çalışıyor. Kodlarda hata olmamasına rağmen, sanırım bu bir bug.

Şöyle yazın daha anlamlı olacaktır, sanırım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [L4,U8]) Is Nothing Then Exit Sub
    
    UserForm1.Show 0

End Sub

 

[recepkull]

İlgilendiğiniz için teşekkür ederim hocam.