Dosya adını hücre den almak

[k0081]

Merhaba arkadaşlar;

Private Sub CommandButton4_Click()
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"D:\Deneme\[B]malzemelist[/B].xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select

bu verdiğim kodda malzemelist.xls olarak buton yardımı ile tablodan yedek alıyorum.. Yapmak istediğim : malzemelist yazan dosya adının C19 hücresinden alınması.. ( C19 her yeni hesaplamada değişik isimde oluyor.. )

yardımcı arkadaşa şimdiden teşekkürler..

 

[İhsan Tank]

Merhaba arkadaşlar;

Private Sub CommandButton4_Click()
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"D:\Deneme\[B]malzemelist[/B].xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select

bu verdiğim kodda malzemelist.xls olarak buton yardımı ile tablodan yedek alıyorum.. Yapmak istediğim : malzemelist yazan dosya adının C19 hücresinden alınması.. ( C19 her yeni hesaplamada değişik isimde oluyor.. )

yardımcı arkadaşa şimdiden teşekkürler..

Merhaba

Private Sub CommandButton4_Click()
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"D:\Deneme\"& range("C19") &".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select

Bu şekilde dener misiniz_?

 

[k0081]

Merhaba

Private Sub CommandButton4_Click()
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"D:\Deneme\"& range("C19") &".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select

Bu şekilde dener misiniz_?

Tamamdır... İhsan hocam. Çok teşekkürler..

 

[İhsan Tank]

Tamamdır... İhsan hocam. Çok teşekkürler..

Rica ederim
:keyif:

 

[k0081]

Rica ederim
:keyif:

Hocam bu kodla ilgili bir şey daha sormak isityorum.. Tabloyu yedeklediğimde, Yeni oluşan excel tablosunda sütun genişliklerim, yedekleme yaptığım tabloda ki gibi değil..???

 

[İhsan Tank]

Hocam bu kodla ilgili bir şey daha sormak isityorum.. Tabloyu yedeklediğimde, Yeni oluşan excel tablosunda sütun genişliklerim, yedekleme yaptığım tabloda ki gibi değil..???

Makro kaydet ile sütun genişliği rakamınızı bulun ve kod ile uyarlayın.
Not: Bu konudaki sorular konu başlığı ile aynı olmalı farklı sorularımızı lütfen farklı konu açarak soralım.

 

[gencpen]

6 sene sonra bu konu çok işime yaradı.
Aynı konu ile ilgili birde ben soru sorabilirmiyim.
Sayfaya kaydet butonu ekledim ve makro uygulayarak sayfayı b3 hücresinden aldığı isim ile pdf formatında kaydettim. Ama bir sorun var kladörde aynı isim ile başka bir pdf dosyası var ve içeriğini değiştirip onun üzerine kaydediyor. Bunu aynı isim ile kaydederken uyarı verme olasılığı varmı. yada isim aynı ise sonuna numara versin.

Sub Kaydet()
'
' Kaydet Makro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\PC\Desktop\Cam Balkon Programı\" & Range("B3") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

 

[Mahmut Bayram]

Bir öneri:
pdf ismine güncel saat dk sn ekleyebilirsiniz.

 

[gencpen]

Bir öneri:
pdf ismine güncel saat dk sn ekleyebilirsiniz.

Bunu otomatik olarak yapması lazım çünkü klasörde çok fazla dosya olacak dosya adlarını hatırlayamam.
Nasıl olacağı konusunda fikriniz varmı?

 

[Mahmut Bayram]

Kodunuzun
Range("B3") kısmını silip aşağıdaki gibi değiştirin.

Range("B3") & Format(Now, "hh.mm")

 

[gencpen]

Kodunuzun
Range("B3") kısmını silip aşağıdaki gibi değiştirin.

Range("B3") & Format(Now, "hh.mm")

Kusura bakmayın buna birda tarih eklersek nasıl yazmak gerekecek mesela
bugünü örnek alalım ( 17.05.2017.17.56 ) gibi

 

[Mahmut Bayram]

Range("B3") & Now

yeterlidir.

 

[gencpen]

Range("B3") & Now

yeterlidir.

Böyle hata verdi

 

[Mahmut Bayram]

Allah Allah
şöyle deneyin

Range("B3") & Format(Now, "dd.mm.yyyy hh.mm")

 

[gencpen]

Allah Allah
şöyle deneyin

Range("B3") & Format(Now, "dd.mm.yyyy hh.mm")

Çok teşekkür ederim bilgiler için sorun halloldu.