-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 Functiona makrót a Module-ba kell helyezni
az alábbi saját függvénnyel =@Singlecellextract(E3;$B$3:$C$7;2)[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
Új hozzászólás Aktív témák
- Projektor topic
- Kínai, és egyéb olcsó órák topikja
- Rekordokat döntöget a Gigabyte új SSD-jének terhelhetősége
- Medence topik
- Napelem
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Luck Dragon: Asszociációs játék. :)
- WLAN, WiFi, vezeték nélküli hálózat
- 2030-tól jöhet el a Hyper-NA EUV berendezések kora
- Elektromos autók - motorok
- További aktív témák...