DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Sirala()
Application.ScreenUpdating = False
Dim i, Son As Long
Son = [C65536].End(3).Row
Range("H3:H65536").ClearContents
Range("C3:C" & Son).Copy Range("H3")
Range("H3:C" & Son).Sort Key1:=[H3]
For i = Son To 4 Step -1
If Cells(i, "H") = Cells(i - 1, "H") Then
Cells(i, "H").Delete Shift:=xlUp
End If
Next i
End Sub
Formülsüz, makrosuz çözüm için:Ali bey öncelikle teşekkür ederim...
Bu yolladığınız tam istediğim gibi olmuş ancak formul bana çok ağır geldi aynı sonucu daha basit bir formulle yapma şansımız varmı... Teşekkür ederim...