Makro Düğmeleriyle Bir Hücrenin Değeri Artar/Eksilir mi?

[A_day]

İlişikteki dosyada da göreceğiniz gibi amacım;

D3 hücresindeki değeri, soldaki düğmeye tıklayarak her tıklamada (örneğin 1) standart bir değer eksiltmek, sağdaki düğmeye her tıklayışımda ise standart bir değer (örneğin 1) artırmak. Bunun makrosunu yapmayı beceremedim.

Makrolu ya da başka bir yolla çözümü mümkün müdür?

 

[peleryn]

Merhaba;

Ek'i inceleyin.

 

[A_day]

Şükranlarımı sunuyorum.

Tam istediğim gibi olmuş. Ancak düğmeleri kullanırken bir husus dikkatimi çekti. Bu tıklamaları kontrol ifadeleri ile kısıtlayabilir miyim? Şöyleki; ne kadar tıklarsam tıklayayım sıfırdan küçük, 20'den büyük değerler yazamasa...

 

[peleryn]

Şükranlarımı sunuyorum.

Tam istediğim gibi olmuş. Ancak düğmeleri kullanırken bir husus dikkatimi çekti. Bu tıklamaları kontrol ifadeleri ile kısıtlayabilir miyim? Şöyleki; ne kadar tıklarsam tıklayayım sıfırdan küçük, 20'den büyük değerler yazamasa...

Elbette yapılır.Ancak ne istiyorsunuz onu daha netleştirmemiz iyi olur.0 dan küçük ya da 20 den büyükse ne yapması gerekir.Bir uyarı mesajı mı gelsin yoksa hiçbirşey yapmasın mı..?hatta mesela 0(sıfır) ise - butonu 20 ise + butonu basılamayacak duruma gelsin ya da sizin aklınıza gelen başka birşey olsun..Şimdi karar verelim 0 ya da 20 ise ne olsun?

 

[peleryn]

Sonra vaktim olmayabilir.Bana en mantıklı geleni ekleyeyim

 

[A_day]

Söyleyecek söz bulamıyorum, tek kelimeyle harikasınız... Sağolun...

 

[A_day]

Çalışmamı tamamlayabilmem için,eklediğiniz dosyadaki makro düğmelerini copy/past'le çoğaltmam gerekiyor. Ancak mouse'la üzerlerine gittiğimde, ok ele dönüşmüyor ya da sağ kliklediğimde menü açılmıyor. Ne yapmalıyım?

 

[Mahir64]

Çalışmamı tamamlayabilmem için,eklediğiniz dosyadaki makro düğmelerini copy/past'le çoğaltmam gerekiyor. Ancak mouse'la üzerlerine gittiğimde, ok ele dönüşmüyor ya da sağ kliklediğimde menü açılmıyor. Ne yapmalıyım?

Merhaba

Görünüm / Araç Çubukları / Denetim Araç Kusutu
bunu tıklayın ve

gelen araç çubuğundan Tasarım Modunu tıklayın.

Kopyala yapıştır ile çoğaltabilirsiniz ama kodlarıda almanız gerekli.
Tasarım modunda buton üzerine çift tıklayın kodlara ulaşırsınız.

 

[A_day]

Mahir bey ilginize teşekkür ediyorum. Yazmış olduğunuz menüyü bulamadım (excel 2007) Yerini tarif eder misiniz?

 

[Mahir64]

Mahir bey ilginize teşekkür ediyorum. Yazmış olduğunuz menüyü bulamadım (excel 2007) Yerini tarif eder misiniz?

Merhaba

2007 için sol üst köşede bulunan ofis düğmesine tıklayınız
Excel Seçenekleri / Popüler / Şeritte geliştirici sekmesini göster aktif ediniz

Eklendiğinde menülerinizde ......Görünün Geliştirici çıkacaktır
tasarım modunu göreceksiniz.

 

[A_day]

Mahir bey bağışlayın, sol üstte, söylediğiniz "Ofis" düğmesini de, "excel seçenekleri"ni de bulamıyorum. Acaba sürüm farkımı var? Görüntü ekte...

 

[peleryn]

Merhaba;

Kopyalayıp yapıştırdığınızda kodları da kopyalayıp yapıştırdığınızı düşünelim..Eğer kodlarda bir değişiklik yapmazsanız o butonlara her bastığınızda sadece d3 teki değer artacak ya da azalacaktır aklınızda olsun.

 

[A_day]

O aklımda, adresleri değiştireceğim ancak henüz kopyalamayı aşamadım, butonlar kopyalanmaya müsait değil...

 

[Mahir64]

Mahir bey bağışlayın, sol üstte, söylediğiniz "Ofis" düğmesini de, "excel seçenekleri"ni de bulamıyorum. Acaba sürüm farkımı var? Görüntü ekte...

Merhaba

Eki inceleyin

 

[peleryn]

Makroları etkinleştirmeden dosyayı açarsanız sanırım kopyalama işlemini o şekilde de yapabilirsiniz.

 

[A_day]

Yardımlarınız için teşekkürler ediyorum.

Yardımlarınızla çalışmamı bir noktaya kadar getirebildim. Daha bir kaç aşaması var tam işlevsel olabilmesi için. İlk aşamada bir noktada sıkıntı yaşıyorum. Yaşadığım sorunu şöyle izah edeyim :

Dosyayı incelerseniz şimdilik 4 adet düğme ile b6'daki hücreye 40 - 200 aralığında +-10, e6'daki hücreye ise 7 - 1 aralığında +-1 değerler girilebilmesini istiyorum. (Sağolsun ismini bilemediğim arkadaşın yardımları neticesi; bu rakamlar limitlere ulaşmışlarsa, ilgili düğmeler görünmez oluyorlar, bu da çok hoş oldu.) Tahminime göre, (kod yazma mantığına çok vakıf olmadığımdan) kopyala/yapıştırla elde ettiğim 2.nci çift düğmeler için kod içine eklediğim kısım kilitlenmeye sebep oluyor. Şöyle ki;

Defalarca denedim; rakamlar limitlerde değilse her 4 düğme de sorunsuz çalışıyor. Ancak rakamlardan biri limite erişmişse ve ilgili düğme görünmez olmuşsa, diğer rakamı da limitlere yaklaştırdığım anda excel kilitleniyor.

Sorun sanırım aşağıya yazdığım bölümde. Yanlışımı düzeltirseniz çok sevineceğim. Teşekkürler...

Private Sub Worksheet_Change(ByVal Target As Range)

If [b6] <= 40 Then
Sheets("Motorlu").CommandButton1.Visible = False
[b6] = 40
Else
Sheets("Motorlu").CommandButton1.Visible = True
End If
If [b6] >= 200 Then
Sheets("Motorlu").CommandButton2.Visible = False
[b6] = 200
Else
Sheets("Motorlu").CommandButton2.Visible = True
End If

If [e6] <= 1 Then
Sheets("Motorlu").CommandButton3.Visible = False
[e6] = 1
Else
Sheets("Motorlu").CommandButton3.Visible = True
End If
If [e6] >= 7 Then
Sheets("Motorlu").CommandButton4.Visible = False
[e6] = 7
Else
Sheets("Motorlu").CommandButton4.Visible = True
End If

 

[A_day]

Arkadaşlar, bu makrodaki hatayı düzeltecek kimse yok mu?

Bu dosya benim için çok önemli ve yarım kaldı, tamamlamama yardımcı olursanız minnettar kalırım...

 

[peleryn]

Merhaba;

Worksheet_Change kodunu aşağıdakiyle değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b6:e6")) Is Nothing Then Exit Sub
If [b6] = 40 Then
Sheets("Motorlu").CommandButton1.Visible = False

Else
Sheets("Motorlu").CommandButton1.Visible = True
End If
If [b6] = 200 Then
Sheets("Motorlu").CommandButton2.Visible = False

Else
Sheets("Motorlu").CommandButton2.Visible = True
End If

If [e6] = 1 Then
Sheets("Motorlu").CommandButton3.Visible = False

Else
Sheets("Motorlu").CommandButton3.Visible = True
End If
If [e6] = 7 Then
Sheets("Motorlu").CommandButton4.Visible = False

Else
Sheets("Motorlu").CommandButton4.Visible = True
End If

End Sub

 

[A_day]

Merhaba,

İlginize teşekkür ediyorum. İlave satırı ekleyip, sildiğiniz satırları da çıkartınca program kilitlenmiyor ancak şöyle bir durum ortaya çıktı :

Kullanıcı B6'ya başlangıç değeri olarak 10'un katları ( 50, 60, 180.. gibi) değil de ara bir değer girerse (örneğin 65, 84, 126... gibi) "buton 1 ve 2" bu ilk değere 10 ekliyor ya da çıkarıyor sürekli. Sınır değere ulaştığında ise, örneğin 195'den sonra bir tık daha yapıldığında B6'da 205 görüntüleniyor ve buton görünmez olmuyor, olmadığı için de tıklamaya devam edebiliyorsunuz ve üst limiti aşıp gidiyorsunuz.

Benim ekleyip de sizin silmemi istediğiniz satırlar işte bu sorunu bertaraf etmek içindi, yani 195'den sonra 1 tık daha yapıldığında, B6'yı sınır değer olan 200'e eşitliyordu ve düğme de görünmez olduğundan bir daha tıklama, dolayısıyla limiti aşma sorunu olmuyordu. Bu sorunu yine sizin iptal etmiş olduğunuz <, > işaretlerini tekrar yerlerine koyarak çözdüm. Bunları ekleyince 195'den sonra 1 tıkladığımda B6 205 oluyor ama hiç değilse düğme görünmez olduğundan, limiti aşıp gitme sorunu olmuyor.

Ancak dediğim gibi benim önemli amaçlarımdan biri olan "B6 hücresinde, asla üst ve alt limitlerin aşılmaması" sorunu çözülememiş oluyor. Benim eklediğim ancak sizin sildirdiğiniz [b6] = 40 ya da [b6] = 200 satırları neden kilitlenmeye sebep oluyor, çözemedim...

Bu sorunu nasıl aşarız?

 

[peleryn]

Merhabalar;

Bir iki eksiği var biliyorum ama vakitsizlikten bu kadar oldu şimdilik.

butonla değil de sayfa üzerinde yapılan değişikliklere duyarlı olması henüz yapılmadı.