Makro ile etopla

[CILEKESH]

Merhaba,

A2:A17 aralığında yazılı değerleri ölçüt alarak 20. satırdan başlayıp
Brüt - Dara - Net toplamlarını almak istiyorum.

Örnek tablonun A2:A17 aralığında 3 adet değer var. 20743,25347 ve 25348,
buna göre,

A 20 hücresine 20743 yazarak soldaki hücrelere Brüt - Dara - Net toplamlarını
A 21 hücresine 25347 yazarak soldaki hücrelere Brüt - Dara - Net toplamlarını
A 22 hücresine 25348 yazarak soldaki hücrelere Brüt - Dara - Net toplamlarını

yazacak.

Toplam satırı A2:A17 aralığında kaç farklı değer var ise o kadar sayıda satır olacak.

Tşk.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub Aktar()
Dim STR As Long
Range("A1:D13").AdvancedFilter xlFilterCopy, _
Range("A1:D13"), Range("A19"), True
STR = Range("A" & Rows.Count).End(xlUp).Row
With Range("B20:D" & STR)
.Formula = "=SUMIF($A$2:$A$13,$A20,B$2:B$13)"
.Value = .Value
End With
End Sub

 

[antonio]

Merhaba,

A2:A17 aralığında yazılı değerleri ölçüt alarak 20. satırdan başlayıp
Brüt - Dara - Net toplamlarını almak istiyorum.

Örnek tablonun A2:A17 aralığında 3 adet değer var. 20743,25347 ve 25348,
buna göre,

A 20 hücresine 20743 yazarak soldaki hücrelere Brüt - Dara - Net toplamlarını
A 21 hücresine 25347 yazarak soldaki hücrelere Brüt - Dara - Net toplamlarını
A 22 hücresine 25348 yazarak soldaki hücrelere Brüt - Dara - Net toplamlarını

yazacak.

Toplam satırı A2:A17 aralığında kaç farklı değer var ise o kadar sayıda satır olacak.

Tşk.

Sayın asi_kral benden önce davranmış ama bende kalmasın, ekliyorum.

 

[CILEKESH]

Sayın asi_kral ve antonio

Her ikinize de teşekkür ederim. Sayenizde kendi çalışmama uyarlayacağım bu kodları.

 

[asi_kral]

Sayın asi_kral ve antonio

Her ikinize de teşekkür ederim. Sayenizde kendi çalışmama uyarlayacağım bu kodları.

Kolay Gelsin.