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

• #11873 Delila_1 veterán bugizozi #11868

  Új Válasz 2011-11-03 13:04:52 #11873

  Ú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

  

  Delila_1

  veterán

  válasz bugizozi #11868 üzenetére

  Sok rövidítéshez.

  A K oszlopban legyenek a rövidítések, az L-ben a hozzájuk tartozó számok, nullától felfelé.
  A nullához a "Nincs rövidítés a sorban" szöveg – vagy valami elfogadhatóbb – tartozzon a K oszlopban.

  Function akármi(ter As Range)
  Dim b As Integer, CV
  b = 0
  For Each CV In ter
  If CV > "" Then
  If Application.WorksheetFunction.VLookup(CV, Columns("K:L"), 2, 0) > b Then
  b = Application.WorksheetFunction.VLookup(CV, Columns("K:L"), 2, 0)
  End If
  End If
  Next
  akármi = Range("K" & Application.WorksheetFunction.Match(b, Columns("L:L"), 0))
  End Function

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