joedhk
01-18-2019, 09:49 PM
Hi.I am trying to insert excel data into PDF documents.in this is part of code I need help
Dim vClient As Variant
vClient = Range(Selection.Row & ":" & Selection.Row)
sFileFields = Replace(sFileFields, "---NAME1---", vClient(1, 2))
sFileFields = Replace(sFileFields, "---NAME2---", vClient(1, 3))
sFileFields = Replace(sFileFields, "---NAME3---", vClient(1, 4))
This code works for selection row but when i change it to
vClient = Range(Selection.column & ":" & Selection.column)
The code doesn't choose selected column. I want to select selection column just like row in upper code.
Dim vClient As Variant
vClient = Range(Selection.Row & ":" & Selection.Row)
sFileFields = Replace(sFileFields, "---NAME1---", vClient(1, 2))
sFileFields = Replace(sFileFields, "---NAME2---", vClient(1, 3))
sFileFields = Replace(sFileFields, "---NAME3---", vClient(1, 4))
This code works for selection row but when i change it to
vClient = Range(Selection.column & ":" & Selection.column)
The code doesn't choose selected column. I want to select selection column just like row in upper code.