Sekmeyi Farklı Kaydet

[HarEndu]

merhaba,
excel dosyasının içinde sekmeler var 2 tane sekmeyi farklı kaydet komutuyla belirleyeceğim klasöre atmasını istiyorum. nasıl yardımcı olursunuz.
sekme adı 1; baha
sekme adı 2; sena
dosya yolu;C:\Users\MBAHADIR\Desktop\Yeni
baha için dosya adı; baha_günün tarihi
sena için dosya adı; sena_günün tarihi

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile işlemi bir kez yapın.
İhtiyacınız olan kodların ana şablonu oluşmuş olacak.

Sub makro başlığından sonra şu satırı ilave edin.
isim1 = "baha" & Format(Date, "ddmmyyyy")

Filename:= dosya yolunda yeni kısmından sonrasını şu şekilde değiştirin.
\yeni\" & isim1 & ".xls"

Makro kaydet ile oluşturduğunuz kodları burada da paylaşabilirsiniz.

. . .

 

[HarEndu]

sayı ekleme

aynı gün kaydedilen dosya için tarih sorun oluyor aynı gün için tarihten sonra sayı nasıl ekleyebilirim. yardımlarınız için çok teşekkürler...

 

[Emir Hüseyin Çoban]

Tarih formatına saat dakika eklenerek çözülebilir.
Format(now,"ddmmyyyy hh:mm")

 

[HarEndu]

Sub Makro2()
isim1 = "sena_" & Format(Date, "dd_mm_yyyy") & "_" & Format(Now, "ss")
Sheets("sena").Select
Sheets("sena").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\MBAHADIR\" & isim1 & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
MsgBox Klasor & Dosya_Adi & uzanti & " Dosyanız başarıyla kayıt edildi, Çalışmaya devam edebilirsiniz... "
Sheets("0").Select
End Sub
Sub Makro3()
isim1 = "baha_" & Format(Date, "dd_mm_yyyy") & "_" & Format(Now, "ss")
Sheets("baha").Select
Sheets("baha").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\MBAHADIR\" & isim1 & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("0").Select
MsgBox Klasor & Dosya_Adi & uzanti & " Dosyanız başarıyla kayıt edildi, Çalışmaya devam edebilirsiniz... "
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub Makro2()
isim1 = "sena_" & [COLOR="red"]Format(Now, "dd_mm_yyyy_hh_MM"[/COLOR])
Sheets("sena").Select
Sheets("sena").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\MBAHADIR\" & isim1 & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
MsgBox Klasor & Dosya_Adi & uzanti & " Dosyanız başarıyla kayıt edildi, Çalışmaya devam edebilirsiniz... "
[COLOR="Green"]'Sheets("0").Select ' ?[/COLOR]
End Sub

. . .