farklı bir klasörün altına kopyalamak?

[udentr2002]

Merhaba arkadaşlar ekli dosuada da anlatmaya çalışltım excel sayfamdaki denetim araç çubuğundan oluşturduğum textboxa girdiğim isim adı ile yeni bir ecxel dosyası açıp bu yeni açılan excel dısyasını da C sürücüsünün altında Yeni Klasör ismi ile zaten var olan klasörün altına kopyalayacak aynı isimle açmış olduğu excel dosyasında sayfa ismi açacak olan bir kodu nasıl yazabilirim. Şimdiden ilgilenen arkadaşlarıma teşekkür ederim

 

[bedersu]

Sub sayfa_ekle()
isim = Sheets("Sayfa1").TextBox1.Value
Workbooks.Add
Sheets.Add
ActiveSheet.Name = isim
ActiveWorkbook.SaveAs Filename:="C:\Yeni Klasör\" & isim
End Sub

 

[udentr2002]

hocam

ilgilendiğiniz için teşekkür ederim kodunuz çalışıyor ama ben kendi dosyama uyarlayamadım yeniden size ekli bir dosya gönderip orda daha açıklayıcı olarak anlattım ilgilenebilrseniz çok sevineceğim

 

[Zeki Gürsoy]

Sub kopya()
Set w = Workbooks.Add
w.Sheets(1).Name = "Format"
ThisWorkbook.Sheets("Format").Cells.Copy w.Sheets("Format").[a1]
w.SaveAs Filename:="C:\Yeni Klasör\kopya.xls"
w.Close
End Sub