New to Excel VBA, but have 10 years programming in Access

I have a row pointer for my worksheet, and a command button on a form that I
want to use to insert a blank row after the currently selected row, and then
copy the data from the first three columns of the currently selected row.
How do I

--
Email address is not valid.
Please reply to newsgroup only.

Try following macro:

Sub InsertRow()
ActualRow = Selection.Row
Cells(ActualRow + 1, 1).EntireRow.Insert
Range(Cells(ActualRow, 1), Cells(ActualRow, 3)).Copy _
Destination:=Cells(ActualRow + 1, 1)
End Sub


Regards
reklamo

"Dale Fye" wrote:

New to Excel VBA, but have 10 years programming in Access

I have a row pointer for my worksheet, and a command button on a form that I
want to use to insert a blank row after the currently selected row, and then
copy the data from the first three columns of the currently selected row.
How do I

--
Email address is not valid.
Please reply to newsgroup only.

Worked like a charm,

Thanks.
--
Email address is not valid.
Please reply to newsgroup only.


"reklamo" wrote:

Try following macro:

Sub InsertRow()
ActualRow = Selection.Row
Cells(ActualRow + 1, 1).EntireRow.Insert
Range(Cells(ActualRow, 1), Cells(ActualRow, 3)).Copy _
Destination:=Cells(ActualRow + 1, 1)
End Sub


Regards
reklamo

"Dale Fye" wrote:

New to Excel VBA, but have 10 years programming in Access

I have a row pointer for my worksheet, and a command button on a form that I
want to use to insert a blank row after the currently selected row, and then
copy the data from the first three columns of the currently selected row.
How do I

--
Email address is not valid.
Please reply to newsgroup only.

Thanks nice, but I have a questions. Can you change the code to start at cell
D34 and also copy the format in row 33?

"reklamo" wrote:

Try following macro:

Sub InsertRow()
ActualRow = Selection.Row
Cells(ActualRow + 1, 1).EntireRow.Insert
Range(Cells(ActualRow, 1), Cells(ActualRow, 3)).Copy _
Destination:=Cells(ActualRow + 1, 1)
End Sub


Regards
reklamo

"Dale Fye" wrote:

New to Excel VBA, but have 10 years programming in Access

I have a row pointer for my worksheet, and a command button on a form that I
want to use to insert a blank row after the currently selected row, and then
copy the data from the first three columns of the currently selected row.
How do I

--
Email address is not valid.
Please reply to newsgroup only.

You can try this Dale

Sub test()
With Cells(ActiveCell.Row, 1)
.Offset(1, 0).EntireRow.Insert
.Offset(1, 0).Resize(1, 3).Value = .Resize(1, 3).Value
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dale Fye" wrote in message ...
New to Excel VBA, but have 10 years programming in Access

I have a row pointer for my worksheet, and a command button on a form that I
want to use to insert a blank row after the currently selected row, and then
copy the data from the first three columns of the currently selected row.
How do I

--
Email address is not valid.
Please reply to newsgroup only.