Otomatik komut hatası neden olur?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [AH11, AI11]) Is Nothing Then Exit Sub
    Call Kopyala
End Sub

code içindeki kalıbı ne zaman lazım olsa otomatik işlemlerde kullanırım ve hep başarılı olur. Nedense şimdi çalışmıyor.
Nedeni ne olabilir? Otomatik diye her halde, F8 görev yapmıyor.
Hepinize teşekkür ederim.
Sebebi AH11, AI11 aynı anda gelirse makro tetiklenemiyor, israrla anlık gecikme istiyor.
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Bildiğim kadarıyla bu tür Worksheet kodlarında F8 ile işlemi adımlayamıyorsunuz.

Bunun yerine;
-- kod'un istediğiniz bir satırından hemen sonra/önce MsgBox "DENEME" gibi bir satır eklerseniz,
kod çalışıp o satıra geldiğinde Mesaj Kutusu görünür veya
-- kod'da, imleçi istediğiniz bir satırda getirdiğinizde F9 düğmesine tıklarsanız (tekrar tıkladığınızda işlem kaldırılabilir)
kod çalışıp o satıra geldiğinde duracaktır.

-- Mesajınızdaki "Sebebi AH11, AI11 aynı anda gelirse makro tetiklenemiyor" kısmını anlayamadım.
"aynı anda gelmek" veya "tetiklenmiyor" derken kastınız nedir?
-- En baştaki On Error Resume Next satırına neden ihtiyaç duydunuz acaba?
Hatanın hangi aşamada ve neyden kaynaklı olarak oluşacağını düşünüyorsnuz?
.

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
İlginize çok teşekkür ederim. Kalıp ilk kurulduğunda bu halde idi, ben sadece oluşturulan verinin yerini düzenliyordum. On Error Resume Next satırı oradan kalma.
Site sayesinde çok şey öğrendim, daha da öğreneceğim çok şey var. Hepinize ilgilerinizden dolayı çok teşekkür ederim.
Saygılarımla