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

• #48201 Fferi50 Topikgazda Pakliman #48199

  Új Válasz 2022-01-06 12:40:01 #48201

  Ú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 #48199 üzenetére

  Szia!
  Egy ici-picit egyszerűsített függvény:
  Public Function szamolo(rrange As Range) As Long
Dim s As String, cl As Range
For Each cl In rrange.Cells
    s = s & IIf(cl.Value = 1 And cl.Offset(0, 1).Value = "", "1", "")
Next
szamolo = Len(s)
End Function
  Üdv.

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