satırları çarpma

[gazmik]

merhaba arkadaşlar. ben sabit bir hücreyle bir sütundaki tüm satırları alt alta çarpım yandaki hücreye yazdırmak istiyorum, nasıl yapabilirim ?
........A...........B
1.......2........=2*10
2.......4.........=4*10
3.......6.........=6*10
4.......8.........=8*10
5...................10
Yani B5 hücresi sabit, B1 hücresi A1 ile B5in çarpımı olacak. ben burda 5 satır verdim ama yapmam gereken 25 satır , Vba ile bunu nasıl kodlarım ?
şimdiden teşekkürler

 

[ÖmerBey]

Sub carp()
j = 5
For i = 1 To [A65500].End(3).Row
Cells(i, 2).Value = Cells(i, 1).Value * j
Next
End Sub

burada j katsayınız. İsteğe göre değiştirebilirsiniz. Hücreden almak istiyorsanız da

j = Range("C1").Value

şeklinde yazabilirsiniz.

 

[gazmik]

teşekkür ederim peki küm toplamını nasıl yapacağım

........A...........B
1.......2........=8+6+4+2
2.......4.........=8+6+4
3.......6.........=8+6
4.......8.........=8
böyle olması lazım

 

[ÖmerBey]

Dener misiniz?

Sub Komulatif()
j = [A65500].End(3).Row
For i = 1 To j
Cells(i, 2).Value = WorksheetFunction.Sum(Range("A" & i & ":A" & j))
Next
End Sub

 

[gazmik]

teşekkürler burada ki j değerim nereden geldi

 

[ÖmerBey]

j = a sütunundaki son dolu hücrenin satır no

 

[gazmik]

şu halde önce A sütununun aynısını geçiriyor, ikinci kez bastığımda kümülatif yapıyor. birde hiç bilmediğimden soruyorum, maruz görün, Cells(i, 2).Value = WorksheetFunction.Sum(Range("A" & i & ":A" & j)) bu komutla biz hangi emri veriyoruz. mucit77 yardımlarınız için tekrar teşekkürler

 

[ÖmerBey]

i değeri için for döngüsü kullanıldı. İ değeri önce 1 değeriyle başlıyor ve döngünün her seferinde i değeri 1 artıyor.
Sonuçta Cells(i,2) demek i satırı 2. sütun(B sütunu) anlamına geliyor i de değiştiği için B1, B2, B3... şeklinde devam ediyor. Value ise değer demek (Örneğin ilk döngü için Cells(i,2).value demek B1 hücresinin değeri demektir.)
WorksheetFunction.Sum = TOPLA fonksiyonu
Range= Hedef (nereyi toplayım?)
Cevap: A sütunu i satırından yani A1, A2... A sütunu son dolu satıra kadarki kısmı
Yani kısaca son değerimizin 5. satırda olduğunu varsayarsak makromuz;
B1 = TOPLA(A1:A5)
B2 = TOPLA(A2:A5)
.
.
B5 = TOPLA(A5:A5)
değerlerini almalarını sağlıyor.

 

[gazmik]

Daha güzel anlayamazdım teşekkür ederim Peki butona 2.kez basınca hesaplamasını nasıl halletsem, napsamda ilk bastığımda hesaplayıverse?

 

[ÖmerBey]

O sizin atadığınız butonla alakalı bir durum. Command buttona atamışsanız
mesela
CommandButton1_DblClick kısmını
CommandButton1_Click
olarak değiştiriniz