macro sürekli calışıyor exel kitleniyor

[MAYKMAYKMAYK]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Range("H2") Then Exit Sub
Call DOLU_HUCRELERI_KOPYALA
End Sub

h2 hücresi değişince "dolu hücreleri kopyala" makrosunu calıştır yaptım ama sürekli calışıyor exel kitleniyor

 

[ÖmerBey]

Merhaba,
Şu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If [COLOR="Red"]Intersect(Target, Range("H2")) Is Nothing[/COLOR] Then Exit Sub
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
Call DOLU_HUCRELERI_KOPYALA
[COLOR="red"]Application.EnableEvents = True[/COLOR]
End Sub