Lists

  • Thread starter Thread starter JOHN
  • Start date Start date
J

JOHN

I have a worksheet that records a name and 18 scores for many golfers. I want
to create a list with names, that when you select a name it will copy and
paste the name and all 18 scores in a line. Can this be done? Any help
greatly appreciated.

Thanks
John
 
What is the layout of your data? Show us or send your workbook to my address
below.
You can have a drop down keyed to a macro to do this
 
Don Guillett said:
What is the layout of your data? Show us or send your workbook to my address
below.
You can have a drop down keyed to a macro to do this
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)


The names and scores are in columns A:V, I want to paste them into CJ:DE,
Click to expand...
I am picking two names out and matching the names and scores in two man
teams in the CJ:DE column, does this help?
John
 
Easier to send your workbook to my address below along with a snippet of
this message on an inserted sheet and before/after examples.
 
Don Guillett said:
Easier to send your workbook to my address below along with a snippet of
this message on an inserted sheet and before/after examples.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)


If I create a macro for each name to copy the name and scores, can I make a drop down list of the macros showing the names and then select the name and paste it? If so how do I make a drop-down list of the marcos?
Click to expand...
 
I sent this to OP

Private Sub Worksheet_Change(ByVal Target As Range)'sheet module
Application.EnableEvents = False
Call FINDNAMES
Application.EnableEvents = True
End Sub

Sub FINDNAMES()'in regular module
Dim MR
On Error Resume Next
With Sheets("SHEET1")
MR = .Columns("A").Find(What:=ActiveCell, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
'MsgBox MR
..Range(.Cells(MR, "b"), .Cells(MR, "v")).Copy Cells(ActiveCell.Row, "ck")
End With
End Sub
Sub FIXIT()
Application.EnableEvents = True
End Sub
 
Back
Top