Macro that when I select a name it pulls that clients data into a form like tab

[tonywatsonhelp]

Hi everyone,
I have a tab that's set up to make it easy to input data
which is then moved to the "Events" tab as a list

I want to be able to pull the data back from the "Events" tab into the "Form" tab so more data can be added it can be edited etc.

So what I'd like is a way to run a macro that looks at the client name in Sheet "Form" cell D6
then goes to the "Events" tab and find the row that client is on

Then moves the following


Events Column D to Form Cell G6

Events Column R to Form Cell D8
Events Column H to Form Cell P4
Events Column L to Form Cell P5
Events Column S to Form Cell L6

any ideas how i can do this

Thanks

Tony
​

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim Fnd As Range
   If Target.Address <> "$D$6" Then Exit Sub
   Cancel = True
   With Sheets("Pcode")
      Set Fnd = .Range("A:A").find(Target.Value, , , xlWhole, , , False, , False)
      If Fnd Is Nothing Then
         MsgBox "Not Found"
         Exit Sub
      End If
      Range("G6").Value = Intersect(Fnd.EntireRow, .Range("D:D")).Value
      Range("D8").Value = Intersect(Fnd.EntireRow, .Range("R:R")).Value
      Range("P4").Value = Intersect(Fnd.EntireRow, .Range("H:H")).Value
      Range("P5").Value = Intersect(Fnd.EntireRow, .Range("L:L")).Value
      Range("L6").Value = Intersect(Fnd.EntireRow, .Range("S:S")).Value
   End With
End Sub

 

[tonywatsonhelp]

Thanks Fluff, this is great

Tony

 

[Fluff]

Glad to help & thanks for the feedback