seçenek düğmesi

[sarper]

mehaba
iki tane seçenek düğmesi ile seçilen formüllerin işleme girmesini istiyorum nasıl yapabilirim. bir de o düğmelerin isimlerini nasıl değiştirebilirim.
dosyayı da yolluyorum
teşekkürler

 

[danersin]

Seçenek düğmelerine sağ tıklayıp menüde "Düzenleme Kutusu" nu seçerseniz düğme içindeki yazıya girer, istediğiniz ismi yazarsınız. ama "formüllerin işleme girmesini istiyorum" dan tam kastınız ne anlamadım.

 

[Levent Menteşoğlu]

Formüllerin devreye girmesi için ekteki örneği inceleyin.

 

[sarper]

1 buton a3 e 1 ikinci a3 e 2 yazıyo.
iyide o butonlara o görevi nasıl yapıcaz ben anlamadım.

 

[xxrt]

Sayın Leventm'nin çözümüne alternatif ilave çözüm olarak.

Sub birincidügme()
[c6] = ""
Range("A6").Formula = "=A1*b1"
End Sub
Sub ikinidügme()
[A6] = ""
Range("c6").Formula = "=C1*D1"
End Sub

 

[Levent Menteşoğlu]

1 buton a3 e 1 ikinci a3 e 2 yazıyo.
iyide o butonlara o görevi nasıl yapıcaz ben anlamadım.

Butonları a3 hücresine bağladım. Birinci butonu seçince 1, ikinci butonu seçince 2 yazıyor,daha sonrada formülleride a3 hücresini referans kabul edecek şekilde yazdım. Butonun üzerine gelip sağklik yapıp denetimi biçimlendirmeyi seçerseniz ayarları görebilirsiniz.

 

[sarper]

çok teşekkürler
çok iyi oldu valla sağolunn

 

[sarper]

bi sorum daha olacak
a1 hücresine yazdığım bir değeri bir düğmeye bastığımda b1 hücresine yzazsın istiyorum nasıl yapabilirim.

 

[mehmett]

Araçlar > Makro > Yeni makro kaydet

Sonra A1 hücresini B1 hücrsine kopyalayın (veya taşıyın)

Kaydı durdurun.

Bir düğme çizin ve makroyu bu düğmeye atayın.

 

[sarper]

birde de şunu yapmak istiyorum
5 tane değerim var (ardışık olmayan, örn:2,6,9 12,34,56)
eklediğim kaydırma çubuğuna bastığımda hücreye sadece bu değerler gelsin istiyorum.
çok teşekkürler

 

[abazya]

Sub Düğme1_Tıklat()
    Range("A1").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    Selection.ClearContents
End Sub

Pardon zerige senin cevabını görmemiştim