Fill a word form clicking on an excel cell

[Denis]

Hi all,
I would like to be able to fill a word form from an excel sheet by clicking
on a cell and transferring the data from the different cells of the row in a
word document.
example :
Excel sheet :
Name1 address1 code1 city1
Name2 address2 code2 city2

I click on the cell Name1 and may be active a macro or a specific button to
get my word document filled with the information.

I know how to insert cells into a word document, but I would like to have an
automation when I click on a row or on a cell.
I'm not aware about programming so it could be great if the solution was
very easy to set up.
Thanks a lot

 

[Daniel Gash-Jones]

Hi Denis

In the worksheet module enter the following code which will capture the doubleclick event:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
if not intersect(Target, YourRange) is nothing then
code to move Target.value2 to your word document
end if
End Sub

Where YourRange is the range on the worksheet containing your clickable cells. In this instance it takes a double click to run the macro.

HTH

 

[macropod]

Hi Denis,

You could use a SelectionChange event-driven macro attached to the relevant worksheet. The following example populates an array with
the contents of columns A for the current row if any of the cells in A1:A10 is selected. It then outputs those values via a
message box.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim MyStr(3)
If Intersect(Target, ActiveSheet.Range("A1:A10")) Is Nothing Then Exit Sub
For i = 0 To 3
MyStr(i) = Target.Cells(1, i + 1).Value
Next
MsgBox Join(MyStr(), vbCrLf)
End Sub