Makro ile toplama işlemi

[gedavet]

Iyi çalışmalar dilerim formül yazan bu iki sütundaki formülün işlemini makro ile yaptırmak istiyorum
yardımlarınız için şimdiden teşekkür ederim

 

[Emir Hüseyin Çoban]

Merhaba,

İşlemi bir buton ile mi yoksa işlemi yaptığınız anda mı çalıştıracaksanız.

 

[Levent Menteşoğlu]

Mustafa bey, K sütunundaki toplam ödenen değeri olarak iskontoyu ödenen miktar ile toplatmışsınız. Burada bir yanlışlık yokmu?

 

[gedavet]

Hüseyin bey otomatik olarak toplayacak
leventbey işlem şu şekilde ödenen miktarı yazınca birde iskonto oranı yazıyoruz ve bu rakamdan iskonto hesaplıyor ve toplam ödenen ile iskonto miktarı ikisinin toplamını alacak

 

[Levent Menteşoğlu]

Sayfa1'in kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H5:I65536]) Is Nothing Then Exit Sub
sat = Target.Row
Cells(sat, "j") = Cells(sat, "I") * Cells(sat, "H")
Cells(sat, "k") = Cells(sat, "J") + Cells(sat, "H")
End Sub

 

[gedavet]

levent bey ilginiz için çok teşekkür ederim ancak ödenen miktara 408 yazıyorum iskonto oranınada 2,04 yazıyorum iskonto miktarını 8,3232 çıkıyor iki haneli olamazmı yani 8,32 olsa

 

[Mahir64]

mrb

Levent bey teşekkür ederim bende sebeplendin elinize sağlık.

mustafakoza bey yuvarlama için hücre biçimlendir>sayı burdan ayarlayabilirsiniz.

 

[gedavet]

ilginiz için teşekkür ederim ancak sayının 8,3232 görünmesi sayı biçiminden 2 ye ayarlıyorum görünüşde 8,32 görünüyor ancak hücreye tıklayınca 8,3232 görünüyor buda 8,32 görünmezmi

 

[s.savas]

ilginiz için teşekkür ederim ancak sayının 8,3232 görünmesi sayı biçiminden 2 ye ayarlıyorum görünüşde 8,32 görünüyor ancak hücreye tıklayınca 8,3232 görünüyor buda 8,32 görünmezmi

Selam
aşağıdaki gibi yapabilirsiniz.

Cells(sat, "j").NumberFormat = "#,##0.00"

Cells(sat, "k").NumberFormat = "#,##0.00"

 

[gedavet]

Cells(sat, "j") = Cells(sat, "I") * Cells(sat, "H")
Cells(sat, "k") = Cells(sat, "J") + Cells(sat, "H")

SAVAŞ BEY BU İKİ KODUN YERİ
Cells(sat, "j").NumberFormat = "#,##0.00"
Cells(sat, "k").NumberFormat = "#,##0.00"

BUNLARI YAPIŞTIRDIM OLMADI TAM OLMASI GEREKTİĞİ GİBİ KODU VEREBİLİRMİSİNİZ

 

[s.savas]

Cells(sat, "j") = Cells(sat, "I") * Cells(sat, "H")
Cells(sat, "k") = Cells(sat, "J") + Cells(sat, "H")

SAVAŞ BEY BU İKİ KODUN YERİ
Cells(sat, "j").NumberFormat = "#,##0.00"
Cells(sat, "k").NumberFormat = "#,##0.00"

BUNLARI YAPIŞTIRDIM OLMADI TAM OLMASI GEREKTİĞİ GİBİ KODU VEREBİLİRMİSİNİZ

Ekteki dosyayı incelermisiniz.

 

[gedavet]

Savaş bey yin eiskonto miktarını 8,3232 gösteriyor 8,32 olmazmı

 

[s.savas]

Savaş bey yin eiskonto miktarını 8,3232 gösteriyor 8,32 olmazmı

İlgili kodu aşağıdaki gibi değiştirin.

If Intersect(Target, [H5:I65536]) Is Nothing Then Exit Sub
sat = Target.Row
Cells(sat, "j") = Round(Cells(sat, "I") * Cells(sat, "H"), 2)
Cells(sat, "k") = Round(Cells(sat, "J") + Cells(sat, "H"), 2)

 

[gedavet]

Savaş bey çok teşekkür ederim emeğinize sağlık

 

[s.savas]

Savaş bey çok teşekkür ederim emeğinize sağlık

Önemli değil.
İyi çalışmalar.

 

[gedavet]

iyi günler ekdeki dosyada formül yerine makro ile hasaplama yapıyor ancak "J" "K" "SÜTUNLARINDA ÜNLEM İŞARETİ ÇIKIYOR neden olabilir çözümü varmıdır veya nasıl yapılır yardımlarınız için teş.