Call komutuyla istediğim makro çalışmıyor?

[bistrobellman]

Call komutuyla aşağıdaki makronun çalışmasını nasıl sağlarım?


Private Sub CommandButton9_Click()
If ....
.
.
.
End Sub

CALL CommandButton9 ----> hata veriyor??

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:d1d40a5f90]Call CommandButton9_Click[/vb:1:d1d40a5f90]

 

[bistrobellman]

Call CommandButton9_Click

satırına yünlendirme yapıp sarı renge boyuyor


Sub or Function not defined ....

hatası veriyor ya...

 

[bedersu]

İyi de arkadaşlar burada bir hata yok mu?,olay zaten CommandButton9_Click.Siz burada bu olayın içinde tekrar CommandButton9_Click'i çağırıyorsunuz.eğer yapılmaya çalışılan CommandButton9_Click olayının tekrarlanmasıysa , neden next döngüsünü kullanmıyorsunuz?yoksa istenen olayı ben mi anlamadım?

Farklı bir CommandButton_Click olayına call CommandButton9_Click yazılırsa çalışır.Eğer farklı bir click olayından call CommandButton9_Click deniyor ve çalışmıyorsa CommandButton9_Click kodlarında bir hata vardır.Sizin vermiş olduğunuz hata kodundan Sub ya da function 'ın belirtilmemiş olduğu anlaşılıyor.

call CommandButton9_Click kodunu da bir butona yazmalısınız.

 

[Exelans]

Ben şöyle anlıyorum.

Private Sub CommandButton9_Click()
If ....
.
.
.
End Sub

CALL CommandButton9 ----> hata veriyor??

Buna före Command butona ait olan kodların içinde değil de başka bir yerde kullanıyor Call komutunu. Çünkü arada bir End Sub komutu var.
Bu durumda Call komutu ile değil de aşağıdaki örnekteki gibi yapalım.
Sayfa üzerine 2 buton koyalım ve kodlarını yazalım.

Private Sub CommandButton1_Click()
Range("B1") = [B1] + 2
CommandButton2.Value = True
End Sub

Private Sub CommandButton2_Click()
Range("A1") = [B1] + 5
End Sub

 

[bistrobellman]

Call UserForm2.CommandButton9_Click
komutu ile sorunum çözüldü.yardımlarınız için tşkler