Metin Kutularını temizlemek

[yavuz829]

Arkadaşlar kullandığım programda 5 den 30 a kadar Metin Kutusu var. Temizle butonuna tıkladığım zaman 8,12,25,27 Metin Kutularının içindeki bilgiler temizlensin. Diğer Metin Kutlardaki bilgiler kalsın. Bu konuda yardımlarınız ihtiyacım var. İyi çalışmalar.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub temizle()
ActiveSheet.Shapes.Range(Array("TextBox 8")).TextFrame2.TextRange.Characters.Text = ""
ActiveSheet.Shapes.Range(Array("TextBox 12")).TextFrame2.TextRange.Characters.Text = ""
ActiveSheet.Shapes.Range(Array("TextBox 25")).TextFrame2.TextRange.Characters.Text = ""
ActiveSheet.Shapes.Range(Array("TextBox 27")).TextFrame2.TextRange.Characters.Text = ""
End Sub

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık.