Hücredeki Rakamı Çift ya da Çiftin Katı Yapma

[berkbaba]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

VBA kodu ile
I6 hücresindeki rakam tek ise L6 hücresine +1 ekleyerek çift yapacak
I6 hücresindeki rakam çift ise L6 hücresine +2 ekleyerek katı yapacak
Örnek:
I6 = 3
L6 = 4
veya
I6 = 2
L6 = 4
makroya ihtiyacım var. Yardımcı olabilir misiniz?

 

[PriveT]

Merhaba,
Makronun henüz M'sine gelememiş biri olarak şöyle basit bir çözüm sunayım.

Bu kodu görmek için giriş yapmanız gerekmektedir (8 satır). Giriş Yap

Kodu bir butona bağlayabilirsiniz.

 

[Feyzullah]

Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

Düzenleme: Sayın @PriveT İlyas hocam doğru cevabı vermiş zaten.

 

[PriveT]

Bir de dinamik alternatif vereyim

Bu kodu görmek için giriş yapmanız gerekmektedir (8 satır). Giriş Yap

 

[berkbaba]

Sayın PriveT bu yardımınız makronun M' sini bilmeden yaptığınız ise ya bir de bilseydiniz. Allah ilminizi artırsın.
Feyzullah abime de PriveT abime de teşekkür ederim.
Bir şey sormak istiyorum abilerime
For ya da case ile veya başka bir şekilde textboxlara birinci çift tık ile "A" ikinci çift tık ile "B" üçüncü çift tık ile de "C" yazılabilir mi?

 

[PriveT]

Teşekkürler.
İşte burdan itibaren sizi makro üstadlarıma devrediyorum.

 

[berkbaba]

Gerçekten mümkün müdür? Mümkünse Nasıl yapılır? Birçok dosyamda kullanabileceğim bir kod olur. Bekleyelim abim

 

[Ömer BARAN]

Sayın @berkbaba,

Sorularınızı örnek belge üzerinden sormamaya devam ediyorsunuz.
Cevap/fikir yazılsa bile sorun yaşanması muhtemel.

Örneğin Userform üzerindeki bir Textbox'tan söz ediliyorsa, aşağıdaki gibi düşünülebilir.
Textbox sayısı fazla ise en iyisi Class Module kullanmak. Yoksa tüm textboxlar için ayrı ayrı, aynı kodun çoğaltılması gerekir.

TextBox'a çift tıklama için:
ilk seçenek BOŞ veya C olması durumu ve değer A olarak değiştirilir, Değer A ise B, B ise C olur.

Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap

 

[berkbaba]

Ömer abi Israrla yapmak ya da muhalif olmak amacı ile değil, örnek dosya vallahi aklıma gelmiyor. Haklısınız özür dilerim.
Cevabınız için de teşekkür eder, ellerinden öperim ustamın