Listbox da hızlı seçim

[Korhan Ayhan]

Selamlar,

Formun Private Sub UserForm_Initialize() kısmındaki kodu aşağıdaki şekilde değiştirip denermisiniz.

.ListItems(i - 4).SubItems(2) = Format(SL.Cells(i, "D"), "#,##0.00")

Olması gereken;

.ListItems(i - 4).SubItems(2) = Format(SL.Cells(i, "D"), [COLOR=red]"#.##0,00"[/COLOR])

 

[Necdet]

Bende de bir sorun görünmüyor, fiyatı 9.250,65 yaptım olduğu gibi getirdi.

 

[mami67]

Korhan bey tebrikler çok teşekkür ederim aynen dediğiniz gibi değiştirdim düzeldi

Her ikinizede çok çok teşekkür ederim ilginizden dolayı vakit ayırıp yardımcı oldunuz
Selamlar saygılar
Esen ve mutlu kalın

 

[slymn_ern]

Merhaba Arkadaşlar;

Private Sub CommandButton1_Click()
Range("B29:G43").ClearContents
End Sub

bu kod olmasına rağmen hangi hücreye tıklarsam tıklayım nedense listbox açılıyor. bunu nasıl düzeltebiliriz.

bir ikincisi ise mesela 5 satır yazdım ve 1.satırı sildim başka bişey yazmam gerekiyor, fakat yeni ürün seçtiğimde 6.satıra ekliyor bunu 1.satıra eklemesi için ne yapmamız gerekiyor ( bu 3. 5. 7. 15. satırlarda olabilir)