Renkli satır saydırma yoksa uyarı vermesi...

[muratozmenler]

Renkli satır yoksa uyarı vermesi...

Selamlar......
Users sayfasında bulunan formu aç butonuna bastığımızda çıkan userformdaki kalan işleri ara butonuna bastığımızda yapılacak işler sayfasında kırmızı renkli satır varsa listboxta göstermektedir.

Benim istediğim kalan işleri ara butonuna bastığımızda ayrıca kırmızı renkli satır yoksa yapılacak iş yoktur uyarısı vermesi kırmızı renkli satır var ise kaç adet olduğunu söylemesi...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton4_Click()
    Sheets("yapılacak işler").Select
    ListBox1.ColumnCount = 4
    ListBox1.ColumnWidths = "20;60;150"
    
    y = 0
    
    For x = 1 To 65536
        If Cells(x, 1).Interior.ColorIndex = 3 Then
        isadi = Cells(x, 3).Value
        MERKEZ = Cells(x, 2).Value
        ListBox1.AddItem y + 1
        ListBox1.List(y, 1) = MERKEZ
        ListBox1.List(y, 2) = isadi
        y = y + 1
        End If
    Next
    
    If ListBox1.ListCount = 0 Then
    MsgBox "Yapılacak iş yoktur !", vbInformation
    Else
    MsgBox ListBox1.ListCount & " adet yapılacak iş var.", vbInformation
    End If
End Sub

 

[muratozmenler]

Selamlar...
Teşekkür ederim korhan ayhan bey yardımlarınızın hiçbir zaman eksik olmaması dileği ile iyi çalışmalar.