makro deneme kodunda hata

[mersilen]

selamlar
dhücrelere bilgi girişini öğrenmek için deneme amaçlı aşağıdaki macroyu hazırladım.Sarı satır olmadan kod çalışıyor, ama tekrar çalıştırmada önceden zeminini silsin diye sarı satırı ekledim ama tam orda hata veriyor .Neden hata verdiğini açıklıyabilir misiniz?

 Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
'Sirali_yaz_59
Dim i, k, sat, sat1 As Integer
i = Range("aa40").Value
sat = 20
sat1 = 1850
[COLOR="Yellow"]Worksheets("Sayfa1").Range("A1:G37").Clear[/COLOR] 


[a3] = 18
[b3].Value = 19

Range("a2") = 6

Worksheets("Sayfa1").Cells(4, 1).Value = 11
Cells(5, 1).Value = 12
Cells(6, 1) = 13


Application.ScreenUpdating = True

End Sub

 

[mustafaine1]

sari kodda bisey yok dosyaniz ekleyebileceginiz birseyse oyle bakalim..

 

[mersilen]

selam
bu sadece bir hücreye yazı yazma denemesi
[a1],range,cell için
sorunsuz çalışıyordu ama dediğim gibi

Worksheets("Sayfa1").Range("A1:G37").Clear

satırını ekleyipte çalıştırınca sanki kısır döngüye giriyor
silme kodununda doğru olduğunu düşünüyorum
yinede bir deneme excel sayfası ekledim

 

[mustafaine1]

nedenini cozemedim hatta oyle bir hata verdiki benimde dosyalarim kapandi bence o sayfayi yeniden olusturun ve ayni kodu deneyin cunku diger sayfalarda sorun yasamiyor kod.

 

[mersilen]

tekrar selam
Tüm excelleri kapatıp yeniden bir tane açıp denedim yine aynhatta ayrı sayfalarda denedimn doğru sonucu alamadım, her seferinde exceli kapatmaya neden olan kısır döngü oluştu
range clear hatası gösterdi bir ara
yinede ilginize teşekkür

 

[mersilen]

selamlar

 Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[COLOR="Red"]a1[/COLOR]]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
'Sirali_yaz_59
Dim i, k, sat, sat1 As Integer
i = Range("aa40").Value
sat = 20
sat1 = 1850
Worksheets("Sayfa1").Range("[COLOR="Red"]A1[/COLOR]:G37").Clear 


[a3] = 18
[b3].Value = 19

Range("a2") = 6

Worksheets("Sayfa1").Cells(4, 1).Value = 11
Cells(5, 1).Value = 12
Cells(6, 1) = 13


Application.ScreenUpdating = True

End Sub

kodda bence tetikleyen hücre clear alanında olduğu için kısır döngü yaratıyor
düzeltince sorun kalmadı

 

[mustafaine1]

super farketmissiniz sn.mersilen, konudaki sorunun cozulmesine sevindim, kolay gelsin..