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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Metin Kutularını temizlemek
- Konbuyu başlatan yavuz829
- Başlangıç tarihi
- Katılım
- 4 Ocak 2006
- Mesajlar
- 12,065
- Excel Vers. ve Dili
- İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:
Kod:
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