benzemeyenler

[karakayalı]

b sutununda olup a da olmayanları e sutununa yazdırmak istiyorum...kolay gelsin

 

[Orion1]

Dosyanız ektedir.

Sub varmi()
Dim sat As Long, i As Long, sat2 As Long
Application.ScreenUpdating = False
Range("E:E").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
For i = 1 To Cells(65536, "B").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("A1:A" & sat), Cells(i, "B").Value) = 0 Then
        sat2 = sat2 + 1
        Cells(sat2, "E").Value = Cells(i, "B").Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Bulunmayanlar E sütununa Listelendi.", vbOKOnly + vbInformation, "EVREN"
End Sub

 

[karakayalı]

syn evren gizlen, ellerinize sağlık...tşk.ler...

 

[Orion1]

syn evren gizlen, ellerinize sağlık...tşk.ler...

Rica ederim.
iyi çalışmalar.