AccessTr.neT
Tablolarda Alt Toplam Aldırma Vba İle - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablolarda Alt Toplam Aldırma Vba İle (/konu-tablolarda-alt-toplam-aldirma-vba-ile--88108.html)

Sayfalar: 1 2 3 4 5 6 7


RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 01/03/2021

Rica ederim akşam bakayım abey.


RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 01/03/2021

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.

[Resim: do.php?img=10751]

https://wellsr.com/vba/2017/excel/GetAsyncKeyState-vba-to-wait-until-a-key-is-pressed/


RE: Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 02/03/2021

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.


RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 02/03/2021

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.


RE: Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 02/03/2021

formülü değiştirdiim anca değişen oladı


RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 02/03/2021

(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.