-
- Destek
-
Özel Arama
![]() |
Range("C12:C10000").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range("C12").Select
Sub grupla()
Dim yaz As Integer
Dim renk As Integer
Range("J12:J1000000").ClearContents
Range("I12:I" & Rows.Count).Interior.ColorIndex = 0
Range("J12:J" & Rows.Count).Interior.ColorIndex = 0
yaz = 12
renk = 12
For a = 12 To Range("I1000000").End(xlUp).Row
If Cells(a, "I").Interior.ColorIndex > 0 Then GoTo atla
For i = a + 1 To Range("I1000000").End(xlUp).Row
'On Error Resume Next
If Cells(a, "I").Value2 = Cells(i, "I").Value2 And Cells(i, "I") <> "" Then
Cells(yaz, "J") = Cells(a, "I")
Cells(yaz, "J").Interior.ColorIndex = renk
Cells(a, "I").Interior.ColorIndex = renk
Cells(i, "I").Interior.ColorIndex = renk
renk = renk + 1
End If
Next i
yaz = yaz + 1
atla:
Next a
Range("J12:J100000").Select
'Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range("J12").Select
End Sub
xStr = xStr & IIf(Len(xStr) = 0, "",".") & cll.Value
Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Google [Bot] ve 5 misafir