[Paylaşım] Gizli Hücreleri Toplama Dahil Etme veya Çıkarma

[sonerergin93]

VBA'ya geçen hafta başladım ve işime yarar bir kod yazdım belki başkaları da faydalanır diye paylaşmak istedim. Bu formüle neler ekleyebilirim fikir önerileriniz gelişmem açısından önemli

Function gizli(aralik As Range)
saydir = aralik.Count
gizli = 0
For i = 1 To saydir
If aralik(i).EntireRow.Hidden = False Then
gizli = gizli + aralik(i).Value
End If
Next i


End Function
Function gizli_olmayan(aralik As Range)
saydir = aralik.Count
gizli_olmayan = 0
For i = 1 To saydir
If aralik(i).EntireRow.Hidden = True Then
gizli_olmayan = gizli_olmayan + aralik(i).Value
End If
Next i


End Function

 

[Korhan Ayhan]

Merhaba,

Geçen hafta başladığınızı belirtmişsiniz ve kullanıcı tanımlı fonksiyon yazmışsınız. Sizi gönülden tebrik ediyorum.

Umarım bu hamleniz diğer üyelerimizi de kamçılar ve harekete geçirir.

Öğrenme sürecinizde başarılar ve kolaylıklar dilerim.

 

[ÖmerFaruk]

Kocaman +1

 

[sonerergin93]

Kocaman +1

teşekkür ederim Ömer bey