Filtre, kopyala

[soykan]

Ekteki dosya sayfa1 de datalarım bulunmakta. Sayfa 2 de Firm deki belirteceğim kritere göre 1. sayfada süzüp süzülen sütunları 2. sayfaya aktarmasını istiyorum.
Ancak sayfa2 de yeni yaratcağım data da sayfa1 deki "A" sütunu ve son sütun olmadan bilgileri getirsin istiyorum.

 

[Kemal Demir]

Merhaba,

Ek'teki dosyayı inceleyiniz.

 

[janveljan]

Selam ekteki dosyayı inceleyiniz

Sub Makro1()
    On Error Resume Next
    Range("A7:J65536").ClearContents
    Sheets("Sayfa1").Select
    Columns("A:J").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=Sheets("Sayfa2").Cells(1, 3)
    Columns("B:I").Select
    Selection.Copy
    Sheets("Sayfa1").AutoFilterMode = False
    Sheets("Sayfa2").Select
    Range("B7").Select
    ActiveSheet.Paste
    Rows("7:7").Select
    Selection.Delete Shift:=xlUp
    For i = 7 To [B65536].End(xlUp).Row
        Cells(i, 1) = i - 6
    Next
End Sub

 

[soykan]

deneme1 de herhangi bir şey gelmedi
deneme dosyası tam istediğim gibi çok teşekkürler elinize sağlık

 

[metbes]

Peki bunu 3 sayfa da tarih verilerek yapılabilirmi? veya tarih aralığı?

 

[janveljan]

deneme1 dosyasında firma adını girmeden süze bastığınız için hiçbirşey gelmemiştir, birde bir firma adı girip deneyin.