• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Özel yazdırma ve hesaplama makrosu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
T

talebeyim

Yeni Üye
Katılım
8 Ara 2022
Mesajlar
118
Aldığı beğeni
13
Excel V
Office 2019 TR
Arkadaşlar elimde benim çok zamanımı alan bir tablo var
buna yazdırma otomatik yazdırma ve formülleri makrayo çevirmem lazım
Lğtfen bana yardımcı olabilirmisiniz

Teşekkür ederim.

Not: Her yazdırma seçeneğini seçmeden önce .... .... sayfaları yazdırıyorsunuz. Eminmisiniz evet/hayır uyarı vermesi lazım.

Eğer yazdırma esnasında ekrana şuanda 3. yazdırıyorum şuanda 4. yazdırıyorum gibi bir mesaj verebilirse yada progresss bar gibi birşey çıkabilirse çok güzel olabilir.
Ekran görüntüsü 2023-01-12 231510.jpg
 

Ekli dosyalar

Tarihe göre sırala Oylara göre sırala
Data sayfasındaki Düğmelere ait kodlar aşağıda deneyin. İstediğiniz gibi ise diğer sayfayı hazırlamaya çalışacağım.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Yazdır sayfası için Form açılınca Bir ListBox'a kayıtlarda neyi yazdıracağını belirten (sıra no, isim, TC no gibi) sütun bilgileri gelse, tümünü yazdırmak istediğinizde seçim yapmadan yada ListBox'da seçtiğiniz kayıtları yazdırsa olur mu?
 
Olumlu oy 0 Negatif oyla
Alicimri' Alıntı:
Yukarıdaki kodları düzelttim.
Genişletmek için tıkla...
İlginizden ötürü çok teşekkür ederim. Emeğiniz var olsun.
Fakat kodlar çok sorunlu çalışıyor.

Örnek Form başlıklarını siliyor, sıra numarası koymuyor.
sayfayı verilerle dolduruyorum ama sadece ilk satırı hesaplıyor.

Yazdırma için ise bu sürekli bir form olacak o nedenle
ya tek tek yazdırabilme
ya iki sayı arasını yazdırabilme
yada tek tuş ile tamamını yazdırabilme tasarrufum olması gerekiyor.
Ve her yazdırmadan sonra bir sonraki isim satırına geçmeli
eğer olursa şart değil yazdırma sırasında şu satırdaki şu ismi yazdırıyorum kalan isim 100/98 gibi bir progress bar olursa çok iyi olur.
 
Olumlu oy 0 Negatif oyla
DATA sayfasındaki açıklamada "A1:S2002 ve Q1:S1 Hücrelerini Temizlesin". diye belirttiğiniz için Form başlıklarını siliyordu.
Ekteki dosyadaki Liste kutusunda hiç seçim yapmazsanız sorarak EVET tıkladıkça tüm hepsini yazdırmaya başlıyor..
Listbox'da seçimler yaptığınız taktirde bu kayıtları sorarak EVET tıkladıkça yapmaya başlıyor.
HAYIR tıklayınca yazmayı kesiyor.
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Alicimri' Alıntı:
Yukardaki dosyayı yeniledim. DATA sayfasında sıra numarası verilmiyordu.
Genişletmek için tıkla...
Alicimri bey, ilginiz için teşekkür ederim.


Abi çok fazla hata alıyorum aldığım hataları resimlerle aktarıyorum size.


Sayfayı temizle dediğimde tamamını temizledi. ama veri eklediğim ve hesapla dediğim zaman h2 resmindeki gibi kaldı ekranım.

Yeni verileri girip temizle dediğim zaman ise h4 resimdeki gibi kaldı ekranım.

Yazdırma ekranına geldiğim zaman user formu çağırdığımda arka planda yazıları sildi. iki kayıt var dedi ve arka plandaki yazıları sildi. h1.

yazıcıdan çıktı aldığımda hem bilgiler sıfır geldi hemde yazıyla bir kısmı çıktı tamamı çıkmadı h2


Ali bey en başından birlikte ele alabilirmiyiz.

Benim ilk gönderidiğim userform şeklinde yazıcı çıktısı almam gerekecek. yani satırları tek tek yazdırmam gerekecek.
 

