Filtrelenen Verileri Diğer Sayfaya Yazdırma..

[aykara1907]

Merhabalar.

Örnek dosyada göründüğü gibi , SQL'den otomatik gelen bir veriler sayfam var.

Yapmak istediğim şey veriler sayfasındaki verileri , sayfa2 deki kıstasları kullanarak sayfa2'ye yazdırma.Biraz uğraştım tarih aralığı filtresini yapabildim fakat farklı sayfaya yazdıramadım. birde iki filtrelemeyi aynı anda kullanamadım.

Örnek dosya incelendiğinde daha iyi anlaşılacaktır.

Bu konuda henüz yeniyim , profesyonel arkadaşların yardımlarını bekliyorum.


Teşekkürler.

 

[Ömer]

Merhaba,

Linki inceleyiniz.

http://www.excel.web.tr/showthread.php?p=432359#post432359

.

 

[aykara1907]

Merhaba,

Linki inceleyiniz.

http://www.excel.web.tr/showthread.php?p=432359#post432359

.

Ömer Bey Merhaba..

Verdiğiniz linkteki örneği inceledim.

Filtrelemeyi yaptım.

Fakat diğer sheet'e filtrelenmiş verileri yazdıramadım.

Bir diğer hususta veriler tablosundaki satış elemanı kısmını filtrelerken , ordaki olan değerleri listbox'ta listeletmeyi başaramadım

Yeni örnek dosya ektedir.

Yardımlarınız ve yol göstereciliğiniz için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Eki inceleyin.

.

 

[aykara1907]

Ömer bey yardımınız için teşekkür ederim..

İstediğim şey olmuş fakat , küçük bir sorum olacak.

Listeletteğim verileri kullanarak ayrı bir sheet üzerinde formüller yapıyorum. Her listeleme yaptığımda formüller bozuluyor..

Bunun sebebi ne olabilir acaba..

Teşekkürler.

 

[Ömer]

Private Sub CommandButton1_Click()
Set S1 = Sheets("veriler")
son = S1.[A65536].End(3).Row
Rows("10:65536").ClearContents
    S1.Range("A1:C" & son).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:C3"), CopyToRange:=Range("A10"), Unique:=False
End Sub

Bu şekilde deneyin. Yine bozulma olursa hata aldığınız dosyayı ekleyiniz.

.

 

[aykara1907]

Teşekkür ederim hocam..

Sorun çözüldü.