Soru Seçili hücreleri makro ile toplamak

[Zahir]

Merhaba ;
Aşağıdaki kodlarla seçili olan hücrelerdeki değerleri toplayarak tutar değişkenine atıyorum. Ancak filtrelenmiş bir alanda seçim yaptığım zaman aradaki gizli hücrelerdeki verileri de topluyor. Dolayısıyla yanlış sonuç elde ediyorum. Bunun önüne nasıl geçebilirim. Yalnızca filtrelenmiş alandaki görünür hücrelerin toplamını almak istiyorum. Teşekkürler

tutar = 0
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
tutar = tutar + cell.Value
Next cell

 

[Ömer BARAN]

Merhaba.
Kod cevabı veremiyorum şu an. Aşağıdaki sayfadaki visible seçeneği üzerinden yürünebilir.
https://docs.microsoft.com/tr-tr/office/vba/api/Excel.Range.SpecialCells

 

[veyselemre]

Tabi seçili alanlarda metin olmaması lazım.

For Each cell In Intersect(Selection.SpecialCells(xlCellTypeVisible), ActiveSheet.UsedRange)

 

[Zahir]

Veysel Bey teşekkür Ederim çözüm için . Bu arada benim adımda Veysel