Ekli dosyalar

  • h4.jpg
    h4.jpg
    237.6 KB · Gösterim: 3
  • h2.jpg
    h2.jpg
    46.7 KB · Gösterim: 3
  • h1.jpg
    h1.jpg
    115.6 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
Haklısınız, verileri silmeden denemiştim.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Data sayfasının kod modülünde yukarıdaki satırı, aşağıdaki gibi değiştirin, yani 17 yi 16 yapın.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Not: H4.jpg resminde veriler, 5 satırdan itibaren başlamış, 3 satırda başlaması gerekmiyor mu?
 
Olumlu oy 0 Negatif oyla
Alicimri' Alıntı:
Haklısınız, verileri silmeden denemiştim.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Data sayfasının kod modülünde yukarıdaki satırı, aşağıdaki gibi değiştirin, yani 17 yi 16 yapın.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Not: H4.jpg resminde veriler, 5 satırdan itibaren başlamış, 3 satırda başlaması gerekmiyor mu?
Genişletmek için tıkla...
Evet 3. Satırdan başlatmıştım ama temizleme oraya kadar geldiği için size öyle gözüküyor.
Alicimri bey şimdi şöyle bir hata ile karşılaştım.


Sayfayı doğru temizliyor.
Sayfaya veri girdiğimde doğru hesaplıyor.
fakat sayfaya hiç veri girmeden hesapla dediğimde aşağıdaki gibi bir hata ile karşılaşıyorum.
Sonra temizle butonuna bassam bile temizlemiyor.

Ayrıca sayfa temizlemeye birden fazla bastığımda O sütunu ve başlıkları tamamen temizliyor.
Hiç veri girmeden temizle ve hesapla butonlarına birden fazla basarmısınız.

a1.jpga2.jpg
 
Olumlu oy 0 Negatif oyla
Alicimri bey teşekkür ederim. Data sayfası tamam.
Yazdırma sayfasında şöyle kaymalar var..
1.test.jpg



User Formda ise şu şekilde değişiklik yapabilirmiyiz.

Tc kimlik numarasının başına Oradaki sıra numarası.
ve tek tek seçme özelliği ile yazdırmak gerektiği zaman kaç tane kişi seçtiysek

örnk: 15 15 kişi seçtiniz saydırmak istediğinize eminmisiniz ?
eğer kişi seçmezsem 1000 kayıtları yazdırmak istiyorsunuz eminmisiniz?
diye yazdırabilirmiyiz?

2.test.jpg
 
Olumlu oy 0 Negatif oyla
İnce Çizgi olmaz ama aşağıdaki kod belki kayıtları daha belirgin yapar UserFormun Initialize olayının End Sub satırının üstüne aşağıdaki kodu yapıştırın.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
 
Olumlu oy 0 Negatif oyla
Alicimri' Alıntı:
Module1 de alttan 4 satırı aşağıdaki gibi değiştirin.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Genişletmek için tıkla...
Tamam dediğinizi denedim ve oldu diğerleri için
Alicimri' Alıntı:
İnce Çizgi olmaz ama aşağıdaki kod belki kayıtları daha belirgin yapar UserFormun Initialize olayının End Sub satırının üstüne aşağıdaki kodu yapıştırın.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Genişletmek için tıkla...
Ali bey yazı için teşekkür ederim Tam oturdu.
USerformda eklenen check box biraz daha boğdu zaten tc ve isimler birbirine geçtiği için çok okunmuyor. (örnek gönderdim)

User formşu şekilde yapabilirmiyiz.

En başta sıra numarası Sonra Tc kimlik numarası ve adı soyadı.
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Ali bey emeğinize sağlık çok güzel oldu. Birde tek tek yazdırırken evet/hayır sormaması için kodu nasıl değiştirebilirim.

Yazdırmadan önce açıklama şeklinde belirttiğim yerler yanlış gelmiş oraya o bilgiler gelebilirmi.

Allah razı olsun sayenizde bambaşka bir şey oldu.
1.test (1).jpg
 
Olumlu oy 0 Negatif oyla
Tek tek yazdırmada istediğinizi yaparsak bir bu kadar kod yazmak lazım.
Yanlış gelme yok.........
#1 nolu mesajınızdaki resim ve örnek dosyanızdaki gibi geliyor.......
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst