Döngü oluşturmak

[excelman]

Merhabalar;

Userform üzerinde 25 adet textbox mevcut. Bunların hepsine büyük harf formatı tanıtıyorum.

TextBox1.Text = UCase(TextBox1.Text)

şeklinde
Benim istediğim 25 adet textbox a bu kodu tektek yazmak yerine Userform un açılışında bu olayı döngü ile nasıl sağlayabiliriz?

 

[veyselemre]

For b = 1 To 25
Controls("textbox" & b) = UCase(Controls("textbox" & b))
Next

 

[excelman]

Sayın veyselemre
Kodları Userform_Initialize olayına yazdım fakat textboxlara veri girdiğimde herhangi bir değişiklik olmadı.

 

[veyselemre]

userforma initalize olayı sadece açılışta textboxlarda mevcut olan verileri büyük harfe çevirir, eğer veriyi sonradan girecekseniz textbox exit olaylarının hepsine yazmanız gerekir

 

[excelman]

Teşekkürler veyselemre.

Ben de o şekilde yorumlamıştım kendi kendime.