seçtiğim verileri yeni bir excele atma

[yok_06]

öncelikle herkeze merhaba bu site sayesinde güzel örnekler öğreniyorum. teşekkürler.

sorunum şu ekte excel örneği vardır.

butona bastığımda yeni bir excele
a b d e f j k satırlarını kopyalamasını istiyorum
ama bunu yaparken sadece telefon f dolu olanları alması lazım
yardımlarınız için şimdiden teşekkür ederim

http://s3.dosya.tc/server9/i0u7dv/deneme.rar.html

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Tamamen Makro Kaydet Yöntemiyle kodlar elde edilmiş ve kısa düzeltmeler yapılmıştır.

Sub Makro1()

    Dim i   As Long
    
    i = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    Application.ScreenUpdating = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$K$" & i).AutoFilter Field:=6, Criteria1:="<>"
    Columns("A:K").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("C:C,G:G,I:I").Delete
    Application.ScreenUpdating = True
    
End Sub

 

[yok_06]

çok teşekkürler sorunsuz çalıştı