makro ile dosyayı farklı kaydederken dosya adını koşula göre yazdırma

[OoParadiSeoO]

Arkadaşlar merhaba,

Makro ile dosyayı farklı kaydetmek istiyorum. Bunu yaparken dosyanın isminin dosyadaki son satır sayısının olması gerekiyor. örneğin dosyanın son satırı 50 ise dosyayın ismi 50 data olacak şekilde kaydetmeli. Mümkün müdür?

 

[Emir Hüseyin Çoban]

. . .

Farklı kaydetme işlemini yaparken dosya yolunu her defasında kendiniz mi seçmek istiyorsunuz yoksa dosya yolu sabit mi ?

. . .

 

[OoParadiSeoO]

Dosya yolu sabit hüseyin bey.

 

[hamitcan]

Sub Kaydet()
    a = ActiveSheet.UsedRange.Rows.Count
    ThisWorkbook.SaveAs a & "Data"
End Sub

 

[Emir Hüseyin Çoban]

. . .

Alternatif,

Sub kod()

yol = "D:\"
isim = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row & " Data"
    ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    
End Sub

. . .

 

[OoParadiSeoO]

Hüseyin bey denedim dosyayı farklı olarak makroyla birlikte kaydediyor. xlsx olarak kaydetmesini sağlayabilirmiyiz?

 

[Emir Hüseyin Çoban]

Hüseyin bey denedim dosyayı farklı olarak makroyla birlikte kaydediyor. xlsx olarak kaydetmesini sağlayabilirmiyiz?

. . .

Şu şekilde deneyiniz.

Sub kod()
    Application.DisplayAlerts = False
    yol = "D:\"
    isim = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row & " Data"
    ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsx", _
        [B]FileFormat:=xlOpenXMLWorkbook[/B], CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

. . .

 

[OoParadiSeoO]

Teşekkürler hüseyin bey şuan oldu yalnız dosyadaki son satıra bakarken B sütununa bakması gerekiyor. After:=[A1], ifadesini After:=[B1], olarak değiştirip denedim yalnız istenilen sonucu alamadım..

 

[Emir Hüseyin Çoban]

. . .

Sadece B sütunu ise daha kolay, isim satırını şu şekilde değiştirin.

isim = cells(rows.count, "B").end(3).row & " Data"

. . .

 

[OoParadiSeoO]

Şimdi oldu teşekkür ederim. Bu dosyadaki verileri farklı kaydederken F sütununa filtreleme işlemi yaparak filtreli alanı farklı kaydetmek istiyorum. Filtre Kriterimiz istanbul olacak. Yani F sütununda istanbul olanları filtreleyerek farklı sayfaya aktaracak.. Satır sayısı olarak kopyaladığı alanın satır sayısını almalı.. Konuların karışmaması için ayrı ayrı sormak istedim..