listboxa veri alma

[limanC34]

Selam Arkadaşlar
Siteden aldığım dosyada bazı değişiklikler yaparak değişik film ebatları ve hasta sayısını listboxa almak istedim.Ancak listboxta sadece 24x30 gibi ebat yazmasını istiyorum oluyor ama yanına sayısınıda yazıyor.Oysa labelde zaten yazıyor.
Birde hasta sayısını seçtiğimde labelde yine şukadar film var yazıyor.Yani ben hem film hemde hasta sayısını sorgularken hepsine şu kadar film var yazıyor ben şu kadar hasta var yazmasını istiyorum.
Teşekkürler.

 

[Orion1]

Ekteki dosyadki gibimi?

Label2.Caption = s & " Adet Hasta Vardır."

 

[Yakut]

Listbox da € göstermesi

slm

bu listboxla ilgili bir sorum olacakti, burada soru acilmisken,buraya yazmayi düsündüm.

listbox da rakamlari € isareti ile gösterilmesi nasil oluyor

dosya ekte:

 

[Korhan Ayhan]

Selamlar,

Sn. Yakut,

Aşağıdaki kodu denermisiniz.

Private Sub Userform_Initialize()
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;80;100"
        .ColumnHeads = True
        .RowSource = "Sayfa1!A3:C" & [Sayfa1!A65536].End(3).Row
    End With
End Sub

 

[Orion1]

Dosyanız Ekte.

Private Sub Userform_Initialize()
    Dim lbtarget As MSForms.Listbox
    Dim rngSource As Range
    Set rngSource = Worksheets("Sayfa1").Range("A2:C5")
    Set lbtarget = Me.ListBox1
    With lbtarget
        .ColumnCount = 3
        .ColumnWidths = "50;80;100"
        [B][COLOR="Red"].RowSource = "Sayfa1!A2:C5"[/COLOR][/B] 
   End With
End Sub

 

[limanC34]

Arkadaşlar
Çözüm yapamadık bu sefer ama bir şeyi anlamadım.Kime cevap verdiniz.Valla karıştırdım.

 

[Yakut]

slm,

Evren Gizlen ve Korhan Ayhan ustadlarimiza tesekkürler,kodlariniz mükemmel, tam isabet.

saygilar

 

[Orion1]

Arkadaşlar
Çözüm yapamadık bu sefer ama bir şeyi anlamadım.Kime cevap verdiniz.Valla karıştırdım.

Ben size 2 numaralı mesajda sorunuza cevap verdim.

 

[limanC34]

Sayın Evren Gizlen
Cevabınız için teşekkür ederim.Ancak film için ayrı hasta sayısı için ayrı yazmasını istemiştim.

 

[Yakut]

listboxla ugrasirken su soru geldi geldi karsima, bu yukarda anlatildigi gibi bu sefer 0 olan yazilarin görünmesini istemiyorum,

 

[Orion1]

Sayın Evren Gizlen
Cevabınız için teşekkür ederim.Ancak film için ayrı hasta sayısı için ayrı yazmasını istemiştim.

Ben anlamadım.Nerde ne yazacak nasıl yazacak.Açıklarsanız bir şeyler yaparız.

 

[Orion1]

listboxla ugrasirken su soru geldi geldi karsima, bu yukarda anlatildigi gibi bu sefer 0 olan yazilarin görünmesini istemiyorum,

Aşağıdaki dosyada olduğu gibimi istediniz.

 

[Yakut]

slm,

Evren Gizlen ustadim, cok tesekkürler, yine bir harika örnek.

bu döngüleri bir türlü yazamiyorum....Kodlama mantigin nerdeyse Belkemigi gibi...

saygilar