Textbox içinde formüller ve makro kodları kısaltması

[İhsan Tank]

Evet onları daha önceden silip denemiştim, belkide daha farklı yolu olabilir mi diye düşünmüştüm.

Başınızı ağrıttım yardımlarınız için tekrardan teşekkür ederim, kolay gelsin iyi akşamlar.

Ne gibi değişik bir yolu orasını anlamadım.

 

[irfancantr]

Ne gibi değişik bir yolu orasını anlamadım.

Benim kırmızı ile boyadığım kısımdan kurtulmak istemiştim Neyse hocam boş verin gitsin.

 

[İhsan Tank]

Sağolun İhsan hocam, s harfi bende neden hata verdi anlamadım

Hocam sizin 26. mesajınızda bulunan Listbox için hazırladığınız kodun içerisinde ki format ile ilgili kodlar bulunmak zorunda mı?

Private Sub ListBox1_Click()
Dim sat, kaplan, ts
On Error Resume Next
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "A") = ListBox1.Column(0) * 1 Then
kaplan = 2
For ts = 1 To 5
Controls("ComboBox" & ts) = Cells(sat, kaplan)
kaplan = kaplan + 1
Next
kaplan = 7
For ts = 1 To 5
[B][COLOR="Red"]If ts = 3 Then
Controls("Textbox" & ts) = Format(Cells(sat, kaplan), "dd.mm.yyyy")
kaplan = kaplan + 1
ElseIf ts = 4 Or ts = 5 Then
Controls("Textbox" & ts) = Format(Cells(sat, kaplan), "#,##0.00")
kaplan = kaplan + 1
Else[/COLOR][/B]
Controls("Textbox" & ts) = Cells(sat, kaplan)
kaplan = kaplan + 1
[COLOR="Blue"]End If[/COLOR]
Next
End If
Next
End Sub

Bu bölümü istememe gibi bir şansımız var mı? Yoksa, "kullan gitsin işte o kadar uğraştırma beni yeter artık" mı?

Benim maviye boyadığım yeri de ve sizin kırmızıya boyadığınız yeri silin ve deneyin.

 

[irfancantr]

Benim maviye boyadığım yeri de ve sizin kırmızıya boyadığınız yeri silin ve deneyin.

Denedim ve tam istediğim gibi oldu. Saygılar Sn. İhsan Tank

 

[İhsan Tank]

Denedim ve tam istediğim gibi oldu. Saygılar Sn. İhsan Tank

Kolay Gelsin
:keyif: