• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü isim girerek sayfa ekleme sorunu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Discreum

Yeni Üye
Katılım
21 Mar 2021
Mesajlar
152
Aldığı beğeni
37
Excel V
Office 2019 TR
Konu Sahibi
Sheets.Add After:=Sheets(Sheets.Count) bu kodu command butona ekleyince sayfa ekliyebiliyoruz tabi ama ben istiyorumki textboxa sayfanın ismini bildirerek yeni sayfa oluşturmak istiyorum böle bişey varmı
 
Konu Sahibi
1644129997942.png
malesef bu hatayı aldım ki ismini textbox dan alması lazım textbox la ilgili bir kod satırı yok sizin verdiğiniz kodda
 
Kodu düzelmiştim .sheets'ten önceki noktaları silip dener misiniz?
 
Sayfa adı yazan yer textbox adı yazilacak
Sadece kopyala yapıştır yapmayın, kodları anlamaya da çalışın, anlamadığımız yeri sorun açıklayalım
 
Konu Sahibi
doğru sölüyosunuz ama u kodda ztn textbox daki veriye göre sayfa oluşturma yok sadece tırnak içinde yazılan satır adında sayfa açıyor benim istediğim textbox da ne yazıyosa o isimde sayfa açılsın
 
Konu Sahibi
Sub Düğme1_Tıklat()
Dim isim As String
Dim cpt As Integer

cpt = 1
Do While cpt < 2 ' 1 sayfa ekler
' Sayfa ekler
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
' Sayfayı yeniden adlandır
isim = Sayfa2.TextBox1.Text
Application.ActiveSheet.Name = isim
cpt = cpt + 1
Loop
End Sub
malesef hata alıyorum gerekli yerleri düzenlememe rağmen
 
kodu denedim çalışıyor
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yerineHTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yazmanız yetreli
 
Çözüm
Konu Sahibi
kodu denedim çalışıyor
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yerineHTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yazmanız yetreli
teşekkür ederim kod çalışıyor zahmet veriyoruz ama bişey sorucaktım textbox boş olsa bile sayfa eklemeye devam ediyor butona basınca
 
If ile kontrol edebilirsinizHTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.

şu şekilde düzenledim ilgilenen herkeze teşekkür ederim bu kod sayfa ismini textboxdan girerek istenilen şekilde sayfa oluşturmaya yarıyor eğer birine lazım olursa şu şekliyle sorunsuzdur.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst