vba ile iki sütun karşılaştırma

[aureliane]

merhabalar;
d ve e sütunlarımda veriler var



bu şekilde, hücrelerde formüller var, benim yapmak istediğim formülleri bozmadan yıl sonunda hesaplara sıfırlama yapmak mesela resimdeki örnekte her iki hücreye de eksi 600.000 uygulayabilsem bakiye bozulmadan sadece 50.000 borç gösterecek. tabi bunun her satır için ayrı ayrı yapılması lazım.

 

[ÖmerFaruk]

Sub Yeniden()
For i = 2 To Range("D1048576").End(xlUp).Row
    If Cells(i, 4) = "" Then GoTo Devam
    Cells(i, 4) = Cells(i, 4) - WorksheetFunction.Min(Cells(i, 4), Cells(i, 5))
    Cells(i, 5) = Cells(i, 5) - WorksheetFunction.Min(Cells(i, 4), Cells(i, 5))
Devam:
Next i
End Sub

 

[aureliane]

type mistmach diyor hocam

 

[ÖmerFaruk]

Hangi satırda?

 

[aureliane]

    Cells(i, 4) = Cells(i, 4) - WorksheetFunction.Min(Cells(i, 4), Cells(i, 5))

 

[ÖmerFaruk]

Birincisi kodlarımda bir düzeltme yaptım.

Sub Yeniden()
For i = 2 To Range("D1048576").End(xlUp).Row
    If Cells(i, 4) = "" Then GoTo Devam
    Fark = WorksheetFunction.Min(Cells(i, 4), Cells(i, 5))
    Cells(i, 4) = Cells(i, 4) - Fark
    Cells(i, 5) = Cells(i, 5) - Fark
Devam:
Next i
End Sub

Dediğiniz satırda ben yeni bir excel sayfasında D ve E sütunlarına sizdekine benzer değerler verdim, bende herhangi bir hata yok.
Verileri aldığınız D ve E sütunlarınızdaki değerlerde bir yanlışlık olabilir. "i" değişkeninin aldığı değere bakıp ilgili satır ve hücreyi bulabilirsiniz.

 

[aureliane]

Öncelikle ilgilendiğiniz için çok teşekkürler, evet bende farklı bir çalışma kitabına alınca çalıştı fakat bahsettiğim hesaplama haricinde farklı bir işlem yapıyor. fakat ben mecburen çok daha ilkel bir yöntemle çözmek zorunda kaldım. teşekkürler tekrar.