Formülü VBA çevirme

[finike]

Excellde yapmış olduğum tabloda kullandığım 2 adet formülü VBA makrosu olarak değiştirmek istiyorum hücreye değer girilince formülümü VBA ile hesaplatıp satırın karşısındaki hücreye yazdırmak istiyorum.
Yardımlarınız için şimdiden çok teşekkür ederim.
Saygılar.

.=EĞER(A12="";"";ALTTOPLAM(9;$G$4:G12)-ALTTOPLAM(9;$H$4:H12))
.=EĞER(I12="";"";EĞER(ALTTOPLAM(9;$G$4:G12)-ALTTOPLAM(9;$H$4:H12)<0;"A";"B"))

Dosyam ekte..

 

[İhsan Tank]

Excellde yapmış olduğum tabloda kullandığım 2 adet formülü VBA makrosu olarak değiştirmek istiyorum hücreye değer girilince formülümü VBA ile hesaplatıp satırın karşısındaki hücreye yazdırmak istiyorum.
Yardımlarınız için şimdiden çok teşekkür ederim.
Saygılar.

.=EĞER(A12="";"";ALTTOPLAM(9;$G$4:G12)-ALTTOPLAM(9;$H$4:H12))
.=EĞER(I12="";"";EĞER(ALTTOPLAM(9;$G$4:G12)-ALTTOPLAM(9;$H$4:H12)<0;"A";"B"))

Dosyam ekte..

merhaba
Sayfa2'nin kod bölümüne kopyalayın

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:H65536")) Is Nothing Then Exit Sub
Dim ts, kaplan
For ts = 4 To Cells(65536, "A").End(xlUp).Row
If Cells(ts, "A") <> "" Then
Cells(ts, "I") = WorksheetFunction.Subtotal(9, Range("G4:G" & ts)) - _
WorksheetFunction.Subtotal(9, Range("H4:H" & ts))
End If
If Cells(ts, "I") <> "" Then
If WorksheetFunction.Subtotal(9, Range("G4:G" & ts)) - _
WorksheetFunction.Subtotal(9, Range("H4:H" & ts)) < 0 Then
Cells(ts, "J") = "A"
Else
Cells(ts, "J") = "B"
End If
End If
Next
End Sub

değişiklik olduğunda otomatik hesaplamayı yapar

 

[Ömer]

Merhaba,

Alternatif olsun.

Sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [A4:A65000]) Is Nothing Then Exit Sub
 
    With Target
 
        Range("I" & .Row) = "=IF(A" & .Row & "="""","""",SUBTOTAL(9,G4:G" _
                            & .Row & ")-SUBTOTAL(9,H4:H" & .Row & "))"
 
        Range("J" & .Row) = "=IF(I" & .Row & "="""","""",IF(I" _
                            & .Row & "<0,""A"",""B""))"
    End With
 
End Sub

.

 

[finike]

İlginize çok Teşekkür ediyorum. İstediğim gibi çalıştı.
Saygılar.

 

[İhsan Tank]

İlginize çok Teşekkür ediyorum. İstediğim gibi çalıştı.
Saygılar.

rica ederim
Ömer Hocam'ada Teşekkür Ederim
:yazici: