- Katılım
- 28 Ocak 2007
- Mesajlar
- 39
- Excel Vers. ve Dili
- excel 2000
Sub mukerrerbul()
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For a = 2 To [b65536].End(3).Row
Cells(a, "h") = Cells(a, "a") & Cells(a, "b") & Cells(a, "c") & Cells(a, "g") '& Cells(a, "f")
If WorksheetFunction.CountIf(Range("h2:h" & a), Cells(a, "h")) > 1 Then Range("a" & a & ":g" & a).Interior.ColorIndex = 6
ll = Range("h2:h" & a)
Next
[h:h].ClearContents
End Sub
sorum şu; yukardaki mukerrerbul makrosu sıralı kayıtlarımı buluyor fakat benim istediğim sıralı olmayan kayıtları bulmak için nasıl bir makro yazılabilir. şimdiden herkese selamlar
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For a = 2 To [b65536].End(3).Row
Cells(a, "h") = Cells(a, "a") & Cells(a, "b") & Cells(a, "c") & Cells(a, "g") '& Cells(a, "f")
If WorksheetFunction.CountIf(Range("h2:h" & a), Cells(a, "h")) > 1 Then Range("a" & a & ":g" & a).Interior.ColorIndex = 6
ll = Range("h2:h" & a)
Next
[h:h].ClearContents
End Sub
sorum şu; yukardaki mukerrerbul makrosu sıralı kayıtlarımı buluyor fakat benim istediğim sıralı olmayan kayıtları bulmak için nasıl bir makro yazılabilir. şimdiden herkese selamlar