for döngüsü

[Cengizhantr06]

Me.TextBox1.Value = Format(Me.TextBox1.Value, "###,###")

31 tane textbox var bunu nasıl döngü ile hepsine uygularım

 

[ÖmerFaruk]

For i = 1 To 31
   Controls("Me.TextBox" & i).Value = Format(Controls("Me.TextBox" & i).Value, "###,###")
Next i

 

[Seyit Tiken]

Bu şekilde deneyiniz.

For Each bicim In UserForm1.Controls
If TypeName(bicim) = "TextBox" Then
bicim.Value = Format(bicim.Value, "###,###")
End If
Next

 

[Cengizhantr06]

For i = 1 To 31
   Controls("Me.TextBox" & i).Value = Format(Controls("Me.TextBox" & i).Value, "###,###")
Next i

userform initalize içine yazdım hata verdi başka yeremei yazacam acaba

 

[Cengizhantr06]

Bu şekilde deneyiniz.

For Each bicim In UserForm1.Controls
If TypeName(bicim) = "TextBox" Then
bicim.Value = Format(bicim.Value, "###,###")
End If
Next

Userform initalize içine yazdım hata verdi

 

[Seyit Tiken]

Düğmeye bağlayıp bir deneyiniz.

 

[ÖmerFaruk]

userform initalize içine yazdım hata verdi başka yeremei yazacam acaba

İlk mesajınızda yazdığınız kodu nerede çalıştırıyorsanız o kısımda yazabilirsiniz.

 

[Cengizhantr06]

İlk mesajınızda yazdığınız kodu nerede çalıştırıyorsanız o kısımda yazabilirsiniz.

Tşk ederim