Basmalı Buton Yapımı

[toglyy]

Merhaba,

Hazırladığım bir forma buton ekledim, bu butona basınca bir efekt ya da fiziksel olarak basıyormuş gibi içine göçme gibi bir animasyon verebiliyor muyuz? Bu formu Excel'e çok yabancı biri kullandığında butona tıkladığını anlasın diye böyle bir yol düşünmüştüm. Seçenekleri biraz kurcaladım ama göremedim..

 

[Seyit Tiken]

Bu şekilde bir deneyiniz

Private Sub ToggleButton1_Click()
If Me.ToggleButton1 Then
Me.ToggleButton1.Caption = "Bastınız"
Else
Me.ToggleButton1.Caption = "Basmadınız"
Me.ToggleButton1 = 0
End If
End Sub

 

[toglyy]

@Seyit Tiken hocam şuan mevcutta bir kodum var, bunu onun altına mı eklemem gerekiyor yoksa yeni bir kod olarak mı?

 

[Seyit Tiken]

Kodunuzu bir ekleyin görelim

 

[toglyy]

Sub SİPARİŞ()
x = Sheets("TALEP FORMU 2 ").[a65536].End(3).Row + 1
Sheets("TALEP FORMU 2 ").Rows(x).Value = ActiveCell.EntireRow.Value
End Sub

 

[Seyit Tiken]

Bu şekilde deneyin

Private Sub ToggleButton1_Click()
If Me.ToggleButton1 Then
Me.ToggleButton1.Caption = "Bastınız"
x = Sheets("TALEP FORMU 2 ").[a65536].End(3).Row + 1
Sheets("TALEP FORMU 2 ").Rows(x).Value = ActiveCell.EntireRow.Value
Else
Me.ToggleButton1.Caption = "Basmadınız"
Me.ToggleButton1 = 0
End If
End Sub

 

[toglyy]

"xxx makrosu çalıştırılamıyor. Makro bu çalışma kitabında olmayabilir ya da tüm makrolar devre dışı bırakılmış olabilir" hatası aldım hocam. Bu kodu silip kendi kodumu yapıştırdığımda hata almıyorum.

aslında ben butona basıldığında mesaj göstermek yerine fiziksel bir hareket yapılabilir mi diye sormuştum, düğmeye basar gibi bir efekt olsa da insanlar bastığını anlasa gibi. Öyle bir seçenek yoksa kodu düşünebilirim.

 

[Seyit Tiken]

Örnek dosyanızı yükleyip bir bakalım

 

[toglyy]

aşağıdaki linkte gönderiyorum hocam.

İndir İLAÇ SİPARİŞLERİ (REVİR)

Dosyayı indir İLAÇ SİPARİŞLERİ (REVİR)

dosya.co

Not: "ürün listesi" sayfasındaki sarı renkli butonlara basınca efekt olmasını istiyorum, diğer mavi ve gri renkli ekle butonları denemek için yapılmış işlevsiz butonlardır.

ilginiz için çok teşekkürler.

 

[toglyy]

şöyle bir ekleme yapayım, aslında gri renkli butona sarı renkli butonun kodlarını kopyalayabilirsek o da işimi görür, asıl istediğim o zaten. ben kodları birebir kopyalamama rağmen çalıştırırken hata aldım.