Toggle Buttona Makro atama

[kemalist]

Arkadaşlar aşağıda bulunan iki ayrı kodu ToggleButton ile nasıl çalıştırabiliriz.İlk bastığımızda Makro 1 ikinci bastığımızda Makro 2 çalışsın.

Sub Makro1()
'
' Makro1 Makro
'

'
Range("M14").Select
ActiveCell.FormulaR1C1 = "=R[1]C-(R2C13/10)"
Range("M14").Select
Selection.AutoFill Destination:=Range("M5:M14"), Type:=xlFillDefault
Range("M5:M14").Select
Range("M16").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+(R3C13/10)"
Range("M16").Select
Selection.AutoFill Destination:=Range("M16:M25"), Type:=xlFillDefault
Range("M16:M25").Select
Range("L29").Select
End Sub


Sub Makro2()
'
' Makro2 Makro
'

'
Range("M14").Select
ActiveCell.FormulaR1C1 = "=R[1]C+R2C13/10"
Range("M14").Select
Selection.AutoFill Destination:=Range("M5:M14"), Type:=xlFillDefault
Range("M5:M14").Select
Range("M16").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-(R3C13/10)"
Range("M16").Select
Selection.AutoFill Destination:=Range("M16:M25"), Type:=xlFillDefault
Range("M16:M25").Select
End Sub

 

[Emir Hüseyin Çoban]

. . .

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Call Makro1
    Else
        Call Makro2
    End If
End Sub

. . .

 

[kemalist]

. . .

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Call Makro1
    Else
        Call Makro2
    End If
End Sub

. . .

kod çalışmıyor
maro1 ile makro2 yi kodun içine yerleştirirmisiniz?
Teşekkürler.

 

[kemalist]

Bu kod neden çalışmıyor
Sub Düğme1_Tıklat()

If ToggleButton1 = True Then
ToggleButton1.Caption = "1"
Range("M14").Select
ActiveCell.FormulaR1C1 = "=R[1]C-(R2C13/10)"
Range("M14").Select
Selection.AutoFill Destination:=Range("M5:M14"), Type:=xlFillDefault
Range("M5:M14").Select
Range("M16").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+(R3C13/10)"
Range("M16").Select
Selection.AutoFill Destination:=Range("M16:M25"), Type:=xlFillDefault
Range("M16:M25").Select
Range("L29").Select = True


Else

ToggleButton.Caption = "2"
Range("M14").Select
ActiveCell.FormulaR1C1 = "=R[1]C+R2C13/10"
Range("M14").Select
Selection.AutoFill Destination:=Range("M5:M14"), Type:=xlFillDefault
Range("M5:M14").Select
Range("M16").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-(R3C13/10)"
Range("M16").Select
Selection.AutoFill Destination:=Range("M16:M25"), Type:=xlFillDefault
Range("M16:M25").Select = False


End If
End Sub

 

[Emir Hüseyin Çoban]

. . .

Kodları standat butona atamışsınız.
Sayfaya ToggleButton ekleyip, kodları buraya yazmanız gerekiyor.

Ekteki tabloyu inceleyiniz.

. . .

 

[kemalist]

Teşekkür ederim Hüseyin Bey