B sütununda sıralama. C D E ve F deki verilerde B ile hareket edecek.

[ahzola]

Merhabalar

Kendim makro ile denedim lakin beceremedm.
B sütununda ki verileri sıralattığım zaman C D E ve F deki
verilerde B deki veriye göre davranacak.

Sıralama B2 den itibaren başlayacak.

Yardım edecek arkadaşlara teşekkür ederim.

 

[Ziynettin]

Merhaba,
Aşağıdaki kodu denermisiniz.

Sub ahzola()
Dim son As Integer
son = Cells(Rows.Count, 2).End(3).Row
Range("B2:F" & son).Sort key1:=[B1]
End Sub

 

[ahzola]

Sayın tasmet
teşekkür ederim.
Kod çalıştı.

Aynı aralık için aynı olanları sil diyebilirmiziy peki.
Başka kod olsada olur. Seri kullanabilirim.

 

[ahzola]

Yine B sütununu gözeteceğiz.

 

[Ziynettin]

Aşağıdaki kodu deneyin.

Sub sirala_tekyap()
Dim son As Integer
son = Cells(Rows.Count, 2).End(3).Row
Range("B2:F" & son).Sort key1:=[B1]
For i = son To 2 Step -1
If WorksheetFunction.CountIf(Range("B2:B" & son), Cells(i, 2)) > 1 Then
Range(Cells(i, 2), Cells(i, 6)).Delete shift:=xlUp
End If
Next i
End Sub

 

[ahzola]

Çok teşekkür ederim.
Ellerinize sağlık.

 

[Ziynettin]

Rica ederim, güle güle kullanın.

 

[ahzola]

..........................