Formülün vba karşılığı nedir?

[mustafakoker]

Selam

=EĞER(A7="";"";TOPLA($D$4:D7)-TOPLA($E$4:E7))

bu formulun vba karşılığı nedır acaba kaydet butonuna bastığımda F sutununa yazacak satır doldukça alt satıra kayıt yapacak

yada formülü vba koduna çeviren bir eklenti vardı yine bu forumdan indirmiştim ama arşivimde bulamadım

elinde olan arkadaşımız varsa paylaşabilirmi?

 

[mustafa1205]

Bu olabilir mi ?
Makro kaydet tuşuna tıklayın.
Sayfa üzerinde bu formülün olduğu hücreyi seçin ve F2 tuşuna ardından ENTER tuşuna basın.
Makro kaydını durdurun.
ALT+F11 ile kod penceresini açın.
Formülünüzün makro karşılığı karşınıza gelecektir

 

[mustafakoker]

sevgili adaşım öncelikle yardımın için teşekkürler
bende aynı şekilde denedim ama f sutununa formulu yazıyor ve alt sutuna geçince değişiklik yok her satırda gelir-giderden kalan bakıyeyı otomatık olarak versın istiyorum

'
' bakıye Makro
'

'
    Range("F7:F25").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]="""","""",SUM(R4C4:RC[-2])-SUM(R4C5:RC[-1]))"
    Range("F7:F25").Select
    Range("F8").Activate

 

[Mustafa MUTLU]

Option Explicit
Sub Topla()
[F2] = "=Sum(D4: D7)"
[F3] = "=Sum(e4:e7)"
[F1] = [F2] - [F3]
Range("F2:F3").Select
Selection.ClearContents
Range("f1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Bunu Denermisiniz..

 

[İhsan Tank]

Selam

=EĞER(A7="";"";TOPLA($D$4:D7)-TOPLA($E$4:E7))

bu formulun vba karşılığı nedır acaba kaydet butonuna bastığımda F sutununa yazacak satır doldukça alt satıra kayıt yapacak

yada formülü vba koduna çeviren bir eklenti vardı yine bu forumdan indirmiştim ama arşivimde bulamadım

elinde olan arkadaşımız varsa paylaşabilirmi?

Bence sizin için en iyi çözüm yolu tıklayın

 

[mustafakoker]

ben en iyisi dosya ekliyeyim açıklamayı da içine yadım

kayıt butonuna bastığımda formul yerıne kod active olacak
sonrakı kayıt için yine devam edebileceğim

 

[İhsan Tank]

ben en iyisi dosya ekliyeyim açıklamayı da içine yadım

kayıt butonuna bastığımda formul yerıne kod active olacak
sonrakı kayıt için yine devam edebileceğim

Merhaba
Kodu yazdım ama bir şey dikkatimi çekti 0 ( sıfır )'dan küçük olanlar boyanacak mı_?

 

[mustafakoker]

hayır o satırlar boyalı değil hücre biçimlendirmede -1234,10 şekli seçili
yanı bakıye eksıye düştüğünde belli olsun dedım

 

[İhsan Tank]

hayır o satırlar boyalı değil hücre biçimlendirmede -1234,10 şekli seçili
yanı bakıye eksıye düştüğünde belli olsun dedım

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub bakiye_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo
trabzonspor = MsgBox("Kasa Bakiyelerini Çıkarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Set bordo = Sheets("KASA")
For ts = 4 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
bordo.Cells(ts, "F") = WorksheetFunction.Sum(Range("D4:D" & ts)) - _
WorksheetFunction.Sum(Range("E4:E" & ts))
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Bakiyeleri Çıkarttım", , "Bitiş - www.excel.web.tr"
End Sub

 

[mustafakoker]

teşekkur ederim İhsan Bey
yanlış anlamazsanız eğer bazı değişiklikler yapacagım
onay mesajını ve süre kısmı sileceğim
çünkü kayıt dediğimde sadece bakıye kısmını göstersin istiyorum

onay mesajkarı kayıt kodunda var

yardımlarınızdan dolayı tekrar teşekkür eder hayırlı akşamlar dilerim

 

[İhsan Tank]

teşekkur ederim İhsan Bey
yanlış anlamazsanız eğer bazı değişiklikler yapacagım
onay mesajını ve süre kısmı sileceğim
çünkü kayıt dediğimde sadece bakıye kısmını göstersin istiyorum

onay mesajkarı kayıt kodunda var

yardımlarınızdan dolayı tekrar teşekkür eder hayırlı akşamlar dilerim

Rica ederim
Kod artık benim değil istediğinizi yapabilirsiniz.
:keyif: