sayfa ekleme

[sekand]

selamlar

sayfaadi = kayit.TextBox11 & TextBox13

For sayfa = 1 To Worksheets.Count
If Worksheets(sayfa).Name = sayfaadi Then
Worksheets(sayfaadi).Select
Range("a4").Value = 11

ElseIf Worksheets(sayfa).Name <> sayfaadi Then
Worksheets.Add
ActiveSheet.Name = sayfaadi
ActiveSheet.Select
Range("a4").Value = 111
End If
Next sayfa

eğer aynı sayfadan var ise sayfaadi ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak yukarıda ne kadar değişklik yaptım ne kadar uığraştım ise olmadı yardımlarınzı için tskler
saygılar

 

[danersin]

textbox'larla uğraşmamak için inputbox kullandım, onu değiştirirsiniz.
Kodunuzdaki hata elseif için şart döngü içinde kullandığınız için her halikarda sağlanmış oluyor. yani (ElseIf Worksheets(sayfa).Name <> sayfaadi Then ) bu satır sayfalardan birinde illaki sağlanır.


[vb:1:23a830a9c5]Sub sayfalar()
sayfaadi = InputBox("sayfaadi")
For sayfa = 1 To Worksheets.Count
If Worksheets(sayfa).Name = sayfaadi Then
Worksheets(sayfaadi).Select
Range("a4").Value = 11
Exit Sub
End If
Next sayfa
Worksheets.Add
ActiveSheet.Name = sayfaadi
ActiveSheet.Select
Range("a4").Value = 111
End Sub[/vb:1:23a830a9c5]

 

[sekand]

iddia ettiğim bu konuda (hızlı cevap) yine beni haklı çıkarıp cevabınızı çok kısa bir sürede verdiğiniz için çok teşekkür ederim
saygılarımla

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki gibide deneyebilirsiniz.

[vb:1:462019c867]sayfaadi = kayit.TextBox11 & TextBox13
On Error GoTo ilave
Sheets(sayfaadi).Select
Range("a4").Value = 11: Exit Sub
ilave:
Worksheets.Add
ActiveSheet.Name = sayfaadi
ActiveSheet.Select
Range("a4").Value = 111[/vb:1:462019c867]

 

[danersin]

Ben sizin kodunuz üstünden gitmiştim. Ã?zellikle çok sayfa varsa çalışmanızda Levent Beyin kodu daha hızlı çalışacağı için onu kullanmanızı tavsiye ederim.