Tüm Satırı koşula Göre Taşıma

[ahmzlm]

Merhaba Üstadlar,

Her ay çalıştığım 46 sütunluk bir veri geliyor elime.
İstediğim şu ki;
Bu 46 sütunluk tablodan AA sütununda "7000" gördüğü tüm satırları çeksin ve ana tablonun yanına, 2 sütun boşluk bırakarak ana tablonun başlıklarını da alarak yeni bir liste oluştursun.
Satır sayısı aydan aya değişiyor, 200 olduğu da oluyor 800 olduğu da

Şimdiden tşk.

 

[ahmzlm]

Yardımcı olabilecek biri var mıdır acaba?

Tşk.

 

[ahmzlm]

Aslında tekrar tekrar yazmak istemiyorum ama bugün lazım bana

Tşk

 

[Ömer]

Merhaba,

Dosyanızda ana tablo var mı? Olmasını istediğiniz tabloyu çalışmanıza ekleyip sonuçlandırarak açıklayınız.
Sorularınızı ne kadar özen göstererek hazırlarsanız cevapta aynı doğrultuda hızlı ve net gelecektir.

.

 

[veyselemre]

Böyle birşey mi istiyorsunuz?

Sub Makro1()
    Range(Columns("AL:AL"), Columns("AL:AL").End(xlToRight)).ClearContents
    With [AA1].CurrentRegion
        .AutoFilter Field:=27, Criteria1:="7000"
        .Copy [am1]
        .AutoFilter
    End With
End Sub

 

[ahmzlm]

Merhaba,

Dosyanızda ana tablo var mı? Olmasını istediğiniz tabloyu çalışmanıza ekleyip sonuçlandırarak açıklayınız.
Sorularınızı ne kadar özen göstererek hazırlarsanız cevapta aynı doğrultuda hızlı ve net gelecektir.

.

Uyarı için teşekkür ederim.

Düzenleyip tekrar göndereceğim.