Tablo dizisinde bulunmayan sayıların koşullu aranması

[kmlpyrz]

Merhaba. Ekte gönderdiğim tablo içinde belirtilen koşullara göre arama yaparak, tabloda bulunmayan sayıların sıralandığı bir makroyu nasıl yazabilirim? Şimdiden teşekkür ederim.

 

[hamitcan]

Private Sub CommandButton1_Click()
    [j3:j500].ClearContents
    c = 2
    For i = [g4] To [g6]
        If WorksheetFunction.CountIf(Range("b3:b" & [b65536].End(3).Row), i) = 0 Then
          c = c + 1: Cells(c, "j") = i
        End If
    Next
End Sub

 

[kmlpyrz]

Sayın hamitcan öncelikle ilginizden ve yardımlarınızdan ötürü teşekkür ederim.
Verdiğiniz kodu kullanarak, programı isteğim şekle getirdim. Ancak ilk gönderdiğim dosyada, makronun bulduğu sayılar, doğrudan hücrelere yazılıyordu.
Kodu değiştirerek, bu bulunan sayıların excel sayfasındaki hücrelere yazılmadan, doğrudan Listbox1'e yazılmasını sağlamaya çalıştım ama olmadı. Bunu nasıl gerçekleştirebiliriz?
İlgili Kodun ve Dosyanın son hali ektedir.

Private Sub CommandButton1_Click()
    a = TextBox1
    b = TextBox2
    c = 2
    For i = a To b
        If WorksheetFunction.CountIf(Range("B3:B" & [B65536].End(3).Row), i) = 0 Then
        c = c + 1: Cells(c, "J") = i
        End If
    ListBox1.List = Range("J3:J65536").Value
    Next
End Sub

 

[veyselemre]

bu bulunan sayıların excel sayfasındaki hücrelere yazılmadan, doğrudan Listbox1'e yazılmasını sağlamaya çalıştım ama olmadı. Bunu nasıl gerçekleştirebiliriz?

Private Sub CommandButton1_Click()
    a = TextBox1
    b = TextBox2
    For i = a To b
        If WorksheetFunction.CountIf(Range("B3:B" & [B65536].End(3).Row), i) = 0 Then
            ListBox1.AddItem i
        End If
    Next
End Sub