liste kontrolü

[GursoyC]

Merhaba,
yapmak istediğimi görselle daha açıklayıcı anlatabileceğimi düşünerek ekledim.
Dosyamı da ekledim. Yardımcı olabilirseniz çok sevinirim.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Private Sub CommandButton1_Click()
Dim hucre As Range
sonB = Cells(Rows.Count, "B").End(3).Row
sonF = Cells(Rows.Count, "F").End(3).Row
For Each hucre In Range("B2:B" & sonB)
    If WorksheetFunction.CountIf(Range("F1:F" & sonF), hucre.Value) > 0 Then
        hucre.Offset(0, 1) = 1
    End If
Next
End Sub

 

[GursoyC]

Çok teşekkürler Yusuf hocam, gayet güzel çalışıyor.
Saygılar.