• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

AYNI SUTUNDA DOLU HÜCRELERİ TOPLATMAK

  • Konbuyu başlatan Konbuyu başlatan Ongun
  • Başlangıç tarihi Başlangıç tarihi
O

Ongun

Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
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:
 
[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]
 
SAYIN veyselemre, çok teşekkür ederim. sorun çözüldü. ellerinize sağlık. Saygılarımla,
 
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:
 
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.
 
leventm' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
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]
 
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 :"
 
Selamlar,

Ekteki dosya işinizi görebilir kanısındayım.
 
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]
 
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.
 
Lütfen yardımcı olurmusunuz. :yardim: :yardim:
 
Sayın abazya, evet satır boş olsun sıfır olmasın. İlginiz için teşekkürler.
 
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]
 
Sayın leventm, çok çok teşekkür ederim. Problem çözüldü.ellerinize sağlık.

Saygılarımla
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst