ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Insert Row before Macro Button (https://www.excelbanter.com/excel-discussion-misc-queries/47787-insert-row-before-macro-button.html)

Kieranz

Insert Row before Macro Button
 

How do I create a macro which will allow me to insert a row on top. Eg
I have data in C3..H10. Row C11..H11 is blank but cells are formatted
(general, currency etc.). I have a macro button on B11, with the
following procedure attached to the button;

Sub InsertLineAbove()
ActiveCell.Offset(0,0).Range("A1").Select
Selection.EntireRow.Insert
ActiveCell.Offset(1,0).Range("A1").Select
End Sub

The probelm is when my cursor is on B11 or C11, it works beautifully,
but if the cursor is anywhere else and I click on the button (located
at B11) then it insert a line at the point where the cursor was. Which
is exactly what I don't want.

Thanks
Kieranz

PS Admin, suggestion to help newbies - is it possible to have a guide
in pdf which can be downloaded to read at leisure on using the forum
etc.


--
Kieranz
------------------------------------------------------------------------
Kieranz's Profile: http://www.excelforum.com/member.php...o&userid=27663
View this thread: http://www.excelforum.com/showthread...hreadid=471787


David McRitchie

Are you trying to insert rows above a selected cell, if you are
take a look at
Insert a Row using a Macro to maintain formulas
http://www.mvps.org/dmcritchie/excel/insrtrow.htm

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Kieranz" wrote in message
...

How do I create a macro which will allow me to insert a row on top. Eg
I have data in C3..H10. Row C11..H11 is blank but cells are formatted
(general, currency etc.). I have a macro button on B11, with the
following procedure attached to the button;

Sub InsertLineAbove()
ActiveCell.Offset(0,0).Range("A1").Select
Selection.EntireRow.Insert
ActiveCell.Offset(1,0).Range("A1").Select
End Sub

The probelm is when my cursor is on B11 or C11, it works beautifully,
but if the cursor is anywhere else and I click on the button (located
at B11) then it insert a line at the point where the cursor was. Which
is exactly what I don't want.

Thanks
Kieranz

PS Admin, suggestion to help newbies - is it possible to have a guide
in pdf which can be downloaded to read at leisure on using the forum
etc.


--
Kieranz
------------------------------------------------------------------------
Kieranz's Profile: http://www.excelforum.com/member.php...o&userid=27663
View this thread: http://www.excelforum.com/showthread...hreadid=471787




Kieranz


On click of the button (on B11) I should be able to copy that row
(including formulaes, format etc) one line above, irrespective where
the cursor may be positioned. That way I can continue to add rows only
as I need them.
Many thks


--
Kieranz
------------------------------------------------------------------------
Kieranz's Profile: http://www.excelforum.com/member.php...o&userid=27663
View this thread: http://www.excelforum.com/showthread...hreadid=471787



All times are GMT +1. The time now is 03:14 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com