Userfom Listbox tarih formatı hk.

[pNouma]

Kıymetli Hocalarım merhabalar,
Userform Listbox ( 3 sütunlu) hücreden veri alırken;
ekli linkte yer alan ekran görüntünde olduğu gibi;

https://dosya.co/cvqekicjxpnt/202029.jpeg.html

    arr = SHS.Range("B5:D100").Value
    Me.LstBox.List = arr

Tarih formatını "m/d/yyyy" formatında getirmekte;
sayfada olduğu gibi "d/m/yyyy" formatında gelmesi için nasıl bir düzenleme yapılabilir.

yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar.

 

[volki_112]

Kıymetli Hocalarım merhabalar,
Userform Listbox ( 3 sütunlu) hücreden veri alırken;
ekli linkte yer alan ekran görüntünde olduğu gibi;

https://dosya.co/cvqekicjxpnt/202029.jpeg.html

    arr = SHS.Range("B5:D100").Value
    Me.LstBox.List = arr

Tarih formatını "m/d/yyyy" formatında getirmekte;
sayfada olduğu gibi "d/m/yyyy" formatında gelmesi için nasıl bir düzenleme yapılabilir.

yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar.

deneyiniz

Dim arr As Variant
Dim i As Long, j As Long

arr = SHS.Range("B5:D100").Value

For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        If IsDate(arr(i, j)) Then
            arr(i, j) = Format(arr(i, j), "dd/mm/yyyy")
        End If
    Next j
Next i

Me.LstBox.List = arr

 

[Muzaffer Ali]

Merhaba.

Listboxa eklerken sanırım Additem ile ekliyorsunuz. Eğer öyleyse metin olarak eklerseniz sorun çözülür.

.AddItem Cells(i, "B").Text
yada
.AddItem CStr(Cells(i, "B"))

 

[pNouma]

Volkan ve Muzaffer Hocam çok teşekkür ederim,

iyi Çalışmalar.