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
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