listbox un sütunlarının formatlama

[kartal1a]

sayın arkadaşlar aşağıda yazdığım kodlarla listbox1' e verileri alıyorum fakat listboxtaki 9. sütunda kritere göre aldığım verileri toplamayı başaramadım ayrıca 3,4,5.sütundaki tarihler veri sayfasındaki hücrede 18.3.2006 şeklindeyken listbox a gelince 3/18/2006 oluyor listbox sütunları nasıl formatlanıyor isterseniz dosyayı yollarım hepinize teşekkürler.

Private Sub UserForm_Initialize()
With Worksheets("form")
.Range("pano").Value = ""
.Range("sayaç").Value = ""
.Range("abone").Value = ""
.Range("atarihi").Value = ""
.Range("ktarihi").Value = ""
.Range("otarihi").Value = ""
.Range("iendeks").Value = ""
.Range("sendeks").Value = ""
.Range("açıklama").Value = ""
End With
Application.ScreenUpdating = False

With ListBox1
.ColumnCount = 10
.ColumnWidths = "30;30;60;60;60;60;42;42;42;130"

End With

Private Sub bul_Click()
Dim dizi(10, 10)
Dim satır As Single
Dim verisatsay As Single
Dim s As Single: Dim p As Single
Dim satır2 As Single

Application.ScreenUpdating = False
satır2 = 0

If txbpano.Value = "" And txbaboneadı.Value = "" Then MsgBox "Pano No veya Abone Adı Boş Olamaz", vbCritical, "DİKKAT"



Sheets("Veri").Select
verisatsayısı = WorksheetFunction.CountA(Range("a6:a500"))

If txbsayaç.Value <> "" Then s = txbsayaç.Value
If txbpano.Value <> "" Then
p = txbpano.Value
ElseIf txbaboneadı.Value <> "" Then
aa = txbaboneadı.Value
End If
For i = 1 To verisatsayısı
satır = i + 5
If p = Cells(satır, 1) And s = 0 Or p = Cells(satır, 1).Value And s = Cells(satır, 2) Or aa = Cells(satır, 3) Then
dizi(satır2, 0) = Cells(satır, 1).Value
dizi(satır2, 1) = Cells(satır, 2).Value
dizi(satır2, 2) = Cells(satır, 3).Value
dizi(satır2, 3) = Cells(satır, 4).Value
dizi(satır2, 4) = Cells(satır, 5).Value
dizi(satır2, 5) = Cells(satır, 6).Value
dizi(satır2, 6) = Cells(satır, 7).Value
dizi(satır2, 7) = Cells(satır, 8).Value
dizi(satır2, 8) = Cells(satır, 9).Value
dizi(satır2, 9) = Cells(satır, 10).Value
satır2 = satır2 + 1
End If
Next i

ListBox1.List() = dizi
Sheets("form").Select

End Sub

 

[Levent Menteşoğlu]

isterseniz dosyayı yollarım hepinize teşekkürler.

Dosyayı gönderirseniz yardımncı olmak daha kolay olacaktır.

 

[kartal1a]

sayın leventm kusura bakmayın ben internete çok sık bağlanamıyorum cevabınızı ancak okuyabildim tarih formatını çözdüm dosyada göreceksiniz fakat listboxtaki sütunları ayrı ayrı formatlayamıyorum yani 1 ve 2 . sütun sağa yaslansın 3,4,5 . sütunlarda sola yaslansın istedim başarılı olamadım yardımlarınızı bekliyorum teşekkürler

 

[Levent Menteşoğlu]

1 ve 2 . sütun sağa yaslansın 3,4,5 . sütunlarda sola yaslansın istedim başarılı olamadım yardımlarınızı bekliyorum teşekkürler

Zaten böyle bir şey yapma şansınız yok. Çünkü listboxun böyle bir ayarı yok, tüm sütunlara tek ayar yapabilirsiniz. Ancak verileri soluna boşluk ekleyerek böyle bir görünüm elde etmek mümkün olabilir. Bunuda denemek gerekir.

 

[kartal1a]

teşekkürler demek bir haftadır boşa uğraşmışım yine sağolun