sayfalar arası süz ile otomatik aktarma

[styla]

Selam herkeze..

Benim yapmak isteddiğim çalışma sayfasından süz ile işlem yaptıgımda geriye kalan tum verılerın otomatık olarak dıger sayfaya aktraılması. tum başlıklar ve tablolar halınde. ılk sayfada mesela 3 adet fırma seçtim diger sayfaya otomatık olarak bu 3 fırmanın herşeyi ile aktarılması yapılabılırmı?. bu konuda yardımcı olursanız şimdiden teşekkur ederımm...

ve ek olarak mesela 3 adet çalışma sayfasından suz yaptıgımda kalanları otomatık olarak 4. bi sayfaya sıralamam mumkunmu?

ofis programın versiyonu 2007

 

[styla]

konu hakkında yardımcı olucak yok mu?

 

[janveljan]

Süz işleminden sonra sayfayı kopyalar, yeni sayfada gizli satırları siler ve tekrar numaralandırır.

Sub Makro2()
    On Error Resume Next
    Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    For i = [B65536].End(xlUp).Row + 1 To 1 Step -1
    If Rows(i).Hidden = True Then Rows(i).Delete
    Next
    ActiveSheet.Shapes("AutoShape 8").Delete
    If Cells(6, 2) <> "" Then
    For i = 6 To [B5].End(xlDown).Row
    Cells(i, 1) = i - 5
    Next
    End If
    ActiveSheet.ShowAllData
End Sub

 

[styla]

çok teşekkür ederim. istediğim gibi çok işimi yarıcak.

bir de ek olarak birden fazla sayfada yaptıgım süzleri ortak bi sayfada toplam imkanım olabilirmi..

yani 1. sayfadan 10 firma, 2. sayfadan 10 firma, 3. sayfadan 10 firma, 4. sayfada ise bunların toplamı 30 firmayı görebilirmiyim??

 

[assenucler]

Sayın janveljan;

Benim de işime yaradı. Teşekkürler.

 

[styla]

4 sayfadan toplam almayı yapabılırmıyız. Her sayfada aktarıma basınca genel listeye oluşturabılırmıyız...???

 

[janveljan]

Birkaç kere süzüp aktar dedikten sonra genel düğmesine basınca, aktarılan sayfaları genel toplam adında bir sayfada birleştiriyor.

 

[styla]

emeğin için çok tşk ederim... süper oldu valla