Selecting a record through Data, Form is not the same thing as actually
selecting a worksheet cell. As far as I know it is not possible to trigger
a macro by what you do in a Data Form.

--
Jim
"milt2005" wrote in
message ...
|
| Hello.
|
| I use a vba code that make excel to copy, in automatic way, a row from
| a sheet to another, inclused the images (if there are), when I put a
| number in the first cell of the row.
|
| I use this for select some product from a catalog to make an order, and
| it work well.
|
| Now I try to select the cells (the first of the rows) through the
| "Form" (from Data Form...). The form select the cell but the vba code
| dont work and excel dont copy the rows that I select to the next sheet.
|
|
| Know somebody how can I do to make it?
| Thanks.
|
| __________________________________________________ ___________
|
| This is the code that I use:
|
| *Private Sub Worksheet_Change(ByVal Target As Range)
| Dim i As Long, x As String, y As Range, cell As Range
| If Target.Column < 2 Then Exit Sub
| If Target.Cells.Count 1 Then Exit Sub
| i = Target.Row
| Application.ScreenUpdating = False
|
| If Target < "" Then
| If Sheets("customer copy").Cells(1, 1) = "" Then
| Cells(i, 1).EntireRow.Copy Sheets("customer copy").Cells(1, 1)
| Else: Cells(i, 1).EntireRow.Copy Sheets("customer copy").Cells(65536,
| 1).End(xlUp)(2, 1)
| End If
| End If
|
| If Target = "" Then
| x = Sheets("choice copy").Cells(i, 1).Value
| Sheets("customer copy").Select
| For Each c In
| ActiveSheet.Columns("A:A").SpecialCells(xlCellType Constants, 3)
| If c.Value = x Then
| c.EntireRow.Delete
| End If
| Next
| Sheets("choice copy").Select
| End If
|
| Application.ScreenUpdating = True
| End Sub*
|
|
| --
| milt2005
| ------------------------------------------------------------------------
| milt2005's Profile:
http://www.excelforum.com/member.php...o&userid=21404
| View this thread: http://www.excelforum.com/showthread...hreadid=513221
|