Topla Formulu VBA da

[kykbt]

Arkadaşlar Merhaba

A sutununda a7 den başlayıp değişken olan sayıda bilgi var bazen 100 bazen daha fazla, bunlara karşılık gelen
B sutununda b7 den başlayıp aşağı doğru karşılığında değer var.

Benim istediğim b5 hücresine b7 den başlayıp bittiği bx e kadar olan kısmı toplamak.
Burada A sutunundaki a7 den başlayıp aşağı doğru artan bilgi sayısını (x) i referans alsın istiyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub topla()
Dim x As Integer
[b5] = ""
For x = 7 To Cells(65536, "a").End(xlUp).Row
[b5] = [b5] + Cells(x, "b")
Next
End Sub

 

[kykbt]

Hocam sonuc doğru Teşekkürler ediyorum.

Bunu o hücrede formul olarak yazılsın desek olmazmı

Yani döngüsüz hücreye formulü yazıp cıksak toplama işini formul yapsa

 

[N.Ziya Hiçdurmaz]

yanıt

=+topla.çarpım(--(a7:a25<>"");--(b7:b25))

 

[Orion1]

Alternatif.

=TOPLA(B7:B65536)

 

[kykbt]

Hocam sanırım derdimi anlatamadım.

Ben formulu makro yazsın ve cıksın istiyorum

Ayrıca son yazdığınız formulde sınırlama var "=+topla.çarpım(--(a7:a25<>"");--(b7:b25))" a25 gibi,

bunun "Cells(65536)" gibi falan olmalı veya =TOPLA(B7:B65536) değilde =TOPLA(B7:b) gibi olmazmı

burada gereksiz alanın toplama girmesini istemiyorum. ve bunu formulü makro o b5 hücresine yazsın istiyorum

 

[Orion1]

Yoksa bunumu istiyorsunuz.

Range("B5").Value = WorksheetFunction.Sum(Range("B7:B65536"))

 

[Korhan Ayhan]

Selamlar,

Ben sorunuzu farklı yorumladım. Sanırım aşağıdaki şekilde bir kod istiyorsunuz.

Option Explicit
 
Sub FORMÜL_UYGULA()
    Dim Satır As Long
    Satır = [A65536].End(3).Row
    [B5] = "=SUM(A7:A" & Satır & ")"
End Sub

 

[kykbt]

Merhaba

İlgilenen Tüm Arkadaşlara Çok Teşekkür Ediyorum.

Korhan Hocam yazdığınız TAM İSTEDİĞİM olmuş, Ayrıca teşekkür ederim.

 

[kykbt]

Selamlar,

Ben sorunuzu farklı yorumladım. Sanırım aşağıdaki şekilde bir kod istiyorsunuz.

Option Explicit
 
Sub FORMÜL_UYGULA()
    Dim Satır As Long
    Satır = [A65536].End(3).Row
    [B5] = "=SUM(A7:A" & Satır & ")"
End Sub

Korhan Hocam Merhaba

Yukarıdaki kodu etopla için nasıl yaparız?
-----[u7]=ETOPLA($F$7:$F$22000;$T8;$G$7:$G$22000)-----bunu yukarıda ki gibi nasıl yazıcağız

Satır = [F65536].End(3).Row
[u7]=SUMIF($F$7:$F;$T8;$G$7:$G) ----------yani buna benzer sekilde

 

[hamitcan]

Aşağıdaki şekilde deneyin.
ActiveCell.FormulaR1C1 = "=SUMIF(R7C6:R22000C6,R[3]C20,R7C7:R22000C7)"

 

[kykbt]

Hamit Can arkadaşım ilgine teşekkür ancak ben

Korhan Hocamın yaptığı mantık ile olmasını istiyorum.

 

[kykbt]

Arkadaşlar çözdüm ilgilenenlere teşekkürler

[u7]=ETOPLA($F$7:$F$22000;$T8;$G$7:$G$22000) yerine

Satır = [f65536].End(3).Row
Range("U7") = "=SUMIF(f$7:f$" & Satır & " , t7 , g$7:g$" & Satır & ")" veya

[u7]= "=SUMIF(f$7:f$" & Satır & " , t7 , g$7:g$" & Satır & ")" olarak uyguladım oldu.