AYNI SUTUNDA DOLU HÜCRELERİ TOPLATMAK

[Ongun]

AYNI SUTUNDA DOLU HÜCRELERÝ TOPLATMAK

HERKESE SELAMLAR, A SÜTUNUNDA DOLU HÜCRELERDEKİ RAKAMLARIN TOPLAMINI YİNE AYNI SÜTUNUN EN SON DOLU HÜCRENİN 4 SATIR SONRASINDAKİ HÜCREYE TOPLAMINI COMMANBUTTON YARDIMIYLA OTOMATİK OLARAK YAZDIRMAK İSTİYORUM.

AYRICA, TOPLAM RAKAMIN YAZDIRILDIÐI HÜCRENİN YANINDAKİ HÜCREYE DE "TOPLAM :" DİYE YAZARSA HARİKA OLUR. LÜTFEN BANA YARDIMCI OLABİLİRMİSİNİZ. ARAMA YAPTIM AMA UYGUN BİR SONUÇ BULAMADIM. ÞİMDİDEN TEÞEKKÜR EDERİM. SAYGILARIMLA :hey:

 

[veyselemre]

[vb:1:9e1c543a78]Sub topla()
SON = [a65536].End(3).Row
Cells(SON + 4, 1) = WorksheetFunction.Sum(Range("A1:A" & SON))
Cells(SON + 4, 2) = "TOPLAM :"
End Sub
[/vb:1:9e1c543a78]

 

[Ongun]

SAYIN veyselemre, çok teşekkür ederim. sorun çözüldü. ellerinize sağlık. Saygılarımla,

 

[Ongun]

Sub topla()
SON = [a65536].End(3).Row
Cells(SON + 4, 1) = WorksheetFunction.Sum(Range("A1:A" & SON))
Cells(SON + 4, 2) = "TOPLAM :"
End Sub

Yukarıdaki kodu kullanarak otomatik toplam alıyor. ancak, diğer sayfalardan kopyala yapıştır (makro ile) yapınca toplamı "0" gösteriyor. Nedenini bir türlü bulamadım lütfen yardımcı olurmusunuz. :kafa:

 

[Ongun]

lütfen yardım edermisiniz.

 

[Levent Menteşoğlu]

Sıfır göstermesi sadece hücreler boş ise yada verileriniz metin olarak algılanıyorsa göz konusudur. Kopyala yapıştır ile aktardığınız verileri el ile tekra yazdığınızda toplam alıyorsa, ikinci belirttiğim durum söz konusudur.

 

[Ongun]

Kopyala yapıştır ile aktardığınız verileri el ile tekra yazdığınızda toplam alıyorsa, ikinci belirttiğim durum söz konusudur.

Sayın leventm ilginizden dolayı çok teşekkür ederim. grçekten denedim el ile girince toplam yapıyor. ancak, makro ile kopya-yapıştır yaptığım sütunları sayı olarak ayarladım yine olmadı. Ne şekilde bir işlem yapmalıyım. Saygılarımla.

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirerek deneyin.

[vb:1:e1fc41bf0f]Sub topla()
[z1] = 1
SON = [a65536].End(3).Row
[z1].Copy
Range("a1:a" & SON).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
[z1].ClearContents
Cells(SON + 4, 1) = WorksheetFunction.Sum(Range("A1:A" & SON))
Cells(SON + 4, 2) = "TOPLAM :"
End Sub[/vb:1:e1fc41bf0f]

 

[Ongun]

Sayın Leventm kodu denedim.
100,20
0
0
0
100,20
0
0
0
100,20
0
0
0
100,20
0
0
0
100,20
TOPLAM : 0
Bu şekilde bir sonuç çıktı.

KOdlar aşağıdaki gibi:
[z1] = 1
SON = [f65536].End(3).Row
[z1].Copy
Range("f2:f" & SON).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
[z1].ClearContents
Cells(SON + 4, 6) = WorksheetFunction.Sum(Range("F2:F" & SON))
Cells(SON + 4, 5) = "TOPLAM :"

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[Korhan Ayhan]

Selamlar,

Ekteki dosya işinizi görebilir kanısındayım.

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin.

[vb:1:ceb314ba98]Sub topla()
SON = [f65536].End(3).Row
For a = 2 To SON
Cells(a, "f") = Cells(a, "f") * 1
Next
Cells(SON + 4, 6) = WorksheetFunction.Sum(Range("F2:F" & SON))
Cells(SON + 4, 5) = "TOPLAM :"
End Sub
[/vb:1:ceb314ba98]

 

[Ongun]

Sayın Leventm, bir türlü olmadı. Kusura bakmayın dosya örneği hazırlamaya çalıştım, ayrıca birkaç deneme yaptım ama malesef tam olarak istediğim olmadı.
Ã?rnek dosya gönderiyorum. Saygılarımla,

NOT: veri olmayan hücrelere "0" ekliyor. Sadece bu sorunum var.

 

[Ongun]

Lütfen yardımcı olurmusunuz. :yardim: :yardim:

 

[abazya]

NOT: veri olmayan hücrelere "0" ekliyor. Sadece bu sorunum var.

Satır boş olsun 0 olmasın' mı demek ietiyorsunuz.

 

[Ongun]

Sayın abazya, evet satır boş olsun sıfır olmasın. İlginiz için teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:aef64f475f]SON = [f65536].End(3).Row
For a = 2 To SON
If Cells(a, "f") <> 0 Then Cells(a, "f") = Cells(a, "f") * 1
Next
Cells(SON + 4, 6) = WorksheetFunction.Sum(Range("F2:F" & SON))
Cells(SON + 4, 5) = "TOPLAM :"[/vb:1:aef64f475f]

 

[Ongun]

Sayın leventm, çok çok teşekkür ederim. Problem çözüldü.ellerinize sağlık.

Saygılarımla