[Yardım]  sütunlardaki verileri tek bir sütunda toplama

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

sütunlardaki verileri tek bir sütunda toplama

İleti#1)  Fem » 11 Nis 2018 15:31

merhaba benim yapmak istediğim şey A,B,C,D,E Sütunlarındaki verileri Başka bir sütunda alt alta toplamak. Örnek dosya ektedir. Yardımcı olabilirseniz sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Fem
 
Kayıt: 11 Nis 2018 15:23
Meslek: Grafik tasarım
Yaş: 42
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/B.çekmece

Cevap: sütunlardaki verileri tek bir sütunda toplama

İleti#2)  ardafeza » 11 Nis 2018 22:14

ilk sütunlar har sayı olmalı yada far adedi toplamı mı istemişsin beli değil?
sütunların toplamı icin toplamı yapılacak ilgili hücreye git ve =topla(A:A) yaz ve cık a değerleri toplayıp secilen hücreye aktarır.
Kullanıcı avatarı
ardafeza
Yeni Başlamış
 
Kayıt: 10 Nis 2018 00:37
Meslek: öğretmen
Yaş: 44
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: d.bakır

Cevap: sütunlardaki verileri tek bir sütunda toplama

İleti#3)  baytm » 12 Nis 2018 10:38

[ilginc]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
baytm
Siteye Alışmış
 
Adı Soyadı:mustafa gunal
Kayıt: 20 Ağu 2014 14:48
Konum: antalya/muratpaşa
Meslek: memur
Yaş: 32
İleti: 121
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Cevap: sütunlardaki verileri tek bir sütunda toplama

İleti#4)  Fem » 13 Nis 2018 15:01

baytm yazdı:[ilginc]

elinize sağlık istediğim tam da buydu :))))
Kullanıcı avatarı
Fem
 
Kayıt: 11 Nis 2018 15:23
Meslek: Grafik tasarım
Yaş: 42
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/B.çekmece

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: sütunlardaki verileri tek bir sütunda toplama

İleti#5)  baytm » 13 Nis 2018 16:02

Sürekli kullanacaksanız biraz düzenleyebilirsiniz. [TESEKKÜR]
Kod: Tümünü seç
Sub deneme()
Application.ScreenUpdating = False

ason = Cells(Rows.Count, 1).End(xlUp).Row
bson = Cells(Rows.Count, 2).End(xlUp).Row
cson = Cells(Rows.Count, 3).End(xlUp).Row
dson = Cells(Rows.Count, 4).End(xlUp).Row
eson = Cells(Rows.Count, 5).End(xlUp).Row

abcd = Range("a1:a" & ason).Copy
Cells(1, 15).PasteSpecial

abcd = Range("b1:b" & bson).Copy
Cells(ason + 1, 15).PasteSpecial

abcd = Range("c1:c" & cson).Copy
Cells(ason + bson + 1, 15).PasteSpecial

abcd = Range("d1:d" & dson).Copy
Cells(ason + bson + cson + 1, 15).PasteSpecial


abcd = Range("e1:e" & eson).Copy
Cells(ason + bson + cson + dson + 1, 15).PasteSpecial

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
Kullanıcı avatarı
baytm
Siteye Alışmış
 
Adı Soyadı:mustafa gunal
Kayıt: 20 Ağu 2014 14:48
Konum: antalya/muratpaşa
Meslek: memur
Yaş: 32
İleti: 121
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: sütunlardaki verileri tek bir sütunda toplama

İleti#6)  tasad » 13 Nis 2018 16:44

For j = kısmından istediğin kadar kolon ekleyebilirsin.


Kod: Tümünü seç
Sub sırala()

Dim sat As Long, j As Integer

Application.ScreenUpdating = False
On Error Resume Next

For j = 1 To 5
sat = Cells(Rows.Count, j).End(xlUp).Row
Range(Cells(1, j), Cells(sat, j)).Cut Range("r" & Cells(Rows.Count, "r").End(xlUp).Row + 1)
Next j

Application.ScreenUpdating = True

End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

cron
Bumerang - Yazarkafe