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

• #32854 Delila_1 Topikgazda botond2225 #32853

  Új Válasz 2016-10-04 15:36:59 #32854

  Ú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

  Topikgazda

  válasz botond2225 #32853 üzenetére

  Ehhez egy saját függvény kell.

  Beírod a H oszlopba (H2-től kezdve) a keresendő szöveget (9'' Quad Core), mellé az I-be a GA33-at, alá a többi párost.

  Modulba másold be a makrót.

  Function Rovidites(Cella As Range)
Dim sor As Integer, usor As Integer

usor = Range("H" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
If InStr(Cella.Value, Range("H" & sor)) > 0 Then
Rovidites = Range("I" & sor).Value
Exit For
End If
Next
End Function

  Ha a hosszú szöveged az A2-ben van, akkor a képlet Rovidites(A2). Ugyanúgy másolható, mint a többi függvény.

  Vigyázz! a hosszú szövegedben a 9 után 2 db aposztróf van, a keresési feltételnél meg 1 db idézőjel.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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