Sırayla toplama işlemi?

[semira_]

her dört aralık arasındaki sayıyı toplayıp başka bir hücreye nasıl yazarım mesela

A1
A2
A3
A4

SIRAYLA A1+A2+A3+A4 TOPLA , B1 Hucresıne yazdır
aynı sekılde A5+A6+A7+A8 TOPLA VE B2 hucresıne yazdır bunu nasıl yapabılırım ??

 

[relorelo]

her dört aralık arasındaki sayıyı toplayıp başka bir hücreye nasıl yazarım mesela

A1
A2
A3
A4

SIRAYLA A1+A2+A3+A4 TOPLA , B1 Hucresıne yazdır
aynı sekılde A5+A6+A7+A8 TOPLA VE B2 hucresıne yazdır bunu nasıl yapabılırım ??

B1 hücresine direk " =TOPLAM(A1:A4) " yazmanız yeterli olacaktır.

 

[semira_]

Excel makroda nasil yazacagim

 

[Orion1]

Buyurun.

Sub topla59()
Dim sonsat As Long, i As Long, sat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("B:B").ClearContents
For i = 1 To sonsat Step 4
    sat = sat + 1
    Cells(sat, "B").Value = WorksheetFunction.Sum(Range("A" & i & ":A" & i + 3))
Next
MsgBox "toplama yapıldı" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[semira_]

Orion bey size bir dosya yolladam bajarmisiniz cok basit ama ben toplamasini yapamadim makroyla cildiracam yani .

 

[Orion1]

Orion bey size bir dosya yolladam bajarmisiniz cok basit ama ben toplamasini yapamadim makroyla cildiracam yani .

Dosya gelmemiş .Buraya ekleyin.

 

[Ömer BARAN]

Merhaba.
Alternatif olsun. A sütunundaki sayıları B sütununa toplar.
İlgili sayfanın kod bölümüne uygulayınız.

Sub TOPLA()
Range("B:B").ClearContents
For satır = 1 To WorksheetFunction.RoundUp([A65536].End(3).Row / 4, 0)
    Range("B" & satır) = WorksheetFunction.Sum(Range("A" & (4 * (satır - 1)) + 1 & ":A" & 4 * satır))
Next: MsgBox "BİTTİ"
End Sub

 

[Merhum İdris SERDAR]

her dört aralık arasındaki sayıyı toplayıp başka bir hücreye nasıl yazarım mesela

A1
A2
A3
A4

SIRAYLA A1+A2+A3+A4 TOPLA , B1 Hucresıne yazdır
aynı sekılde A5+A6+A7+A8 TOPLA VE B2 hucresıne yazdır bunu nasıl yapabılırım ??

.
Formül olarak; B1 hücresine;

=SUM(OFFSET(A$1;(ROW()-ROW(B$1))*4;;4;))

yazıp, aşağıya doğru kopyalayın.

Ayrıca, aşağıdaki kodu kullanabilirsiniz. Yazdırılacak alanı kendinize uyarlayın.

Sub topla4()

With Sheet1.Range("B1:B10")

    .Formula = "=SUM(OFFSET(A$1,(ROW()-ROW(B$1))*4,,4,))"
    .Formula = .FormulaR1C1

End With

End Sub

.

 

[semira_]

dosyam ektedir. her satıs merkezi ve dönem için tüm müşteri talepleri (1.müşteri,2.müşter,,3.müşteri talebi ve 4. müşteri talebi toplanıp sırayla başka bir sutuna yazılacaktır , bunu yapamadım , dosya ektedir. Sayfa 2. de daha ıyı açıklamaya çalıştım yazdıgım kod sayfa 2 de mevcuttur.

Dosya gelmemiş .Buraya ekleyin.

 

[Ömer BARAN]

Tekrar merhaba.
Formül kullanmak isterseniz. Sayfa2 I2 hücresine;

=TOPLA.ÇARPIM(($A$2:$A$81=G2)*($C$2:$C$81=H2)*($D$2:$D$81))

 

[Orion1]

Dosyanız ektedir.

Sub topla59()
Dim sonsat As Long, i As Long, sat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("I2:I" & Rows.Count).ClearContents
sat = 2
For i = 2 To sonsat Step 4
    Cells(sat, "I").Value = WorksheetFunction.Sum(Range("D" & i & ":D" & i + 3))
    sat = sat + 1
Next
MsgBox "toplama yapıldı" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Merhum İdris SERDAR]

dosyam ektedir. her satıs merkezi ve dönem için tüm müşteri talepleri (1.müşteri,2.müşter,,3.müşteri talebi ve 4. müşteri talebi toplanıp sırayla başka bir sutuna yazılacaktır , bunu yapamadım , dosya ektedir. Sayfa 2. de daha ıyı açıklamaya çalıştım yazdıgım kod sayfa 2 de mevcuttur.

.

Yukarıdakverdiğim makroya göre yapılmış dosyanız ekte.

.

 

[semira_]

Çok tesekkur edrım cok sagolun , cell yerıne offset kullanabırmıyım ? cunku bu bır kodun parcası orada hep offset kullandım da bunuda offset olarak yazmamda sakınca yoktur ınşallah.

Dosyanız ektedir.

Sub topla59()
Dim sonsat As Long, i As Long, sat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("I2:I" & Rows.Count).ClearContents
sat = 2
For i = 2 To sonsat Step 4
    Cells(sat, "I").Value = WorksheetFunction.Sum(Range("D" & i & ":D" & i + 3))
    sat = sat + 1
Next
MsgBox "toplama yapıldı" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[semira_]

tesekkurler

 

[semira_]

çok makbule gectıı .

 

[Orion1]

Çok tesekkur edrım cok sagolun , cell yerıne offset kullanabırmıyım ? cunku bu bır kodun parcası orada hep offset kullandım da bunuda offset olarak yazmamda sakınca yoktur ınşallah.

En uygunu bu şekilde oluyor.
Sonucu aldıktan sonra ofset olmuş,olmamış farketmez.bu offset olasada olur olmasada olur.bu bağımsız çalışıyor.

 

[semira_]

Cok sagolunn .tamamdirr .