Offset kısmında takıldığım makro için yardım.

[Carpintero]

merhabalar,

Resim net bir fikir veremeye bilir
Yazı ile de açıklarsam eğer;

xC büyükse xC+1 den
xC den xC+1 çıkar E kolonunda xC nin satırana yaz

xC küçükse xC+1 den
xC+1 den xC yi çıkar E kolonunda xC+1 in satırana yaz
buradaki x döngünün adı oluyor.

Yardımcı olunabilir ise çok teşekkür ederim.

 

[halit3]

Kod:

Sub aktar()

For r = 1 To Cells(Rows.Count, "c").End(3).Row
If Cells(r, "c").Value <> "" Then

If Cells(r, "c").Value > Cells(r + 1, "c").Value Then
Cells(r, "d").Value = Cells(r, "c").Value - Cells(r + 1, "c").Value
r = r + 1
End If

If Cells(r, "c").Value < Cells(r + 1, "c").Value Then
Cells(r + 1, "d").Value = Cells(r + 1, "c").Value - Cells(r, "c").Value
r = r + 1
End If

End If
Next r

MsgBox " Düzenleme Tamanlanmıştır..."

End Sub

 

[Carpintero]

Ellerinize sağlık Halit hocam.
İyi sahurlar