Yardım yeni sayfa oluşturma

[RockClimber]

Merhaba Arkadaşlar
Özgün bir müşteri takip sistemi yapmak istiyorum ve bir problem ile karşılaştım. Firma ekle butonuna bastığımda bir userform açılıyor ve burdan verileri girdikten sonra belirttiğim bir sayfaya kaydediyor. Benim istediğim ise userformdan aldığı verileri sabit bir forma yerleştirip bunuda textbox1 de yer alan isim ile yeni sayfa olarak kaydetmesidir. Kaç gündür bir çözüm bulamadım. Yardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
RowCount = Worksheets("FirmaEkle").Range("A1").CurrentRegion.Rows.Count
With Worksheets("FirmaEkle").Range("A1")
.Range("D1").Value = TextBox1.Value
.Range("D2").Value = TextBox2.Value
.Range("D3").Value = TextBox3.Value
.Range("D4").Value = TextBox4.Value
.Range("D5").Value = TextBox5.Value
.Range("D6").Value = TextBox6.Value
.Range("D7").Value = TextBox7.Value
.Range("D8").Value = TextBox8.Value
.Range("D9").Value = TextBox9.Value
.Range("D10").Value = TextBox10.Value
.Range("D11").Value = TextBox11.Value
.Range("D12").Value = TextBox12.Value
.Range("D13").Value = ComboBox2.Value
.Range("D14").Value = TextBox13.Value
.Range("D15").Value = TextBox14.Value
.Range("D16").Value = TextBox15.Value
.Range("D17").Value = TextBox16.Value
.Range("D18").Value = TextBox17.Value
.Range("D19").Value = TextBox18.Value
.Range("D20").Value = TextBox19.Value
.Range("D21").Value = TextBox20.Value
.Range("D22").Value = TextBox21.Value
.Range("D23").Value = TextBox22.Value
.Range("D24").Value = TextBox23.Value
.Range("D25").Value = TextBox24.Value
.Range("D26").Value = TextBox25.Value
.Range("D27").Value = TextBox26.Value
.Range("D28").Value = TextBox27.Value
.Range("D29").Value = TextBox28.Value

Unload Me

End With

End Sub

 

[askm]

Aşağıdaki kodlar ile sayfa ekleyebilirsiniz.

Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1.Text