üç sütunu karşılaştırıp aynı olanları diğer sayfaya aktarsın

[eraser]

Arkadaşlar Merhabalar

Eklemiş olduğum belgede yapmak istediğim bir durum var.Bu konudaki yardımlarınızı sizlerden rica edebilirmiyim acaba.

saygılarımla

 

[hamitcan]

Sub aktar()
For Each hcr In [b2:b9]
    If WorksheetFunction.CountIf(Columns("f"), hcr) >= 1 Then
    If WorksheetFunction.CountIf(Columns("j"), hcr) >= 1 Then
        c = c + 1
        Sayfa2.Cells(c, 1) = Cells(hcr.Row, 1)
        Sayfa2.Cells(c, 2) = Cells(hcr.Row, 2)
        Sayfa2.Cells(c, 3) = Cells(hcr.Row, 3)
    End If
    End If
Next
End Sub