textbox ta yazan veriye göre yeni excel açam

[soner54]

Arkadaşlar yaptığım çalışmada raporlama yapmam da gerekiyor ve textbox ta yazan veri ye yeni bir excel çalışmsını nasıl aça bilirim.

Teşekkürler.....

 

[ibrahim_44]

aşağıdaki kodu deneyiniz

Sub Yeni_Sheet()
Dim sayfa As Worksheet
ad = InputBox("Sayfa adını giriniz")
Set sayfa = Worksheets.Add
sayfa.Name = [ad]
Sheets("sayfa1").Select

End Sub

 

[soner54]

Sayfa Açmak değil yeni bir excel çalışması açmam gerek

 

[ibrahim_44]

sayfa1 de a1 hücresinde yazdığın isimle excel sayfası açar ve c nin altına kaydeder dediğin bunun gibi bir şeymi

Sub Yeni_kaydet()
Set s1 = Sheets("sayfa1")
s1.Copy
If s1.[a1] <> "" Then ActiveWorkbook.SaveAs "C:\" & s1.[a1] & ".xls"
End Sub

 

[ibrahim_44]

ekli dosyayı inceleyiniz