macro-vba toplama işlemi

[mesuutt]

merhaba arkadaslar benim bir excel dosyam var ben birinci sayfada olan bazı sayıları ucuncu sayfaya toplattırıp yazdırıyorum ama ucuncu sayfada kı sayıları macro dili ile toplatmak istiyorum bilmem anlatabildimmi?

normal excelde alt alta olan hucreleri toplarsınızya aynısını macroda nasıl yapabilirim onu ogrenmek istıyorum kısacası..

şimdiden cok tesekkur ederim....

 

[Orion1]

A sütununda a1:A10 aralıiğını toplar.

Sub topla()
Dim i As Long, tpl As Double
For i = 1 To 10
    tpl = tpl + Cells(i, "A").Value
Next
MsgBox tpl
End Sub

 

[mesuutt]

saolasın kardes kod calısıo ama ben sonucu aynı sayfada bir hucreye yazdırmak istiyorum

çok saol kardes a.r.o

 

[Orion1]

saolasın kardes kod calısıo ama ben sonucu aynı sayfada bir hucreye yazdırmak istiyorum

çok saol kardes a.r.o

B1 hüccresine toplamaı yazar.

Sub topla()
Dim i As Long, tpl As Double
For i = 1 To 10
    tpl = tpl + Cells(i, "A").Value
Next
[B][COLOR="Red"]range("B1").value = tpl[/COLOR][/B]
End Sub

 

[mesuutt]

saol kardes ama bu kod sonucu mesaj olarak veriyo ben bir hucreye yazdırmak isityorum onu nasıl yaptırcam ?

 

[Orion1]

saol kardes ama bu kod sonucu mesaj olarak veriyo ben bir hucreye yazdırmak isityorum onu nasıl yaptırcam ?

4 nolu mesaja bakınız.

 

[leumruk]

Merhaba,
Alternatif olarak düşünebilirsiniz:
Sub Topla()
[d1] = WorksheetFunction.Sum([a1:a10])
End Sub

 

[mesuutt]

usta bi sorum daha var ben macroda cıkan degerleri nasıl kalın yazdırabilirim ?

 

[eslem_cCc]

B1 hüccresine toplamaı yazar.

Sub topla()
Dim i As Long, tpl As Double
For i = 1 To 10
    tpl = tpl + Cells(i, "A").Value
Next
[B][COLOR="Red"]range("B1").value = tpl[/COLOR][/B]
End Sub

Teşekkürler eline sağlık ağbi büyüksün, çok makbule geçti

 

[selocanexcel]

Merhaba,
Alternatif olarak düşünebilirsiniz:
Sub Topla()
[d1] = WorksheetFunction.Sum([a1:a10])
End Sub

merhaba; yukarıdaki formulü sıfırdan büyük değerleri toplayacak şekilde yazabilirmisiniz

 

[selocanexcel]

Merhaba,
Alternatif olarak düşünebilirsiniz:
Sub Topla()
[d1] = WorksheetFunction.Sum([a1:a10])
End Sub
merhaba; yukarıdaki formulü sıfırdan büyük değerleri toplayacak şekilde yazabilirmisiniz

 

[çıtır]

0 toplamada etkisiz elemandır.Yine de bir sayıdan büyük olanları toplamak isterseniz, aşağıdaki şekilde olabilir.

[d1] = WorksheetFunction.SumIf([a1:a10], ">0", [a1:a10])

 

[selocanexcel]

çok teşekkür ederim.

 

[çıtır]

çok teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[50ersin]

Merhaba,
Alternatif olarak düşünebilirsiniz:
Sub Topla()
[d1] = WorksheetFunction.Sum([a1:a10])
End Sub

Sy.
leumruk ;
bununla toplama yapa biliyorum ama safya1 A sütunda ki sayıların toplamını Sayfa2 de ki A1 hücresine nasıl toplaya bilirim. teşekkür ederim.

 

[1mak1mak]

[d1] = WorksheetFunction.Sum([a1:a10])

Bu toplama kodunu kullanmak istediğimizde sonucu Renkli ve Bold olarak görünmesini sağlamak için nasıl bir ilave yapmamız gerekir acaba.
Alternatif olarak hücreye dolgu rengide eklemek istersek ne yapmamız gerekir. Teşekkürler.

 

[Korhan Ayhan]

Sy.
leumruk ;
bununla toplama yapa biliyorum ama safya1 A sütunda ki sayıların toplamını Sayfa2 de ki A1 hücresine nasıl toplaya bilirim. teşekkür ederim.

Alanların başına sayfa adı yazmanız yeterli olacaktır.

Sub Topla()
Sheets("Sayfa2").Range("A1") = WorksheetFunction.Sum(Sheets("Sayfa1").Range("A:A"))
End Sub

 

[Korhan Ayhan]

[d1] = WorksheetFunction.Sum([a1:a10])

Bu toplama kodunu kullanmak istediğimizde sonucu Renkli ve Bold olarak görünmesini sağlamak için nasıl bir ilave yapmamız gerekir acaba.
Alternatif olarak hücreye dolgu rengide eklemek istersek ne yapmamız gerekir. Teşekkürler.

Hücreyi biçimlendirme kodu eklemeniz yeterli olacaktır. Bu tarz kodları makro kaydet yöntemi ile çok kolay şekilde elde edebilirsiniz.

Sub Topla()
[d1] = WorksheetFunction.Sum([a1:a10])
[d1].Font.Bold = True
[d1].Interior.Colorindex = 6
End Sub

 

[50ersin]

Alanların başına sayfa adı yazmanız yeterli olacaktır.

Sub Topla()
Sheets("Sayfa2").Range("A1") = WorksheetFunction.Sum(Sheets("Sayfa1").Range("A:A"))
End Sub

Sy. Korhan Ayhan ;
ilginizden ve yardımlarınızdan dolayı teşekkür ederim.

 

[50ersin]

Sy. Korhan Ayhan ;
aşağıda yer alan bir tabloyu soldan sağa ve yukarıdan aşağı makro ile nasıl toplama yapabilirim. Teşekkür ederim.