Tablolarda Alt Toplam Aldırma Vba İle

1 2 3 4 5 6 7
01/03/2021, 17:56

feraz

Rica ederim akşam bakayım abey.
01/03/2021, 20:07

feraz

Alttaki siteden Api ile hangi tuşa basılırsa diye konu var ordan aldım Tab kodunu.Başka tuş kullanırsanız değiştirebilirsiniz.
Dosyanız hazır bir deneyiniz.



https://wellsr.com/vba/2017/excel/GetAsy...s-pressed/
02/03/2021, 00:54

ercansahiner61

Sayın Feraz bey son kez rahatsız ediyorum, iyi geceler,

Paylaşım sayfası verileri garame_tablo sayfasından alıyor. dolayısı ile sonuçlar yanlış hesaplanıyor

Paylaştırma bedeli (D5) hücresine “Paylaştırmabedeli” adı verildikten sonra formülü aşağıdaki gibi düzenlenecek,

"=IFERROR(IF(Paylaştırmabedeli>Alacak_Toplamı_paylaşım,RC[-1],RC[-1]*Paylaştırmabedeli/Alacak_Toplamı_paylaşım),"""")"

ben kod üzerinde yapmaya çalıştım kayıtlı olmasına rağmen, temizle düğmesine bastığımda alt toplam satırı dahil hepsini temizliyor.
Mıcrosoft Visual Basic for Applications hatası veriyor.

İlk açılışta temizle düğmesine basman önce giriş yapıldığında 7. Sıradan sonra altta satır açmıyor.
son kez ilgilenirseniz memnun olurum. olmuyorsada uğrnaşmayalım,
kolay gelsin.
02/03/2021, 07:26

feraz

Tamam abey akşama bakarım.Formülü sizin eklediğinizi eklemiştim koda makro kaydet ile sonuç alıp.

(02/03/2021, 00:54)ercansahiner61 yazdı: Sayın Feraz bey son kez rahatsız ediyorum, iyi  geceler,

Paylaşım sayfası verileri garame_tablo sayfasından alıyor. dolayısı ile sonuçlar yanlış hesaplanıyor

Paylaştırma bedeli (D5) hücresine “Paylaştırmabedeli” adı verildikten sonra formülü aşağıdaki gibi düzenlenecek,

"=IFERROR(IF(Paylaştırmabedeli>Alacak_Toplamı_paylaşım,RC[-1],RC[-1]*Paylaştırmabedeli/Alacak_Toplamı_paylaşım),"""")"

ben kod üzerinde yapmaya çalıştım kayıtlı olmasına rağmen, temizle düğmesine bastığımda alt toplam satırı dahil hepsini temizliyor.
Mıcrosoft Visual Basic for Applications hatası veriyor.

İlk açılışta temizle düğmesine basman önce giriş yapıldığında 7. Sıradan sonra altta satır açmıyor.
son kez ilgilenirseniz  memnun olurum. olmuyorsada uğrnaşmayalım,
kolay gelsin.
Sheetchange kıdunu silip formülü ekleyin doğru sonuç çıkacakmı sizde.Temizleme olayını 11.satırdan yaparız ve 10.satırda,formüllü hücreler kalır diğerlerini temizleriz zor değil abey.
02/03/2021, 16:49

ercansahiner61

formülü değiştirdiim anca değişen oladı
02/03/2021, 16:54

feraz

(02/03/2021, 16:49)ercansahiner61 yazdı: formülü değiştirdiim anca değişen oladı
Son halini ekleyin akşam bakayım.Sayfada açıklama yalın abey.
1 2 3 4 5 6 7