Yeni bir dosya oluşturma

[efeboral]

yeni bir dosya oluştura tıkladığımda dosyanın adı sayfadaki herhangi bir hücrenin değeri olabilirmi?
Ayrıca yine yeni bir dosya oluştur dediğimde nrojegroups\abc nin içine kayıt edebilirmi?

 

[szaim]

Sn.Efeboral bu kodu kendinize uyarlayın..

Private Sub CommandButton1_Click()
'Aşağıdaki satırda a1 yerine dosyaya ismini atıyacağı hücreyi belirtin.
dosya = Range("a1").Value & ".xls"
'Aşağıdaki satıra "C:\" kısmına klasörünüzün tam yolunu yazın.
ThisWorkbook.SaveAs ("C:\" & dosya)
End Sub

 

[efeboral]

Teşekkür ederim szaim, elinize sağlık.

 

[efeboral]

Sheets("Data").Select
Sheets("Data").Copy
dosya = Range("l4").Value & ".xls"
ThisWorkbook.SaveAs ("c:\temp" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & dosya)

bu kod çalıştığında yeni birsayfa olarak kayıt yapıyor ama o an kullandığım dosyanın bir kopyasını oluşturuyor.Kitap1 diye bir dosya daha açıyor o benim istediğim gibi sadece data sheetini kopyalıyor ama
dosya = Range("l4").Value & ".xls"
ThisWorkbook.SaveAs ("c:\temp" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & dosya)

bu olayı yapmıyor.Sanıyorum "saveas" değilde başka bir şey yazmak gerekiyor.

 

[Levent Menteşoğlu]

savecopyas olarak deneyin.

 

[efeboral]

kodu çalıştıramadım object hatası veriyor.

 

[Levent Menteşoğlu]

Yapmak istediğiniz tam olarak nedir?