Userformdan diğer sayfadaki button'u aktif hale getirme.

[Gold_Savt]

Sayfa3'te Userforma iki adet buton ekledim. bu butonlardan birine bstığımda,
Sayfa 1'i açıp oradaki CommandButton9'u aktif hale getirmesi lazım. Hata alıyorum.

UserForm1'de bulunan kodum şöyle:

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Activate
Worksheets("Sayfa1").Range("A1").Select
UserForm1.Hide

CommandButton9_Click
End Sub

 

[muygun]

Merhaba;
Doğru anladıysam Eki deneyin. (Kendi dosyanıza göre düzenleyin.)
İyi çalışmalar.

 

[Gold_Savt]

Diğer sayfaya geçiyor ama 9. button'a basmayı gerçekleştirmiyor hocam.

 

[PLİNT]

Merhaba
Sn muygun'un dosyasını görme imkanım yok ama yukarıdaki kodlarınıza göre
"CommandButton9_Click " yerine

Run ("Sayfa1.CommandButton9_Click")

çalıştırması gerek

 

[Gold_Savt]

Plint ilginiz için teşekkürler. Kodlar şu şekilde, malesef hata veriyor.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Sheets("Sayfa1").CommandButton9.Visible = True
Run ("Sayfa1.CommandButton9_Click")
End Sub

Private Sub CommandButton2_Click()
Sheets("Sayfa2").Select
Sheets("Sayfa2").CommandButton9.Visible = False
End Sub

Private Sub CommandButton9_Click()
MsgBox ("butona basıldı")
End Sub

 

[Seyit Tiken]

Sayın Gold, bu tür soruları kısa zamanda çözümü bulmak için örnek dosya yüklemek elzemdir, böyle iş uzar gider.

 

[Hepgel]

Merhaba @Gold_Savt
CommandButton1'in içindeki kodları module ekleyeceğiniz bir makro içerisine alarak kaydedin.
Ardından da ister sayfaya eklenmiş Activex düğmesi, istersede userformdaki düğme olsun bunun kodunda da module kaydedilen makroyu çalıştırabilirsiniz. Pratik olanı çözüm bence bu şekilde.

örneğin

Modudeki makro:
Sub YENI()
MsgBox "MERHABA"
End Sub

Sayfaya eklenen veya userformdaki  Commandbutton  için kod:
Private Sub CommandButton1_Click()
Call YENI
End Sub

 

[Gold_Savt]

Hepgel, dediğiniz mantıkta işlemi tamamlamış oldum. Teşekkür ederim.
Seyit TİKEN, Haklısınız bir sonraki sefere inşallah bir örnek dosya ile sormakta fayda var.
Emeği geçenlere teşekkür ediyorum.

 

[Hepgel]

Rica Ederim. Dönüş yaptığınız için teşekkür ederim.
İyi Çalışmalar.