popup to select row, then concatenate

[solidENM]

Hello,
I have a spreadsheet that has multiple columns of data. I need a macro that will prompt the user to select a row, then concatenate the info into another cell. The point of this is so the data can be copied, and pasted into a label maker. This label printer only prints from its standalone app.

I need help with the beginning
* message box - select row
* copies C, F, G, H, B, I
- pastes to cell O.


from there, i can handle the rest-- copy, paste as value, edit text size, copy. message box -- paste into printer app. I can probably figure out later how to print to the label maker directly from excel, but for not I am fine with a message box to select row, then telling user to paste into the other app.

 

[Yongle]

Amend string to match your own needs (cell values delimited with line break in example below)

Sub CopyRow()
     Dim r As Long, Col, arr, cellStr As String
     arr = Split("F,G,H,B,I", ",")
     r = Application.InputBox("Select cell in row and click OK", , , , , , , 8).Row
     cellStr = Range("C" & r)
     For Each Col In arr
        cellStr = cellStr & Chr(10) & Range(Col & r)
    Next
    Range("O" & r) = cellStr
End Sub

 

[solidENM]

Amend string to match your own needs (cell values delimited with line break in example below)

Sub CopyRow()
     Dim r As Long, Col, arr, cellStr As String
     arr = Split("F,G,H,B,I", ",")
     r = Application.InputBox("Select cell in row and click OK", , , , , , , 8).Row
     cellStr = Range("C" & r)
     For Each Col In arr
        cellStr = cellStr & Chr(10) & Range(Col & r)
    Next
    Range("O" & r) = cellStr
End Sub

Works beautifully,
thank you very much! I like how it allows the user to select any cell in the row.

 

[Yongle]

thanks for the feedback