Soru Run-Time error '1004' Application-defined or object-defined error

[clleker88]

Private Sub Worksheet_Change(ByVal Target As Range)              ' Sayfa bir sutun değiştiğinde tetiklen 

Dim KimyasalYuzdesi As String
Dim search  As String
Dim KullanimMiktarSinifi As String
Dim HavaKarismaKolayligi As String
Dim RespiratoryControl As String
Worksheets(1).Select

If LCase(Cells(Target.Row, 1)) <> "katı" Then
Cells(Target.Row, Worksheets(1).Range("A1:AF1").Find("Partükül Büyüklüğü (Katılar İçin)").Column) = "Yok"              'BU SATIRDA 1004 hatası veriyor

End If

 

[Muzaffer Ali]

Merhaba.
"A1:AF1" hücre aralığında aradığınız "Partükül Büyüklüğü (Katılar İçin)" metin yok.
Bulamadığı için hata alıyorsunuz.

 

[clleker88]

Merhabalar sutun olarak birebir aynı metin var sorunu çözdüm
Application.EnableEvents = False
.... başlangıçta

ve ...
Application.EnableEvents = True
.... en sonunda.


Bu, makronuz bir hücre değerini 'değiştirdiğinde' Worksheet_Change olayının tetiklenmesini durduracaktır. Olay su ben change olayında sutunu degiştiriyorum değiştirdiğim için tekrar change olayı çalısıyor sonra gene değişiyor gene çalısıyor bu böle sürekli devam edince hata alıyorum