koşula göre satırı başka sayfaya kopyalama

[snx111]

250 satırlı bir sayfada eğer "e6" "g6" dan küçükse dogru olan satırı sayfa2 ye yapıştırsın istiyorum .

"e250" <"g250" ye kadar taraması gerekiyor.

satır 250 bagzende 300 ze kadar olan güncellenen bir sayfa oldugundan bunu nasıl makroyla yapabilirim ?

mesela ilk satırdaki veri küçük ise ilk satırı a6 den g6 yadar kopyala sayfa 2 ye a6 ya yapıştır ve sayfa1 deki e7 küçükse g7 den bunuda sayfa2 a7 ye yapıştır devam et

 

[snx111]

Private Sub CommandButton222_Click()
Dim bul_sat As Long, son_sat As Long
Dim cll As Range, rng As Range
Dim ara_alan As Range, bul_alan As Range
Dim krit As Variant

son_sat = Sayfa1.Cells(Rows.Count, 1).End(3).Row

For Each cll In Sayfa1.Range("ag4:ag" & son_sat)
On Error Resume Next
krit = cll.Value
Set ara_alan = Worksheets("sayfa1").Range("d4:d400")
Set bul_alan = ara_alan.Find(krit, LookIn:=xlValues, LookAt:=xlWhole)
If Not bul_alan Is Nothing Then
bul_sat = bul_alan.Row
Set rng = Worksheets("sayfa1").Range("d" & bul_sat & ":j" & bul_sat)
rng.Copy Destination:=Sayfa2.Range("a" & cll.Row)
End If
Next
End Sub

bunu yaptım ama boşluklarını nasıl alabilirim

 

[snx111]

kimse yoq mu beyler