Sayfaya isim verip belirlenen klasörün altına kopyalamak

[udentr2002]

Merhaba arkadaşlar;
Format adında sayfa var.
- Bu sayfayı, masa üstünde yer alan "ROOM DATA" adlı klasörün altına kopyalayacak
- Sayfa ismini Combobox2 de yazan ismi verecek
- Dosya adı "Combobox2 de yazan ismi verecek.

Böyle bir şey olabilir mi?


Saygılarımla

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Dim d_adi As String

d_adi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\ROOM DATA\" & ComboBox2.Value & ".xlsx"

'If Dir(d_adi) <> "" Then Kill d_adi

Sheets("Format").Copy
ActiveWorkbook.SaveAs d_adi, xlOpenXMLWorkbook
ActiveWorkbook.Close 0

 

[udentr2002]

Merhaba,
Deneyiniz...

Dim d_adi As String

d_adi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\ROOM DATA\" & ComboBox2.Value & ".xlsx"

'If Dir(d_adi) <> "" Then Kill d_adi

Sheets("Format").Copy
ActiveWorkbook.SaveAs d_adi, xlOpenXMLWorkbook
ActiveWorkbook.Close 0

Hocam teşekkürler;

yeni dosyada yer alan sayfanın isminin de combobox1 de yazan veri olsa
nasıl değiştirebiliriz

 

[ÖmerBey]

Sheets("Format").Copy satırının altına ActiveSheet.Name = Combobox1.Value satırını ekleyiniz.

 

[udentr2002]

Sheets("Format").Copy satırının altına ActiveSheet.Name = Combobox1.Value satırını ekleyiniz.

Çok teşekkürler üstadım.
eline sağlık.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...