şarta bağlı, veri taşıma

[igultekin2000]

iyi akşamlar;
dökümde ana hesap ve tali hesaplar oluyor, D ve E sütunundaki değere göre D sütununda değer varsa C sütunundaki değerlerin D sütununa, E sütununda değer varsa C sünunundaki değerlerin E sütünuna aktarılması, şeklinde işlem yapmak istiyorum. örnek dosya ve resmi ekliyorum. Teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub taşı()
For i = 7 To Cells(Rows.Count, "B").End(3).Row
    If Cells(i, "C") > 0 Then
        borç = Cells(i, "D").End(3).Row
        alacak = Cells(i, "E").End(3).Row
        If borç > alacak Then
            Cells(i, "D") = Cells(i, "C")
        Else
            Cells(i, "E") = Cells(i, "C")
        End If
    End If
Next
End Sub

 

[igultekin2000]

kodlar sorunsuz çalışıyor

Kodlar sorunsuz çalışıyor, teşekkür ederim.