satır& sutun toplamı

[prodigy]

değerli arkadaşlar
aşağıdaki kodla aktif hücrenin etrafını seçiyorum. ve satır ve sutun toplamlarını ∑ ( toplam butonu) ile topluyorum. bunu makro kodlarıyla nasıl yapabiliriz.
saygılarımla

Sub dene()
ActiveCell.Select
Selection.CurrentRegion.Select
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:1b41583d6d]Sub dene()
ActiveCell.Select
Selection.CurrentRegion.Select
MsgBox WorksheetFunction.Sum(Selection.Cells)
End Sub[/vb:1:1b41583d6d]

 

[prodigy]

sayın leventm öncelikle teşekkür ederim ama yapmak istediğim secili alan içerisinde kalan her bir satırı toplatıp yanına ve her bir sutunu toplatıp altına yazdırabilirmiyiz.

 

[prodigy]

değerli arkadaşlar
bu konuda herhangi bir fikri olan yokmu?

 

[zafer]

Merhaba

Açıklamalı örnek bir dosya ekleyebilirmisiniz.

 

[prodigy]

sayın zafer bey
ilginize çok teşekkür ederim . ekteki dosyada yapmak istediğimi açıklamaya çalışdım. yardımlarınıza şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Eğer makrosuz çözüm isterseniz toplamını almak istediğiniz hücre aralığının A1:G5 olduğunu düşünürsek siz seçim yaparken A1:H6 seçin seçtikten sonra toplama fonksiyon düğmesini tıkladığınızda istediğiniz gerçekleşecektir.

 

[prodigy]

evet bunu toplam fonksiyon düğmesiyle yapabiliyorum ancak bunu makroyla yapmam gerekiyor. bu konuda yardımcı olursanız sevinirim.

 

[zafer]

Merhaba

 

[prodigy]

öncelikle ilginiz ve cevabınıza çok teşekkür ederim zafer bey. ama belkide benim tam olarak soruyu soruyu soramamamdan kaynaklandı. aslında yapmak istediğim tam olartak bu değil. ekte gönderdiğim dosyayı zamanınız olur da incelerseniz; yapmak istediğim sayfa 1 de seçtiğim her alan için satır ve sutun toplamı aldırmak istiyorum.

 

[zafer]

Merhaba

Alanlarınızı değiştirirseniz kodlardaki hücre adreslerinide değiştirmeniz gerekiyor

2 adet toplam sütunu için yaptım 3 içinde size bıraktım. kodları kopyalayıp 3. alan için hücre adreslerini değiştirin.

 

[ibrahim0061]

merhaba arkadaşlar
benimde bir sorum var cevaplarsanız çok sevinirim excel VBA sında satır ve sütunlarda işlem yaparken "Dim intDizi(x,y) as integer" diye bir ifade kullanıyoruz. burada x satırı y sütunu kontrol ediyor. (x in sütunu y nin satırı kontrol etmesini nasıl sağlayabiliriz???)

 

[prodigy]

cevaplar ve ilginiz için teşekkürler ama ben hala problemimi çözemedim.
benim yapmak istediğinm sayfa 1 nin herhangi bir yerinde sectigim alanın satır ve sutun toplamını makroyla yapmak veya exceldeki toplama fonksiyon tuşunu oluşturacağım bir komut düğmesiyle ilişkilendirebilirimiyim. böyle olabilirse daha kolay olacak.
saygılar

 

[veyselemre]

[vb:1:c362094ec4]Sub dene()
ActiveCell.CurrentRegion.Select
For Each hucre In Selection.Cells
If hucre.Value = "işin adı" And hucre.Column = 1 Then
bassat = hucre.Row
Exit For
Else
Exit For
End If
Next

sut = Selection.Columns.Count
sat = Selection.Rows.Count

If Cells(bassat + 1, sut) = "toplam" Then toplamsut = sut
If Cells(bassat + sat - 1, 1) = "toplam" Then sonsat = bassat + sat - 2
bassat = bassat + 2
For x = bassat To sonsat
Cells(x, toplamsut) = WorksheetFunction.Sum(Range(Cells(x, 5), Cells(x, toplamsut - 1)))
Next x
For x = 5 To toplamsut - 1
Cells(sonsat + 1, x) = WorksheetFunction.Sum(Range(Cells(bassat, x), Cells(sonsat, x)))
Next x
End Sub
[/vb:1:c362094ec4]