Hücredeki Sipariş Numarasını Dosya Adı Yapma

[aysesk]

Merhaba
Excelde ilk sayfada sipariş notlarım mevcut onları düzenleyerek ikinci sayfaya aktarıyorum ve ikinci sayfayı csv olarak birinci sayfadan bir hücrenin adını alarak kaydetmesini istiyorum. Çok araştırdım fakat bulamadım.
Yardımcı olursanız çok sevinirim.
Teşekkürler

 

[turist]

Aşağıdaki kodu deneyin.

Sub CSVKaydet()
    Dim dosyam As String
    Dim gecicikitap As Workbook
    Application.DisplayAlerts = False
    On Error GoTo hata
    dosyam = ThisWorkbook.Path & "\" & Sheets("Sayfa1").Range("A6").Text & ".csv"
    ThisWorkbook.Sheets("Sayfa2").Activate
    ActiveSheet.Copy
    Set gecicikitap = ActiveWorkbook
    With gecicikitap
    .SaveAs Filename:=dosyam, FileFormat:=xlCSV, CreateBackup:=False
    .Close
    End With
hata:
    Application.DisplayAlerts = True
End Sub

Not:
Yukarıdaki kodda;
Çalıştığınız ilk sayfa "Sayfa1"
Aktarma yaptığınız ikinci sayfa ise "Sayfa2" olarak belirlenmiştir.
Dosya ismini almak istediğiniz hücre ise ; Sayfa1 deki "A6" hücresi'dir.
Buörneğe göre; sayfa isimlerinizi ve isim alacağınız hücre adresini kendinize göre değiştirebilirsiniz.