Textbox içerik temizleme

[askm]

Kolay gelsin. Aşağıdaki kodlar ile textbox içeriğiniz temizliyorum. Sayfa pasif olunca yani deactive olunca çalışsın istiyorum ama çalışmıyor. Nasıl yapabilirim.
Teşekkürler.

Private Sub Worksheet_Deactivate()
Call Text_Box_Temizle
End Sub


Private Sub Text_Box_Temizle()
For Each i In Sheets("Personel Listesi").OLEObjects
If i.progID = "Forms.TextBox.1" Then
i.Object.Value = ""
End If
Next
End Sub

 

[Emir Hüseyin Çoban]

. . .

Tablonuzun örneğini paylaşırsanız daha net çözümler alırsınız...

. . .

 

[askm]

Örnek ektedir.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Deactivate()
    Application.EnableEvents = False
    Call Text_Box_Temizle
    Application.EnableEvents = True
End Sub