bakiye formülü hakkında

[unutkan]

ekli dosyada belirtiğim formül vba da yazılabilir mi . yardımlarınızı bekliyor ve iyi çalışmalar diliyorum

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub bakiye()
For i = 4 To Selection.SpecialCells(xlCellTypeLastCell).Row
    [d3] = [b3] - [c3]
    Cells(i, 4) = Cells(i, 2) - Cells(i, 3) + Cells(i - 1, 4)
Next
End Sub

 

[unutkan]

çok teşekkür ederim. iyi çalışmalar

 

[Safiye Genc]

bakiye listesi

ben bakiye listesini açamıyorum.

 

[hamitcan]

Eki inceleyin.

Sub bakiye()
For i = 3 To [a65536].End(3).Row
    [d2] = [b2] - [c2]
    Cells(i, 4) = Cells(i, 2) - Cells(i, 3) + Cells(i - 1, 4)
Next
    For i = 2 To [a65536].End(3).Row
         If Cells(i, 4) = 0 Then
            Cells(i, 5) = "*"
        ElseIf Cells(i, 4) < 0 Then
            Cells(i, 4) = Cells(i, 4) * -1
            Cells(i, 5) = "A"
        Else
            Cells(i, 5) = "B"
        End If
    Next
End Sub