Textboxa girilen isimle yeni sayfa açmak.

[ozdogan]

Merhaba arkadaşlar.
Textbox1 e girdiğim isimle excelde yeni bir sayfa oluşturmak mümkünmü. Bu nasıl yapılır ve Yine bu textboxsa girdiğim ismi "DATA" adlı sayfamda A stunundan başlayarak kontrol etmek şartıyla ilk boş bulduğu sütünun 1. satırına ve v:2-v100 arasındada satır olarak ilk boş bulduğu satıra aktarabilirmiyiz.
bAŞTA BU FORMU OLUTURANLAR OLMAK ÜZERE BURDA BİZLERE YARDIMCI OLAN HERKESE MİNNETLERİMİ SUNARIM. çOK TEŞEKKÜRLER. kOLAY GELSİN.

 

[nziya]

Private Sub CommandButton1_Click()
isimgir = TextBox1.Text
Sheets.Add , After:=Sheets(Sheets.Count)
ActiveSheet.Name = isimgir
Sheets("DATA").Select
say = WorksheetFunction.CountA([a1:a65536])
Cells(say + 1, 1) = TextBox1
End Sub

 

[ozdogan]

Merhaba. Cevabınız için teşekkür ederim. Ama bir problem var. daha doğrusu üç problemdi. 1 ni siz hallettiniz. data sayfasında v1:v100 arasına ilk boş satıra textboxsumdaki veriyi aktarmasınıda ben halltettim. Ama yine data sayfamda A stunundan kontrol etmeye başlamak üzere aynı textboxsa girilen veriyi ilk boş SUTUNADA aktarsın istiyorum.