Problem with Excel Form and VBA code
 

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

Problem with Excel Form and VBA code
 

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
|