Excel sayfa açma

[senselcuksen]

Arkadaşlar merhaba,

Yeni bir excel sayfasını açma ve istediğim klasöre kaydetmek istiyorum. bunun için kod desteğine ihtyacım var.

tşk

 

[senselcuksen]

mevcut kodum aşağıda

Dim kk
For j = 1 To 200
If Cells(4, j).Value = ComboBox1.Value Then

Sheets("format").Copy After:=Sheets(1)
ActiveSheet.Name = InputBox("DOSYA ADINI GİRİNİZ", _
"Yeni Sayfa Ad", "YeniSayfa Ekle")

kk = ActiveSheet.Name

burada yeni açacağım exceli aynı workbook içine değil de yeni bir workbook içine kaudetmek istiyorum.

 

[senselcuksen]

arkadaşlar cevap lütfennnn

 

[Explorer]

Merhaba,

Kodlarınız aşağıdakilere benzer birşey olmalı...

Sub Yeni_Sayfa()
    Dim Wb As Workbook
    Dim Sh As Worksheet
    
    Set Sh = Worksheets("format")
    Set Wb = Workbooks.Add
    
    Sh.Copy Before:=Wb.Worksheets(1)
End Sub