VBA Help

[mduntley]

I have a VBA that create a custom Vlookup code, but whenever it generates a line at the beginning of the result. Can anyone help me?


Function MYVLOOKUP(pValue As String, pWorkRng As Range, pIndex As Long)
'Update 20150310
For Each rng In pWorkRng
If rng = pValue Then
xResult = xResult & vbNewLine & rng.Offset(0, pIndex - 1)
End If
Next
MYVLOOKUP = xResult
End Function

 

[sheetspread]

Does deleting & vbNewLine & work?

 

[mduntley]

Does deleting & vbNewLine & work?

I add the vbNewLine because I am gathering all date and I want the result in separate rows, but in the same cell. But when it does that the first line has a enter in.

 

[FormR]

Hi, try changing the last line before End Function to:

MYVLOOKUP = Mid(xResult, 2)

 

[sheetspread]

edited

 

[mduntley]

Hi, try changing the last line before End Function to:

MYVLOOKUP = Mid(xResult, 2)

Tried that and it didn’t delete the space at the top of the cell. Only add a blank line at the bottom

 

[FormR]

Tried that and it didn’t delete the space at the top of the cell. Only add a blank line at the bottom

Hi, sorry - try:

MYVLOOKUP = Mid(xResult, 3)

Note, you may need to manually adjust the row height as appropriate.

 

[mduntley]

That works. Thank you

 

[mduntley]

How do I get that guide text box under my formula? If you don’t understand, go to excel and do a if formula and a pop up box appear

 

[FormR]

How do I get that guide text box under my formula? If you don’t understand, go to excel and do a if formula and a pop up box appear

You can't im araid.