- Katılım
- 30 Nisan 2007
- Mesajlar
- 396
- Excel Vers. ve Dili
- Office 365
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub urun_adina_gore_gruplandir()
[h2:j50].Clear
[i2:i8] = [a2:a8].Value
[h2:h8] = [b2:b8].Value
[j2:j8] = [c2:c8].Value
[h2:j8].Sort key1:=[h2]
For i = 8 To 2 Step -1
If Cells(i, "h") = Cells(i + 1, "h") Then
Cells(i + 1, "h") = ""
ElseIf Cells(i, "h") <> "" Then
Range("h" & i + 1 & ":" & "j" & i + 1).Insert
End If
Next
End Sub