Új hozzászólás Aktív témák

• #48204 Fferi50 Topikgazda Pakliman #48203

  Új Válasz 2022-01-07 09:18:41 #48204

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Pakliman #48203 üzenetére

  Szia!
  A "kötekedésben" igazad van, a képletes megoldás is hibát okoz, ha a sor végéig ki van jelölve.
  Ez lehet(ne) a javított függvényes változat:
  Public Function szamolo(rrange As Range) As Long
Dim s As String, cl As Range, xx As Long
For xx = 1 To rrange.Cells.Count - 1
    Set cl = rrange.Cells(xx)
    s = s & IIf(cl.Value = 1 And cl.Offset(0, 1).Value = "", "1", "")
Next
If rrange.Cells(xx).Value = 1 Then s = s & "1"
szamolo = Len(s)
End Function
  Itt nem lépünk ki a tartományból a számolás során.
  Üdv.

Új hozzászólás Aktív témák