Listbox ta sayı Formatı Hk

[bulentkars]

Arkadaşlar Merhaba

Ekteki çalışma kitabında ETOPLA Formülü ile yaptığım taoplamlamın üzerinde F3 yaptığımda etopla formülü ile gelen toplamların Detayı nı Açılan Userformun içindeki listboxta görebiliyorum.Burada Tutar kısmının Sayı formatını Örneğin 16.289,26 olarak görmek istiyorum.Birde Ocak-Aralık arasında satırlarda F3 Yaptığımda userforma veriler geliyor sadece Mayıs ayında yaptığım zaman boş geliyor.Mayıs ayını küçük harfle yazdığımda geliyor büyük harfle yazdığımda gelmiyor.Ekte ki dosyada ayrıntılı yazdım ilgilenen arkadaşlara şimdiden Teşekkür ediyorum.

 

[halit3]

Arkadaşlar Merhaba

Ekteki çalışma kitabında ETOPLA Formülü ile yaptığım taoplamlamın üzerinde F3 yaptığımda etopla formülü ile gelen toplamların Detayı nı Açılan Userformun içindeki listboxta görebiliyorum.Burada Tutar kısmının Sayı formatını Örneğin 16.289,26 olarak görmek istiyorum.Birde Ocak-Aralık arasında satırlarda F3 Yaptığımda userforma veriler geliyor sadece Mayıs ayında yaptığım zaman boş geliyor.Mayıs ayını küçük harfle yazdığımda geliyor büyük harfle yazdığımda gelmiyor.Ekte ki dosyada ayrıntılı yazdım ilgilenen arkadaşlara şimdiden Teşekkür ediyorum.

kodunu aşağıdaki kod ile değiştir

Sub BülentKars()
Dim kod As String, ay As String, veri As Range
With Sheets("ÖZET")
kod = CStr(.Range("q2").Value)
UserForm1.ListBox1.Clear
Select Case ActiveCell.Column
    Case Is = 48
        If ActiveCell <> Empty And IsNumeric(ActiveCell.Value) Then
             ay = UCase(ActiveCell.Offset(0, -11).Value)
                     
             For Each veri In Sheets("2009_Tahsilat").Range("b2:b" & _
            Sheets("2009_Tahsilat").Range("b65536").End(3).Row)
                If CStr(kod) = CStr(veri.Offset(0, 0).Value) Then
                    If ay = Replace(Replace(UCase(veri.Offset(0, 4).Value), "I", "İ"), "ı", "I") Then
                        With UserForm1.ListBox1
                            .AddItem Format(veri.Offset(0, -1).Value, "dd.mm.yyyy dddd")
                            .List(.ListCount - 1, 1) = CStr(veri.Offset(0, 2).Value)
                            .List(.ListCount - 1, 2) = Format(CDbl(veri.Offset(0, 3).Value), "#,###,###")
                            .ColumnCount = 3
                            .ColumnWidths = "140;165;50"
                            
                        End With
                    End If
                End If
            Next veri
                UserForm1.Show
        End If
End Select
End With
Set veri = Nothing
ay = vbNullString: kod = vbNullString
End Sub

 

[bulentkars]

Halit Bey

İlginiz için çok teşekkür ederim.

 

[halit3]

iyi çalışmalar