RE: macro to transfer info

Try this:

Copy this code into the code window for Sheet1
-----------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim GoOn
If Target.Column = 1 And Target.Value <> "" Then
GoOn = MsgBox("Copy Vendor Info?", vbOKCancel)
If GoOn <> vbOK Then
Exit Sub
Else
CopyVendorInfo
End If
End If

End Sub
-----------------------------------------------------------------
Copy this code into a regular module
-----------------------------------------------------------------------------------------
Sub CopyVendorInfo()
Dim BlankCell As Integer

ActiveCell.EntireRow.Copy
Sheet2.Select
BlankCell = Application.WorksheetFunction.CountA(Sheet2.Range("A:A")) + 1
Sheet2.Cells(BlankCell, 1).Select
Selection.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

End Sub
------------------------------------------------------------------------------------------
Maybe not the best way to do it, but it works.
"Larry" wrote:

> I need a macro that will let me do this: When I click on a vendor ID number
> in column A of sheet 1, I want all vendor information on that row to be
> automatically copied to the next empty row on sheet 2, including the vendor
> ID number, in the appropriate cells. Can you help? Thanks!

Man, this is really close. It does exactly what I asked about. However, I
neglected to provide specific information you should have had. Sheet2 is
named 'Field Activity Report'. I renamed it to Sheet2 to make the macro
work, but it really needs to be called "Field Activity Report'. Information
copied onto the next blank row of 'Field Activity Report' needs to begin on
column d, not column a. Once the user has pressed OK on the message box, the
macro needs to go back to sheet1 automatically after the information is
entered onto the 'Filed Activity Report'. If you can help me tweek this, it
would be greatly appreciated. You did a great job! Thanks!

"Brassman" wrote:

> Try this:
>
> Copy this code into the code window for Sheet1
> -----------------------------------------------------------------------------------------
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> Dim GoOn
> If Target.Column = 1 And Target.Value <> "" Then
> GoOn = MsgBox("Copy Vendor Info?", vbOKCancel)
> If GoOn <> vbOK Then
> Exit Sub
> Else
> CopyVendorInfo
> End If
> End If
>
> End Sub
> -----------------------------------------------------------------
> Copy this code into a regular module
> -----------------------------------------------------------------------------------------
> Sub CopyVendorInfo()
> Dim BlankCell As Integer
>
> ActiveCell.EntireRow.Copy
> Sheet2.Select
> BlankCell = Application.WorksheetFunction.CountA(Sheet2.Range("A:A")) + 1
> Sheet2.Cells(BlankCell, 1).Select
> Selection.PasteSpecial (xlPasteValues)
> Application.CutCopyMode = False
>
> End Sub
> ------------------------------------------------------------------------------------------
> Maybe not the best way to do it, but it works.
> "Larry" wrote:
>
> > I need a macro that will let me do this: When I click on a vendor ID number
> > in column A of sheet 1, I want all vendor information on that row to be
> > automatically copied to the next empty row on sheet 2, including the vendor
> > ID number, in the appropriate cells. Can you help? Thanks!