Çözüldü userformdan Rapor alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
A

arslanbey

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
İyi akşamlar ;
Döf takip programım var fakat rapor almak istiyorum işte tam o kısmı yapamadım.Yapmak istediğim Listview verileri tıkladığımda , veriler Textbox geldiğinde rapor butona bastığımda rapor sayfasındaki veriler istenilen yere gelip yazdırmak istiyorum.
Yardımlarınız için şimdiden teşekkürler...
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba, Eklemiş olduğunuz dosyada ne nereye gelecek şahsen tam alamadım.
Listviewde sütunlardaki veriler rapor sayfasında nerelere işlenecek ise oraları işaretleyin belli edin, rengini felan değiştirin mesela yada bir açıklama yapınız.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. Arslanbey;
-- Paylaşmış olduğunuz örnek dosyadaki Rapor isimli butonda Rapor.xls isimli dosyaya veri aktarma için kodlar bulunmaktadır.
-- Bu kodları aynı sayfada olacak şekilde değiştirmek istiyorsanız;
-- Örnek olması açısından ilk 4 TextBox için aşağıdaki kodları kullanabilirsiniz, diğer hücre ve nesneler içinde bu kodlara göre uygulama yapabilirsiniz.
-- Açıklamalar, satırların yanındadır.
VBA: 
You must log in to view content
(11 satır)
 
Oyla 0 Olumsuz oyla
Günaydın ;
İlginizden dolayı teşekkür ederim Rapor sayfasına gerekli bilgiler geldiğinde rapor sayfası sayfa ön izleme açılıp yazdırılmasını sağlayabilirmiyiz. Birde arslanbey sayfasına durum kısmına yazdırıldı yazabilirmiyiz.

Birde TextBox8 ile TextBox9 çıkartıp Textbox10 gün olarak nasıl yapabiliriz.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. Arslanbey;
Rica ederim.

-- Baskı Onizleme işlemi için aşağıdaki kodları End With satırının altına ekleyiniz.
-- Açıklamalar, satırların yanındadır.
VBA: 
You must log in to view content
(3 satır)


-- TextBox9 ile TextBox8 arasındaki farkı Textbox10 'da göstermek için aşağıdaki adımları uygulayınız;
** TextBox8 , TextBox9 ve Textbox10 'nun TabStop özelliğini False olarak seçmişsiniz, bu özelliği True olarak değiştiriniz.
TabStop.webp

-- Bu işlemden sonra aşağıdaki kodu UserForm'un kod bölümüne ekleyiniz.
Not: Tab tuşu ile nesneler arasında sıralı olarak ilerlemek için TabIndex özelliğindeki numaraları değiştirebilirsiniz.
VBA: 
You must log in to view content
(4 satır)



-- ListView 'e çift tıklama ile kayıtları ilgili bölümlere alınca, tarih farkını TextBox10 'a yazdırmak için;
-- ListView1_DblClick kodlarındaki TextBox10 = ListView1.ListItems(Y).ListSubItems(18).Text satırını şu şekilde değiştiriniz.
VBA: 
You must log in to view content
(1 satır)



Arslanbey' Alıntı:
Birde arslanbey sayfasına durum kısmına yazdırıldı yazabilirmiyiz.
Genişletmek için tıklayın ...
Arslanbey sayfasına Durum kısmı için hangi bölümü kullanıyorsunuz?:unsure:
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
İyi akşamlar Ahmet Bey ;
Kod: 
You must log in to view content
(4 satır)
Bu kod ile ListView 'e çift tıklama ile hesaplama yapıyor şunu yapabilir miyiz.
TextBox8 ve TextBox9 Tarihleri girdiğimde hemen TextBox10 hesaplama yaptırabilirmiyiz.

* Arslanbey sayfasına Durum ise R sutün kısmına yazdırılmasını istiyorum mümkünmü acaba...
* Tab tuşu ile nesneler arasında sıralı olarak ilerlemek için TabIndex özelliğindeki numaraları değiştirebilirsiniz.
Dediğiniz gibi Tabındex özelliğini değiştirdim ama sıralı bir şekilde ilerleme yapamadım.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn Arslanbey;

-- Private Sub TextBox9_Exit bölümü ListView 'e çift tıklama yapılınca çalışmaz.

** TextBox9_Exit 'in anlamı kod açıklamasında yazdığım gibi TextBox9 dan çıkış işlemi yapılınca yani İmleç başka bir nesneye geçince çalışır.

-- TextBox9_Exit kodlarını aşağıdaki gibi değiştiriniz.
* Change işlemi, nesneye veri girişi yapmaya başladığınızda çalışır.
-- Ancak kod içerisinde If (Eğer) ile belirttiğimiz şartları sağlaması gerekir.
VBA: 
You must log in to view content
(3 satır)


-- ListView 'e çift tıklama yapılınca çalışan kod bölümü ListView1_DblClick bölümü ve hesaplamayı yapan satır bir önceki mesajda paylaştığım
VBA: 
You must log in to view content
(1 satır)
satırıdır.


-- Tab tuşu ile nesneler arasında sıralı olarak ilerlemek için önce tüm nesnelerin TabStop özelliğini True olarak değiştirmelisiniz.
Daha sonra TabIndex için sıralama yapabilirsiniz.

-- Arslanbey sayfasında R sütununa TextBox10 içeriğini yazdırmak için Kaydet işleminde Cells(son, "R").Value = TextBox10.Value satırı var.
Örnek dosyada S sütunu boş, eğer asıl çalışma dosyanızda da boş ise Bu işlem için S sütununu kullanmak ister misiniz?
 
Oyla 0 Olumsuz oyla
Sayın @Arslanbey .

Yaşadığınız sorunların çözümünü bulmak için konu açtığınızda,
konuyla ilgilenen arkadaşlarımızın katkılarıyla çözüm yolunda katedilen mesafenin boşa gitmemesi bakımından;
foruma, gelinen son noktaya kadarki işlemlerin uygulandığı yeni bir örnek belge eklerseniz, konuyla ilgilenecek arkadaşlarımız,
konuyu en başından takip etmek, ilk örnek belgeye, soru-cevaplarla gelinen noktaya kadarki değişiklik/güncellemeleri uygulamakla
meşgul olmak yerine, kaldığınız yerden devam etme imkanı bulur diye düşünüyorum.

Bu aşamada bence;
Sayın @AhmetRasim 'in önerilerinin uygulandığı bir örnek belge ekleyip, sıradaki sorun/ihtiyacı kısaca açıklarsanız
daha iyi olur ve nihai çözüme daha hızlı ulaşabilirsiniz gibi görünüyor.

.
 
Oyla 0 Olumsuz oyla
Arslanbey' Alıntı:
Ahmet bey ;
ListView 'deki verilerden yazdırılmayan verileri sarı renkte yapabilirmiyiz.Yazdırılıan veriler ise beyaz renkte olabilirmi diyorum.
Genişletmek için tıklayın ...


Merhaba, Sayın @Arslanbey bu iş için Sayfanızda yardımcı sütün kullanmanız gerekiyor, hangi satırların yazdırıldığını bir yere belirtmek gerek.
Ben ekli dosyada S sütunu yardımcı alan olarak kullandım inceleyin.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Konuyu başlatan
A
arslanbey
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
15
Üst