Excelde Macro ile Süzülmüş veri Başka Bir Sayfaya Kopyalandığında Gizlide Kalıyor

[cemilsenocak]

Excelde Macro ile Süzülmüş veri Başka Bir Sayfaya Kopyalandığında Gizlide Kalıyor.

Burada yapmaya çalıştığım şudur;

ODBC yoluyla bana lazım olan veriyi veri kaynağımdan çekiyorum. Ve çektiğim veriyi ham olarak MASTER sayfasına yapıştırıyorum.
İş bundan sonra başlıyor. KONTROL sayfasındaki Raporu Çalıştır butonuna bastığımda macro çalışacak ve istediğim süzmeler
sonucu ortaya çıkan verileri CARİLER sayfasına yazacak, Bu sayfada üste 2 boş satır ekleyecek ve orayada sütun toplamlarını
en üstte toplatacak.

Verileri MASTER sayfasında süzdükten sonra süzülen veriyi kopyala - özel değer ve biçim yapıştır diyerek CARİLER sayfasına normal koşullarda
yapıştırabiliyorum. FAKAT macro oluşturduğumda bu işlemi gerçekleştiremiyorum. Bu konuda yardımcı olabilecek biri varmıdır.

Daha sonrasında ise CARİLER sayfasında üst kısımda ne kadar veri geldiyse alt toplam aldırmak ta istiyorum.

Bu konuda yardım ederseniz memnun olurum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Not: Lütfen dosyalarınızı 2003 formatında kaydedip foruma ekleyin.

Option Explicit
 
Sub RAPOR()
    Application.ScreenUpdating = False
    Sheets("CARILER").Cells.Clear
    With Sheets("MASTER")
        .Range("A1:I1").AutoFilter Field:=3, Criteria1:="0,00"
        .Range("A1:I1").AutoFilter Field:=9, Criteria1:="0,00"
        .Cells.Copy
    End With
    Sheets("CARILER").Select
    With Range("A1")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
        .Select
    End With
    Rows("1:2").Insert
    Range("A1") = "CARİ LİSTE"
    Range("C1:I1").Formula = "=SUM(R[3]C:R[65535]C)"
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cemilsenocak]

Daha farklı cozumu olan varmıdır

bir onceki arkadas bu forum konuma yanıt yazmıs, fakat oradaki kodu ben zaten oluşturmustum. Umarım daha farklı cozumu olan bır arkadas yardımcı olabılır.

Ekte excel ornegını offie 2003 olarak tekrar ekledim..