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

• #49182 lappy őstag Warton #49179

  Új Válasz 2022-06-17 08:58:45 #49182

  Ú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

  

  lappy

  őstag

  válasz Warton #49179 üzenetére

  Function SingleCellExtract(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim i As Long
Dim Result As String
For i = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(i, 1) = Lookupvalue Then
Result = Result & " " & LookupRange.Cells(i, ColumnNumber) & ","
End If
Next i
SingleCellExtract = Left(Result, Len(Result) - 1)
End Function

  a makrót a Module-ba kell helyezni
  az alábbi saját függvénnyel =@Singlecellextract(E3;$B$3:$C$7;2)

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