çiftli sütun karşılaştır vba

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun.:cool:
Kod:
Sub bul_59()
Dim sonsat As Long, i As Long, k As Range
sonsat = Cells(Rows.Count, "K").End(xlUp).Row
Range("M2:M" & Rows.Count).ClearContents
Range("R2:R" & Rows.Count).ClearContents
For i = 2 To sonsat
    Set k = Range("P:P").Find(Cells(i, "K").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        If Cells(i, "L").Value <> k.Offset(0, 1).Value Then
            Cells(i, "M").Value = "x"
            k.Offset(0, 2).Value = "x"
        End If
    End If
Next i
MsgBox "bitti"
End Sub
 
Katılım
2 Şubat 2014
Mesajlar
745
Excel Vers. ve Dili
2007 Türkçe
Harika olmuş Orion hocam
çok teşekkür ediyorum
ellerinize sağlık.
 
Üst