seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
İyi akşamlar dileklerimle bir konuda yardım almak istiyorum.Userform3 de Oluşturduğum textboxda aşağıdaki kodu çalıştırdığımda çıkan rakamlar bitişik oluyor,okunması zorlaşıyor.Örneğin 1.000.000 TL. şeklinde yazsın istiyorum.Yardımcı olacak arkadaşa teşekkür ederim.
Dim i As Long, t1 As Double
For i = 1 To UserForm15.pencere4.ListItems.Count
topla = topla + Val(UserForm15.pencere4.ListItems(i).SubItems(3))
Next i
UserForm3.TextBox1.Value = topla
Dim i As Long, t1 As Double
For i = 1 To UserForm15.pencere4.ListItems.Count
topla = topla + Val(UserForm15.pencere4.ListItems(i).SubItems(3))
Next i
UserForm3.TextBox1.Value = topla