bir hücredeki rakamı takip eden hücrelere hesaplatmak

[hikmet]

Merhaba, kullandığım dosyada aşağıda verdiğim bir makro ile kayıt yapıyorum.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Range("ap1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("Ap2").Value = "" Then
Range("Ap2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, -41).Value = TextBox1.Value
ActiveCell.Offset(0, -40).Value = TextBox2.Value
ActiveCell.Offset(0, -39).Value = ComboBox1.Value
ActiveCell.Offset(0, -38).Value = TextBox3.Value
ActiveCell.Offset(0, -37).Value = TextBox4.Value
ActiveCell.Offset(0, -36).Value = TextBox5.Value


End Sub

bu makroda Textbox5 e bir rakam giriyorum ve "f" sütununa kaydediyorum. Buraya kadar işlem sorunsuz.bundan sonra yapmak istediğim "f" sütunundaki kaydedilen sayıyı "g" sütununa hesaplatarak kayıt etmek. bu kaydı yaparken formül e sütunu*0,05-f sütunu. bu şekilde ap sütununa kadar hesaplaması gerekli. Değişmeyen iki veri olmalı. birincisi e sütunu diğeri de çarpan sabiti 0,05 rakamı. nasıl yapabiliriz? ilginize şimdiden teşekkür ederim.

 

[kundakci]

Merhaba

Örnek dosyayı incelermisiniz

Yazdıklarınızdan anladığım

G sütunu için =(E*0,05)-F sutunu
H sütunu için =(E*0,05)-G sutunu
I sütunu için =(E*0,05)-H sutunu

gibi yapıldı

Kolay gelsin

 

[hikmet]

kundakçı hocam örnek için teşekkür ederim mantık olarak gayet güzel olmuş.elinize sağlık. fakat bir sorunum var.hesaplamaları yaparken bir hücre + çıkıyorsa diğeri - çıkıyor. bunu önlemek için otuzbeşinci hücreden birinci hücre olan f hücresine doğru mu hesaplatmalıyız.

 

[hikmet]

Merhaba, sn.kundakçı'nın verdiği öreği yeniden düzenlemek istedim ama malesef olmadı. mantık olarak doğru ama uygulamaya geldiğinde çıkmaması gereken değerler çıkıyor. ek'te verdiğim örnek dosyada açıklama yaptım. lütfen yardımcı olurmusunuz.ilginize teşekkür ederim.

 

[kundakci]

Merhaba


Makrodaki hata

Ondalık ayracının makroda (.) excelde (,) olarak işlem görmesindendir

Bir function ekleyerek sorunu hallettim

Dene sonucunu yaz

Kolay gelsin

 

[hikmet]

sn.kundakçı hocam, sorunu çözdüğünüz için daha doğrusu baştan sona makroyu yazdığınız için teşekkür ederim. elinize sağlık. ilgililenen herkese teşekkürler.