Sıfırdan Farklı Olanları Değer Olarak Kopyala

[Hsn55]

Merhabalar;
Ekli örnek dosyada değerler sayfasındaki butona bastığımızda Liste sayfasındaki A1:M1000 hücre aralığındaki verileri A sütunundaki sıfır olan satırlar atlayıp diğer tüm satırları sadece değer olarak sırası ile kopyalayıp , Değerler sayfasındaki S2 hücresindeki isimle masa üstüne yeni bir dosya ve Liste isminde sayfa olarak kaydedebilir miyiz Yardımcı olursanız sevinirim.

Hata indir

Hata

www.dosyaupload.com

 

[YUSUF44]

Günaydın.

Başka bir siteye yükleyebilir misiniz? Kurum internetimiz indirmeme izin vermedi.

 

[Hsn55]

Yusuf bey merhabalar, hangi siteye yükleme yapım

 

[Hsn55]

Bilgi

Bilgi

dosyam.org

 

[Hsn55]

Merhabalar;
1 nolu mesajıma yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Verileri_Yeni_Dosyaya_Aktar()
    Dim Yol As String, Dosya_Adi As String
    
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    Dosya_Adi = Yol & Sheets("Değerler").Range("S2").Value
    
    With Sheets("Liste")
        .Range("A1:M" & .Rows.Count).AutoFilter Field:=1, Criteria1:="<>0"
        .Range("A1").CurrentRegion.Copy
    End With
    
    Workbooks.Add (1)
    ActiveSheet.Paste
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Cells.Validation.Delete
    Columns.AutoFit
    ActiveSheet.Name = "Liste"
    Range("A1").Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Dosya_Adi & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    
    On Error Resume Next
    Sheets("Liste").ShowAllData
    On Error GoTo 0
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Hsn55]

Korhan bey çok teşekkür ederim

 

[Hsn55]

Korhan bey iyi geceler;
6.Nolu mesajda yapmış olduğunuz makro çok işime yarıyor. Lakin masa üstüne oluşturulan dosyayı açarken şöyle bir uyarı veriyor. "İçinde okunamayan bir içerik bulundu. Bu çalışma kitabını kurtarmak istiyormusunuz.Bu çalışma kitabının kaynağına güveniyorsanız eveti tıklayın diyor.
Bunun sebebi Liste sayfası Değerler sayfasından veri doğrulama yöntemi ile veri aldığından yeni oluşan dosya da böyle bir uyarı veriyor. Acaba makro masaüstüne oluşan yeni dosyada tüm bağlantıları keserek (Veri doğrulamayı) oluşabilir mi?.Makroyu bu şekilde düzenleyebilir misiniz

 

[Korhan Ayhan]

Kodu revize ettim. Deneyiniz.

 

[Hsn55]

Teşekkür ederim Korhan bey