Bir butona üç kod ekleme

[zfr10]

Selam arkadaşlar sayfamdaki formülü makro yöntemiyle koda çevirdim ama üç ayrı buton eklemem gerekiyor.Bu kodları userform üzerinde otomatik olarak nasıl çalıştırabilirim.Kodlar sayfada mevcuttur. Yardımlarınızı bekliyorum.
Saygılar...

 

[İhsan Tank]

Merhaba
Dosya ekler misiniz bu şekilde yardım zor

 

[zfr10]

dosyam ektedir.

 

[Mustafa MUTLU]

Kod larına isim veriyorsun

Sub İsim1()
1. Kodun
End sub

Sub İsim2()
2. Kodun
End sub

Sub İsim3()
3. Kodun
End sub

Şimdi Kodları bir düğmeye atamak için

Sub Kodlarıçalıştır()
call İsim1
call İsim2
call İsim3
End sub

Bu Kadar...

 

[zfr10]

Mustafa Bey kodları dediğiniz gibi düzenledim ama birinci sütunda hata veriyor.Neden olabilir.

 

[Mustafa MUTLU]

Örneğin Kodların aşağıdaki gibi varsayalım.

Private Sub CommandButton1_Click()
[A1] = 1
[B1] = 0
End Sub

Private Sub CommandButton2_Click()
[A2] = E
[B2] = H
End Sub

kodların başındaki Private sözcüğünü kaldıralım
CommandButton_Click yerinede kısa olsun diye Kod1 ve Kod2 yazalım :

Sub Kod1 ()
[A1] = 1
[B1] = 0
End Sub

Sub Kod2 ()
[A2] = E
[B2] = H
End Sub

Şimdi
Kodları Atayacağımız düğmeye bu kodu ekliyoruz.

Private Sub CommandButton1_Click()
call Kod1
call Kod2
End Sub

İki kod da çalışır.