Sayfadaki değişiklik olayı içinde yaptım laki pasif yaptım kodları sonsuz döngüye sokuyor.Sokmaması için Application.EnableEvents = False bu kod kullanılıyor lakin bazen kodları durduruyor.
Yada sadece Sayfadaki veri değişincede kod çalışabilir sonra bakarım teferruatlıca bu dosyayı bir deneyin.
'Private Sub Worksheet_Change(ByVal Target As Range)
' Application.EnableEvents = False
' GetirMod.KacGetir
' Application.EnableEvents = True
'End Sub