userform ile otomatik olarak sayfa ekleme

[sbkst]

iyi gunler

userform ile otomatik olarak kaydettigim bilgilerin ayrica kendi adi ile sayfa acilmasini istiyorum

bu konuda yardimci olabilirmisiniz

TextBox a yazdigim bilginin ayrica sayfa olarak eklenmesi yani

TextBox taki bilgiyi kaydetmek icin yazdigim kod asagida




Sayfa2.Select
For i = 1 To 1
If Controls("textbox" & i) = "" Then
MsgBox "Veri Girişleri Eksik. Lütfen Tamamlayınız!", vbInformation, "Hata"
TextBox1.SetFocus
Exit Sub
End If
Next i
Son_Dolu_Satir = Range("B65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Range("A" & Bos_Satir).Value = Son_Dolu_Satir + 0
Range("B" & Bos_Satir).Value = TextBox1.Text
TextBox1.Text = ""


ActiveWorkbook.Save
MsgBox " Kayit yapilmistir "

End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
On Error GoTo hata
Sheets.Add
ActiveSheet.Name = TextBox1.Text
Exit Sub
hata:
MsgBox "Bu sayfa ismi daha önce verilmiş", vbInformation
End Sub

 

[sbkst]

tesekkur ederim yardimlariniz icin