TextBoxların değeri "0" ise boş kalsın.

[kelkitli]

Değerli Dostlar selamlar,
UserForm üzerinde 80 adet TextBox var. Userformu açınca sorgulama yapıp sonuç yazıyor. Sonuç sıfırdan farklı ise kalmalı "0" ise TextBox bo kalmalı.
Hepsini nasıl yapabilirim.

 

[Skorpiyon]

Sayın kelkitli,

Ben denemedim ama, Siz aşağıdaki şekilde bir dener misiniz.

For a = 1 to 80
if controls("Textbox" & a).Value = 0 then controls("Textbox" & a ).Value = ""
next a

 

[kelkitli]

Selamlar,
Sayın Sertkaya teşekkürler.
Controls deyiminde hata veriyor.

 

[Skorpiyon]

Birde Userform isminizi ekleyerek deneyin.

For a = 1 to 80
if userform1.controls("Textbox" & a).Value = 0 then userform1.controls("Textbox" & a ).Value = ""
next a

 

[kelkitli]

Sayın Sertkaya teşekkür ederim işlem tamam.