fark bulma işlemi

[adslboy]

Selamlar,

yapılması istenilen işlemi örnek doyada yazdım.

Teşekür ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Listeleme işlemi örneğinizdeki gibi 2. satırdan başlamaktadır. Eğer siz 1. satırdan başlamasını istiyorsanız kodda kırmızı renkle belirttiğim bölümleri silin.

Option Explicit
 
Sub FARKLARI_LİSTELE()
    Dim X As Long, Y As Byte
 
    Range("W2:AR65536").ClearContents
 
    For X = 1 To Range("A65536").End(3).Row - 1
        For Y = 1 To 22
            Cells(X [COLOR=red]+ 1[/COLOR], Y + 22) = Cells(X + 1, Y) - Cells(X, Y)
            If Cells(X [COLOR=red]+ 1[/COLOR], Y + 22) < 0 Then Cells(X [COLOR=red]+ 1[/COLOR], Y + 22) = Abs(Cells(X[COLOR=red] + 1[/COLOR], Y + 22)) & "-"
            If Cells(X [COLOR=red]+ 1[/COLOR], Y + 22) > 0 Then Cells(X [COLOR=red]+ 1[/COLOR], Y + 22) = Cells(X [COLOR=red]+ 1[/COLOR], Y + 22) & "+"
        Next
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[adslboy]

Kod gayet güzel çalışıyor emeğinize sağlık. Teşekürler..