Excel VBA: using replace for multiple selected cell

Question

I am using vba to get combined value in an cell from selection range

what i wanna do is.. i give selection in sheet and run my vba code then in result i would get merged value in an another cell.

but instead of this i am getting value "TRUE"

** in my code i replace enter to comma & for enter i used chr(10).

code i am using is:

Sub abc()
Dim a As String
Dim b As String
a = Selection.Copy
b = Replace(a, Chr(10), ",")
ActiveCell.Offset(4, 0).Value = b
ActiveCell.Offset(4, 1).Value = a
End Sub

image

József Kökény · Accepted Answer · 2017-04-20 16:49:48Z

2

Try this:

Sub abc()
    Dim a As String
    Dim b As String
    a = ActiveCell.Value
    b = Replace(a, Chr(10), ",")
    ActiveCell.Offset(4, 0).Value = b
    ActiveCell.Offset(4, 1).Value = a
End Sub

answered Apr 20, 2017 at 16:49

József Kökény

3364 silver badges8 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

jatin verma Over a year ago

not working... just giving value of one cell that is in selection as this is copying only selection but i need to copy range of selection...

Collectives™ on Stack Overflow

Excel VBA: using replace for multiple selected cell

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related