Insert row and copy cells from the currently selected row
 

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.

Insert row and copy cells from the currently selected row
 

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.

Insert row and copy cells from the currently selected row
 

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.

Insert row and copy cells from the currently selected row
 

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.

Insert row and copy cells from the currently selected row
 

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.