Sabit Sayının İki Katı

[Seyit Tiken]

Sabit Sayının Ýki Katı

Herkese Selamlar,
A1 ile A20 aralığında herhangi bir hücreye girilen bir sayı(örneğin, 5 sayısı), her tıklamada(buton) iki kat artsın. Ã?rnek Olarak : Belirtilen aralıkta girilin 5 sayısı her butona tıklandığında; 5, 10, 15,..... yani 5'er 5'er sayı artsın. Teşekkür ediyorum, Hayırlı Çalışmalar.

 

[omerceri]

Sub ikikatı()

If ActiveCell.Row >= 1 And ActiveCell.Row <= 20 And ActiveCell.Column = 1 Then
ActiveCell.Value = ActiveCell.Value * 2
End If

End Sub

bu kodu bir button'a atarsan aktif olan hücreyi ikikatına çıkarır

 

[Seyit Tiken]

Kod yazımında, genel olarak herhangi bir sayı değil, sabit bir sayı gösterilebilir. Kod içinde sabit sayı olarak gösterilen herhangi bir sayıyı kendime uyarlarım. Sabit sayı olarak 5 sayısı gösterilebilir. Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Koddaki activecell yerine sabit bir hücre adıda yazabilirsiniz.

[vb:1:6748e0858d]ActiveCell = ActiveCell + 5
[/vb:1:6748e0858d]

 

[Seyit Tiken]

Ã?mer bey teşekkür ediyorum. İstenildiği gibi olmadı. Sürekli var olan rakamı çarpıp(ikiye katlayıp) yükseltiyor. Bir üstteki açıklamayı gönderirken yanıtınız görünmüyordu. Göndermeler aynı zamana denk geldi. Soru Þu : Belli hücreler aralığında(A1:A20) sabit bir sayımız var(örnek olarak "5" sayısı). Her butona tıklandığında, sabit sayımız olan "5" sayısı beşer beşer artacak. Yani 5, 10, 15 ... ve bu şekilde rakam artarak devam ediyor. Þayet cevap gelmezse Levent abimizin ilgilenmesini istirham ediyoruz.

 

[Seyit Tiken]

Yazarken yanıt vermişsiniz. Allah Razı Olsun. Sizi tebrik ediyorum.

 

[Levent Menteşoğlu]

Sn Seyit bey lütfen sorunuza cevap beklerken isim belirtmeyiniz. Her üyemiz elinden geldiğince sorulara cevap vermeye çalışmaktadır. Birde aşağıdakini deneyebilirsiniz.

[vb:1:9615bcf8c6]Dim c As Integer
Sub ac()
c = c + 1
[a1].End(xlDown) = [a1].End(xlDown) + [a1].End(xlDown) / c
End Sub[/vb:1:9615bcf8c6]

 

[Seyit Tiken]

Bu formül, ActiveCell = ActiveCell + 5
, işime yaradı. Ancak ufak bir format sorunu yaşadım. "#.##0
,00"(YTL. formatı) Bu format kod da uygulanırsa çözüm tam olur.
Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

ActiveCell = format(ActiveCell + 5,"#,##0.00")

 

[Seyit Tiken]

Kusuru bakmayın. Bir türlü 11,10 YTL. sayı biçimini yapamadım. Yani Lira ile Kuruş bir arada olmuyor. Düz Lirayı veriyor. Sorun yok. Liranın arkasında çift sıfırı gösteriyor. Ama 1'den 99 kadar(kuruşlu) sayılarda hata veriyor. Kodu kendime uyarlayacağımı tahmin ettim ama olmadı. Sabit sayım : 11,10'dur. Her tıklamada 11,10 eklenip sayıda artış sağlanacak. Aktif hücrede. İstemeyerek konu biraz uzadı. Tekrar kusura bakmayın. Teşekkürlerimi sunuyorum.