satır makrosu

[f_alkan]

Ekte sorumuz mevttur.Yardımcı olan arkadaşlara tşk ederim.
İyi çalışmalar

 

[apocalyt]

şu kodu bir deneyin..

Sub daylight()
y = 1
Range("a4:j10000").Sort key1:=Range("a4")
For x = 4 To [a10000].End(3).Row
If Cells(x, 1) <> "" And Cells(x, 1) = Cells(x + y, 1) And Cells(x, 2) = Cells(x + y, 2) Then
Range("g" & x + 1 & ":j" & x + 1).Copy
Cells(x, Range("nz" & x).End(xlToLeft).Column + 1).PasteSpecial (xlPasteAll)
Rows(x + 1).Delete
x = x - 1
End If
Next x
End Sub