Excel VBA Commandbutton

[ertanatalar]

Herkese iyi çalışmalar. VBA da userformda bir commandbutton ekleyerek bu butona her tıkladığımda yeni sayfayı eklemesini istiyorum.
Bana bir kaç ip ucu verir misiniz? nette araştırayım. Bu konuda bir cevaba ulaşamadım.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Sheets.Add
End Sub

 

[ertanatalar]

Deneyiniz.

Private Sub CommandButton1_Click()
    Sheets.Add
End Sub

Deneyiniz.

Private Sub CommandButton1_Click()
    Sheets.Add
End Sub

Hocam önceden hazırlamış olduğum içinde hazır cümlelerin ve sayısal ifadelerin olduğu bir sheet'i combobox tan seçerek commandbutton ile eklemek istiyorum. Bu konuda da yardımcı olabilir misiniz?. Bu sorduğum sorulara yönelik cevaplar internette yok sanırım. Zengin bir kaynak billiyorsanız söyler misiniz? Çünkü dersleri sırayla öğrenerek zaman kaybetmek istemiyorum. Kaldı ki aradığım özellikleri anlatan bir yer de yok. İyi çalışmalar

 

[Korhan Ayhan]

Zengin kaynak bu vb. forumlardır. Doğru kelimelerle arama yaparsanız ve sabırlı olursanız kendinizi geliştirebilirsiniz.

Sizin ilk mesajınızdaki sorunuza ben doğru cevabı verdiğimi düşünüyorum.

Şimdiki mesajınızda ise var olan bir sayfayı seçerek eklemek istiyorum diyorsunuz. Sorularınızı doğru şekilde sorarsanız doğru cevaplar alırsınız. Gerekiyorsa örnek dosya ile desteklemelisiniz.

Ayrıca kod öğrenmek isteyen üyelerimiz için önerdiğimiz yöntem MAKRO KAYDET yöntemidir. Oluşan kodları kurcalayıp kendinizi geliştirebilirsiniz.

Var olan bir sayfayı kopyalayarak çoğaltmak için aşağıdaki kod işinize yarayabilir.

Private Sub CommandButton1_Click()
    Sheets(ComboBox1.Text).Copy After:=Sheets(Sheets.Count)
End Sub