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

• #35173 Fferi50 Topikgazda attilalr2 #35171

  Új Válasz 2017-05-12 11:21:34 #35173

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

  Szia!

  Az alábbi felhasználói függvénnyel megoldható:

  Function bevizsgal(ByRef hol As Range, ByRef mit As Range)
Dim sr As Range, van As Integer, mr As Range
van = 0
For Each sr In hol.Rows
van = van + (Application.CountIf(sr, mit.Cells(1)) > 0 And Application.CountIf(sr, mit.Cells(2)) > 0) * -1
Next
bevizsgal = van
End Function

  A függvényt egy modullapra kell beírni. (Alt F11, menüben insert - module, majd bemásolod)
  Ugyanúgy kell használni mint egy beépített függvényt. Ha húzni szeretnéd a képletet, akkor az első paramétert $ jelekkel kiegészítve kell megadnod.

  A füzetet makróbarátként kell elmentened, ha meg akarod tartani a függvényt.

  Üdv.

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