çift fonksiyonlu buton

[cebelitarık]

Forumun değerli üyeleri
herkese hayırlı günler

Aşağıdaki iki makroyu tek butonla nasıl çalıştırabiliriz.
Yani bir basışta 1. makro çalışacak, bir dahaki basışta 2. makro çalışacak bu bu şekilde dönüşümlü olarak devam edecek.
Mümkünmüdür. Yardımlarınızı bekliyorum
Saygılar

1. Makro
Private Sub CommandButton1_Click()
Range("F11:G13,G44:H246,E31").Select
Selection.Font.ColorIndex = 2
Sheets("ARKAKAPAK").Select
Range("G1:H1,F15:G15,F22").Select
Selection.Font.ColorIndex = 2
Sheets("Sayfa1").Select
Range("N29").Select
End Sub

2. Makro
Private Sub CommandButton2_Click()
Range("F11:G13,G44:H246,E31").Select
Selection.Font.ColorIndex = 1
Sheets("ARKAKAPAK").Select
Range("G1:H1,F15:G15,F22").Select
Selection.Font.ColorIndex = 1
Sheets("Sayfa1").Select
Range("N29").Select
End Sub

 

[Orion1]

Togglebutton kullanınınız.True veya false durumuna göre istediğiniz makroyu çalıştırınız.

 

[cebelitarık]

Sayın Orion2
Bu çok çabuk ilginiz için çok teşekkür ederim
Bu işin biraz acemisiyim
basit bir örnekle açılayabilirmisiniz.

 

[Orion1]

Sayın Orion2
Bu çok çabuk ilginiz için çok teşekkür ederim
Bu işin biraz acemisiyim
basit bir örnekle açılayabilirmisiniz.

Ekli dosyayı inceleyiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    MsgBox "Birinci Makro çalıştı."
    'Birinci bastığınızdaki kodları buraya yazınız.
    Else
    MsgBox "İkinci makro çalıştı."
    'ikinci bastığınızdaki kodları buraya yazınız
End If
End Sub

 

[cebelitarık]

Sayın Orion2
İlginize teşekkür ederim.

 

[Orion1]

Sayın Orion2
İlginize teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[yalovam77]

selamlar çift fonksiyon oluyorsa excelde sayfa 1 de alt alta 7 tane tablomuz var diyelim bu tablolardan hangisinin başlık satırı hariç diğer hücrelerinin her hangi biri dolu ise sayfa 2 ye bir buton yapıp tek butonla bunları tablo tablo yazdırabilirmiyiz ? şimdiden teşekkür ederim

 

[yalovam77]

merhaba butonla ilgili bir önceki sorumu şu şekilde değiştireyim
eğer A10 boş değilse A1 ile C10 arasını yazdır
eğer A15 boş değilse A12 ile C20 arasını yazdır
eğer A23 boş değilse A22 ile C30 arasını yazdır
eğer A33 boş değilse A32 ile C40 arasını yazdır
eğer A43 boş değilse A42 İle C50 arasını yazdır
eğer A53 boş değilse A52 ile C60 arasını yazdır
eğer A63 boş değilse A62 ile C70 arasını yazdır

yani referans hücresi boş olmayan tabloları yazdıracak bu şekilde bir butona kod yazmak mümkünmü acaba acil lazım ilgilenirseniz memnun olurum şimdiden teşekkür ederim.

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
If [A10] <> "" Then [A1:C10].PrintOut
If [A15] <> "" Then [A12:C20].PrintOut
'Bu &#351;elide geli&#351;tiriniz.
End Sub

 

[yalovam77]

verdiğiniz kodu aşağıdaki şekilde değiştirip sayfa2 de bir butona atadım ama çalışmadı neden acaba

Private Sub CommandButton4_Click()
If Sheets("Sayfa1").[A10] <> "" Then [A1:R41].PrintOut Copies:=2
If Sheets("Sayfa1").[A53] <> "" Then [A44:R84].PrintOut Copies:=2
End Sub

 

[Seyit Tiken]

Sa&#287;daki kod sat&#305;rlar&#305;n&#305;da ilgili sayfay&#305; tan&#305;mlay&#305;p deneyin.

 

[yalovam77]

kusura bakmay&#305;n a&#351;a&#287;&#305;da dedi&#287;iniz &#351;ekilde yapt&#305;m ama yine &#231;al&#305;&#351;mad&#305;

Private Sub CommandButton4_Click()
If Sheets(Sayfa1).[A10] <> "" Then Sheets(Sayfa1).[A1:R41].PrintOut Copies:=2
If Sheets(Sayfa1).[A53] <> "" Then Sheets(Sayfa1).[A44:R84].PrintOut Copies:=2
End Sub

 

[baydeniro]

Sayın Evren Gizlen. Müsait olduğunuzda dosyayı tekrar yükleyebilirseniz çok memnun oluruz. Teşekkürler.

 

[uzmanamele]

Sayın Evren Gizlen. Müsait olduğunuzda dosyayı tekrar yükleyebilirseniz çok memnun oluruz. Teşekkürler.

merhaba

görünüm / araç çubuğu / denetim araç çubuğu
diğer denetimler / Microsoft Forms 2.0 ToogleButton

tasarım modundayken tooglebutton çift tıklatın ve syn Evren bey'in önerdiği kodları yazın.

 

[baydeniro]

Sayın uzmanamele yardımınız için çok teşekkür ederim. ToggleButton'a kod ataması nasıl yapılıyor ?

 

[aydın3838]

sayın serdar bey birde şu yol var

bunu derken EXCEL WEP TR nin en acemisi benim ustalara saygısızlık olmasın

sadece görüşüm biraz uğraştırır ama buda bir yöntem

örnek aşağıda