Deniz_Excel
Altın Üye
- Katılım
- 15 Mart 2016
- Mesajlar
- 134
- Excel Vers. ve Dili
- MS Excel 2016
- Altın Üyelik Bitiş Tarihi
- 23-10-2026
Herkese selam. Advanced filter yöntemi ile kopyalamak istediğim TÜM FİRMALAR isimli sekmedeki tablodan BİRİNCİL isimli sekmeye TÜM FİRMALAR isimli tablodaki A kolonunda "Aslan" yazanlar kopyalanmalı. Aşağıdaki kod tüm tabloyu alıp kopyalıyor. Ancak ben dediğim gibi sadece Aslan yazanları kopyalasın istediğim için kriteri nasıl eklemem gerektiğini yapamadım. Yardımcı olabilecek var mıdır?
Sub copy_with_advanced_filter()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim lastRow As Long
' kaynak çalışma sayfasını belirle
Set wsSource = ThisWorkbook.Worksheets("TÜM FİRMALAR")
lastRow = wsSource.Cells(wsSource.Rows.Count, "D").End(xlUp).Row
Set wsDest = ThisWorkbook.Worksheets("BİRİNCİL")
' Advanced filter ile kaynak veri aralığını filtrele
wsSource.Range("A1:H" & lastRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsDest.Range("A1:H1"), Unique:=False
End Sub
Sub copy_with_advanced_filter()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim lastRow As Long
' kaynak çalışma sayfasını belirle
Set wsSource = ThisWorkbook.Worksheets("TÜM FİRMALAR")
lastRow = wsSource.Cells(wsSource.Rows.Count, "D").End(xlUp).Row
Set wsDest = ThisWorkbook.Worksheets("BİRİNCİL")
' Advanced filter ile kaynak veri aralığını filtrele
wsSource.Range("A1:H" & lastRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsDest.Range("A1:H1"), Unique:=False
End Sub