Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 06-02-2018, 20:50   #1
o2l3m
Altın Üye
 
Giriş: 02/03/2005
Şehir: Tekirdağ
Mesaj: 102
Excel Vers. ve Dili:
Microsoft Office 2016
Varsayılan Listbox Çoklu Seçme ve Aktarma

Userform 2 de resimdeki gibi filtre yaptıktan sonra Seç butonu ile fitrelenmiş tüm satırları önce seçmek istiyorum.

Sonra seçtiğim bu satırları JT sayfasına 25 satır şeklinde aktarıp print almak istiyorum.
Daha Sonra da formu tekrar boşaltıp kalan 25 adedi gönderip tekrar print aldıracak kodlara ihtiyacım var.

Excel dosya üzerinde de açıklamaları yazdım.

Elimden ancak bu kadar geliyor. İnanın sayenizde çok şeyler öğrenmekteyim.
Yardımlarınız için şimdiden çok teşekkür ediyorum.
Eklenmiş Resimler
Dosya Türü: jpg 1.jpg (167.0 KB, 14 Görüntülenme)
Eklenmiş Dosyalar
Dosya Türü: xlsm Proje 2.xlsm (115.5 KB, 12 Görüntülenme)
o2l3m Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 07:24   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

Öncelikle formunuzda bir tane tümünü seç butonu olması gerekmez mi? Yani eğer tümünü seçip sayfaya atacaksanız. Seçme işlemi olmadan süzülenlerin tamamını mı almak istiyorsunuz. Seçim filan yapmadan.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 07-02-2018, 07:38   #3
o2l3m
Altın Üye
 
Giriş: 02/03/2005
Şehir: Tekirdağ
Mesaj: 102
Excel Vers. ve Dili:
Microsoft Office 2016
Varsayılan

Seç butonu ile filtrelenmiş tüm satırları tümünü seç yaptırmak istiyorum sayın askm.
Doğrudur tümünü seçip sayfaya aktaracağım.

Ama Çıktı formu (JT) 25 satırlık bir form. Bunu da dikkate almak gerekiyor.
Teşekkürler,
o2l3m Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 07:47   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

O zaman listbox döngüsünü 1 den 25 e kadar yaparız. Yani sizin filtrelediğiniz alan 25 den fazla olsa bile sadece ilk 25 satırı alır sayfaya. Yalnız JT sayfasında olmayan değerler mevcut. Veri sayfasına göre hangi sütun hangi sütuna denk gelecek yazarsanız. Veri-E sütunu JT B-M aralığına gibi.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 07-02-2018, 08:39   #5
o2l3m
Altın Üye
 
Giriş: 02/03/2005
Şehir: Tekirdağ
Mesaj: 102
Excel Vers. ve Dili:
Microsoft Office 2016
Varsayılan

Veri E sütunu JT B-M Aralığına
Veri F sütunu JT N Sütunu
Veri H sütunu JT R Sütunu
Veri I sütunu JT U Sütunu
Veri J sütunu JT S4 HÜCRE
TextBox9 JT K3 HÜCRE
TextBox10 JT K4 HÜCRE
TextBox11 JT S3 HÜCRE
JT K5 HÜCRE JT U Sütunu Toplamı
JT K6 HÜCRE JT U Sütunu dolu satır sayısı
o2l3m Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 09:49   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

Dosyanız ektedir. Seç butonunu kaldırabilirsiniz. Alt tarafa buton ekledim.
Eklenmiş Dosyalar
Dosya Türü: xlsm o2l3m - Listbox çoklu seçme ve aktarma - Proje 2.xlsm (114.3 KB, 10 Görüntülenme)
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 07-02-2018, 11:45   #7
o2l3m
Altın Üye
 
Giriş: 02/03/2005
Şehir: Tekirdağ
Mesaj: 102
Excel Vers. ve Dili:
Microsoft Office 2016
Varsayılan

Sayın askm

Değerli katkılarınız için çok minnettarım.

Tümünü seç dediğimiz de ve aktar dediğimizde şablona 25 satır atıyor. Kalan satırları rekrar forma nasıl çekebiliriz. Acaba verileri önce geçici olarak baska bir sheet e alıp 25 satırı şablona oradan çeksek nasıl olurdu. Sonra printera çıktı gönderip kalan 25 satırı tekrar forma yüklesek. Döngü bu şekilde olabilir mi?

Aslında bu bir nevi operatör bazında gün sonu raporu olacağı için bu kurgu çok önemli.

Teşekkürler,
o2l3m Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 12:32   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

Dediğin gibi farklı bir sayfaya almakta olabilir. Seçilenler için kullanılmaya bir sütuna aktarıldı, x vb bir ifade ekleyip de ona göre verileri de alabilirsin. Bir kere JT sayfasına alınan tekrar formu açtığında gözükecek mi, gözükmeyecek mi?
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 07-02-2018, 12:55   #9
o2l3m
Altın Üye
 
Giriş: 02/03/2005
Şehir: Tekirdağ
Mesaj: 102
Excel Vers. ve Dili:
Microsoft Office 2016
Varsayılan

JT Sayfasına alınan veriden sonra yazıcı çıktısı alınacak. Bundan sonra formda veri görünmesi gerekmiyor.
Verilerim Veri sayfasında Saklı kalacak.
o2l3m Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 14:09   #10
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

Dosyanıza baktığımda dediğiniz gibi olabilmesi için listboxdan seçilen verinin Veri sayfasındaki sütunlarda benzersiz bir değerinin olması gerekir. Örneğin A sütunu boş. Buraya satır numarası yazdırabilirsiniz. Listbox sütun sayısını 10 a çıkartırsınız. İlk sütun 0 genişlikde olur. Yani gizlenmiş olur. Seçim yapınca .List(a, 0) değeri satır sumarasını verir.
Listboxa veri alırken de (Yani form yükleme komutunda) K sütunu boş olanları alır. K sütununa da Yazdırıldı ya da aktarıldı yazarsınız. Tabi bu sefer de RowSource ile değil de add.item ile veri almanız gerekir.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:27


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden