düğmeye basınca düğme içindeki yazı

[projist]

2. yazı ile değişsin, tekrar basınca eski halini halsın. mümkün mü böyle birşey?

 

[Recep İpek]

Normal buton yerine ToggleButton kullanabilirsiniz.

Örnekler için aşağıdaki linkleri inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=50640

http://www.excel.web.tr/showthread.php?t=37627

http://www.excel.web.tr/showthread.php?t=34860

 

[projist]

anlamadım hocam o linklerden birşey, makro bilmiyorum zaten.

 

[hamitcan]

Bir tane de benden olsun.

Sub Makro1()
ActiveSheet.Shapes("Button 1").Select
With Selection.Characters
    If .Text = "Düğme 2" Then
       .Text = "Düğme 1"
       [a1].Select
    Else
       .Text = "Düğme 2"
       [a1].Select
    End If
End With
End Sub

 

[uzmanamele]

merhaba
böyle birşey olabilir mi

 

[projist]

evet ikisi de oldu ama sayfaya uydurduğumda hata veriyor. hata olan yer ise;

ActiveSheet.Shapes("Button 1").Select

satırı.. acaba butonunu mu yanlış seçiyorum? çünkü sayfada birçok düğme var ve sadece bir düğme bu görevi yapıcak...

 

[uzmanamele]

merhaba
kodları atadığınız düğmenin adı ile koddaki düğme adı aynı olmalı.
muhtemelen sizin sayfanızda "button 1" yok, hata verir.

 

[projist]

hocam düğmenin adını nasıl veya nereden değiştirebilirim

 

[projist]

tamam buldum teşekkürler

 

[ockucukay]

düğmeye bir defa mouse ile tıklayıp seçili hale getirin. daha sonra formül çubuğunun solunda bulunan adres kutusunda mesela "button 12" yazdığını göreceksiniz. bu yazı yerine "button 1" yazarsanız düğmenizin adı değişir.