For Next Döngüsü ile TextBox ların İçinin Boşaltılması

ahmed_ummu

Altın Üye
Katılım
28 Mart 2011
Mesajlar
731
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
Altın Üyelik Bitiş Tarihi
15-10-2026
Merhaba arkadaşlar.

Aşağıdaki kodlar ile Textbox10 ile Textbox40 arasındaki Textlerin içini boşaltmak istiyorum ama boşaltmıyor. Başka yerlerde aynı kod ile boşaltıyor. Yardımcı olabilir misiniz. Kodlar Userfom4 de, Textboxlar Userform10'da. Herhangi bi hata uyarısı da vermiyor.

For dd = 10 To 40
UserForm10.Controls("TextBox" & dd).Value = ""
Next dd
 
Son düzenleme:

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,868
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar

Kod:
      For i = 10 To 40
        Userform.Controls("TextBox" & i) = Empty
      Next i
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
İki formunuzunda ShowModal özelliği False olarak deneyiniz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ben boş bir excel dosyasında denedim ve olumlu sonuç aldım.

İki formda açık değil mi?
 

ahmed_ummu

Altın Üye
Katılım
28 Mart 2011
Mesajlar
731
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
Altın Üyelik Bitiş Tarihi
15-10-2026
Evet iki form da açık.
Örnek dosyamı göndersem üzerinde bakabilir misiniz.

Userform4 de kodlar. Yalnız. Userform10 da bulunan Multipage nin 2. sekmesindeki Commandbutton7 ile Userform4 açılacak.
userfrom4 de listbox dan ay ismi seçilecek. Başka bir ay ismi seçilince, daha önce ay ile gelen değerler textlerden silinip yeni değerler gelecek. Bu haliyle yeni değerler geliyor ama eski değerler de kalıyor.
 

Ekli dosyalar

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,868
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar
10 dan 40 a kadar olan textbox lar resimdeki textbox lar
aşağıdaki kod bu textbox ları temizliyor

Kod:
Dim i As Integer
For i = 10 To 40
    UserForm10.Controls("TextBox" & i) = Empty
Next i
231162
 

ahmed_ummu

Altın Üye
Katılım
28 Mart 2011
Mesajlar
731
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
Altın Üyelik Bitiş Tarihi
15-10-2026
Üst