listbox ta 1.sütundaki negatif sayılar işaretlensin

[olymposss]

sn hocalarım hayırlı akşamlar

şimdide listbox ile bir sorunum var.yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

listbox ta 5 sütundan oluşan veriler var.şöyle ki;
adı cinsi miktarı .......
a ürün gıda -10
b ürün gıda -20
c ürün gıda 50

şu durum listbox ta mevcut. ancak listbox açıldıktan sonra otomatik olarak negatif bakiyeli olanlar ya renk değiştirsin ya da işaretlensin.acaba böyle bişey mümkün mü?
herkese çok teşekkür ederim.saygılar.:yardim:

 

[emrexcel123]

sn olymposss listbox'un belli bir kısmının renklendirilmesi ne yazık ki mümkün değil ama listbox'un option görünümünde negatif bakiyelerinin seçilmesi mümkün galiba dosyanı ekleyebilir misin?...

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
Dim i, sat As Long
Sheets("Sayfa1").Select
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A2:C" & Cells(65536, "A").End(xlUp).Row
sat = 0
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Column(2, sat) < 0 Then
        ListBox1.Selected(i) = True
    End If
    sat = sat + 1
Next i
End Sub

 

[Galus]

Kodları arşive çektim. ListBox kullanmayı öğrenince çok işime yarayacak. Teşekkürler..

 

[Ferhat Pazarçevirdi]

Listbox değil ama listview nesnesi ile bunu kolayca yapabilirsiniz.

Private Sub UserForm_Initialize()
With ListView1
   .View = lvwReport
   .Gridlines = True
   .FullRowSelect = True
    For i = 1 To 4
        .ColumnHeaders.Add , , Cells(1, i), 81
    Next i
    For i = 2 To 6
       y = y + 1
      .ListItems.Add , , Cells(i, 1)
      .ListItems(y).SubItems(1) = Format(Cells(i, 2), "#,##0")
      .ListItems(y).SubItems(2) = Format(Cells(i, 3), "#,##0")
      .ListItems(y).SubItems(3) = Format(Cells(i, 4), "#,##0")
       If Cells(i, 4) < 0 Then
           .ListItems(y).ForeColor = RGB(255, 0, 0)
           .ListItems(y).ListSubItems.Item(1).ForeColor = RGB(255, 0, 0)
           .ListItems(y).ListSubItems.Item(2).ForeColor = RGB(255, 0, 0)
           .ListItems(y).ListSubItems.Item(3).ForeColor = RGB(255, 0, 0)
       End If
    Next i
End With
End Sub

Ekteki örneği inceleyiniz.

 

[Orion1]

Merhaba.
SpreadSheet ile uygulamayı tekrar yaptım.
Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
Dim i As Long
Sheets("Sayfa1").Select
Set s2 = Spreadsheet1.Sheets("Sayfa1")
For i = 1 To Cells(65536, "A").End(xlUp).Row
    s2.Range("A" & i).Value = Cells(i, "A").Value
    s2.Range("B" & i).Value = Cells(i, "B").Value
    If Cells(i, "C").Value < 0 Then
        s2.Range("C" & i).Interior.ColorIndex = 3
        s2.Range("C" & i).Font.ColorIndex = 6
    End If
    s2.Range("C" & i).Value = Cells(i, "C").Value
Next i
Set s2 = Nothing
End Sub

 

[olymposss]

bu cevaplar için hepinize teşekkür ederim.

arkadaşlar herkese günaydın.
akşam sn emreexcel in cevabını gördüm ancak cevap veremedim. sabah örnek bi dosya hazırlarken bisürü cevapla karşılaştım.herkese çok teşekkür ederim.
elinize sağlık.
sn orion2 nin ilk kodlarını uyarlamaya çalıştım ancak negatif bakiyeli sadece son satırı işaretledi acaba örnek dosyamı inceleyebilirmisiniz?

çok ama çok teşekkür ederim saygılar:yardim:

 

[Orion1]

Merhaba.
ListBox'ı sağ tuşla tıkladım.Properties'ten MultiSelect'ten 2'yi seçtim.
Sonra yine properties'ten ListStyle'den 1'i seçtim.Başkada bir şey yapmadım.ListBox istediğiniz işlemi yaptı.
Ekli dosyayı inceleyiniz.

 

[olymposss]

sn orion2 çok teşekkür ederim
emeğinize sağlık
saygılar