İki makroyu tek butona atamak

[by_IsTaNBuL]

üstadlarım . aslında bu sorumun cevabı sitede var aradım buldum fakat. mesajlar eski olduğu için dosyaları açamadım.
sorunumı buraya yazmak zorunda kaldım. yardımcı olacak arkadaslara şimdiden çok tesekkur ederım

aşagıdaki 2 adet makroyu tek butona atamak istiyorum.
1. ilk tıkladığımda ilki çalışsın
2. ikinci tıkladığımda ikincisi çalışsın ve döngü olarak devam etsin yani
3. tıkladığımda tekrar ilk makro çalıssın , 4. tıkladıgımda ikinci makro sürekli dönsün. ilgilenen arkadaslara çok tesekkurler

1.makro

Sub görsel_aktviskgöster() ActiveSheet.Unprotect "pencil"
Range("L3").Select
Selection.Copy
Range("L4:L255").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.NumberFormat = "0.0"
ActiveSheet.Protect "pencil"
Range("I4").Select
End Sub

2.makro

Sub görsel_aktvyüzdesisil() ActiveSheet.Unprotect "pencil"
Range("L4:L255").Select
Selection.ClearContents
Selection.NumberFormat = "0.0"
ActiveSheet.Protect "pencil"
Range("I4").Select
End Sub

 

[uzmanamele]

merhaba

kodlarınızı ToggleButton'a atayınız.
sitede birçok örnek bulabilirsiniz.

 

[by_IsTaNBuL]

sayın uzman ToggleButton görsel olarak çok kötü. bunu normal butona atayamazmıyız acaba.

 

[Levent Menteşoğlu]

Aşağıdaki kodları bir modüle kopyalayın ve calistir isimli prosedürü bir butona bağlayarak çalıştırın.

Dim deg
 
[COLOR=#ff0000]Sub görsel_aktviskgöster()[/COLOR] 
ActiveSheet.Unprotect "pencil"
Range("L3").Select
Selection.Copy
Range("L4:L255").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.NumberFormat = "0.0"
ActiveSheet.Protect "pencil"
Range("I4").Select
deg=1
End Sub
 
[COLOR=red]Sub görsel_aktvyüzdesisil()[/COLOR] 
ActiveSheet.Unprotect "pencil"
Range("L4:L255").Select
Selection.ClearContents
Selection.NumberFormat = "0.0"
ActiveSheet.Protect "pencil"
Range("I4").Select
deg=0
End Sub
 
sub calistir()
If deg = 0 Then
[COLOR=#ff0000]görsel_aktviskgöster[/COLOR]
Else
[COLOR=#ff0000]görsel_aktvyüzdesisil[/COLOR]
End If
end sub

 

[by_IsTaNBuL]

levent bey

compile error
ambiguous name detected:görsel_aktviskgöster

hatası veriyor

 

[Levent Menteşoğlu]

Eski kodları silip öyle deneyin. Aynı isimde iki prosedür olunca bu hatayı alıyorsunuz.