Makro Ile Toplam

[Skorpiyon]

Arkadaslar;
Yapmak isteyipte yapamadigim olayı soyle anlatayim.

Form üzerindeki bir butona tıkladıgımda;
A sutununda o anda hangi hücre aktif ise, aktif hücrenin sağındaki 5 ila 10. hücreler arasını ve 50 ila 255. hücreler arasını toplatmak istiyorum.
Sonucuda yine form üzerinde bir textbox'a atamak istiyorum.

Bunu kod bolümünde formüle edemedim. Yardımlarınızı beklerim.

Saygılar, Şaban...

 

[excellium]

dim a, b as double
x= activecell.row
a=range(cells(x,5),(x,10))
b=range(cells(x,50),(x,255))
textbox1 = a + b

böyle bir örnek umarım işinize yarar.

 

[Skorpiyon]

Arkadaşlar, problemimi bir döngü ile çözdüm ama programımın döngülerle yavaşlamaması için bildiğiniz başka bir yöntem varsa bu daha hoş olacaktır.

Herkese şimdiden teşekkürler...

 

[veyselemre]

Private Sub CommandButton1_Click()
If ActiveCell.Row <> 1 Then Exit Sub
With ActiveCell
    TextBox1.Value = WorksheetFunction.Sum(.Offset(, 5).Resize(, 5), .Offset(, 50).Resize(, 206))
End With
End Sub

 

[Skorpiyon]

Sayın Excellium ve Veysel Emre,

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