Yet another macro question
in [General]
|
Prev: not enough resources to display completely starting excel 2010
Next: Conditional formatting using part of the cells contents
From: cvgairport on 27 Apr 2010 13:32 This is what I get for trying this on my own. I just want a macro that will insert 2 blank rows at the current cursor position. Sub Insert2Rows() ' ' qrow = ActiveCell.Row Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown End Sub Any ideas? Thanks! Amy
From: Jim Thomlinson on 27 Apr 2010 13:42 This should be close... Sub Insert2Rows() ActiveCell.Resize(2, 1).EntireRow.Insert End Sub -- HTH... Jim Thomlinson "cvgairport" wrote: > This is what I get for trying this on my own. I just want a macro that will > insert 2 blank rows at the current cursor position. > > Sub Insert2Rows() > ' > ' qrow = ActiveCell.Row > Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown > End Sub > > Any ideas? > > Thanks! > > Amy
From: Mike H on 27 Apr 2010 13:47 Hi, Maybe this Sub Insert2Rows() ' qrow = ActiveCell.Row Rows(qrow).Resize(2).Insert End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "cvgairport" wrote: > This is what I get for trying this on my own. I just want a macro that will > insert 2 blank rows at the current cursor position. > > Sub Insert2Rows() > ' > ' qrow = ActiveCell.Row > Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown > End Sub > > Any ideas? > > Thanks! > > Amy
From: cvgairport on 27 Apr 2010 13:47
As usual, you guys rock! "Jim Thomlinson" wrote: > This should be close... > > Sub Insert2Rows() > ActiveCell.Resize(2, 1).EntireRow.Insert > End Sub > -- > HTH... > > Jim Thomlinson > > > "cvgairport" wrote: > > > This is what I get for trying this on my own. I just want a macro that will > > insert 2 blank rows at the current cursor position. > > > > Sub Insert2Rows() > > ' > > ' qrow = ActiveCell.Row > > Rows(qrow & ":" & grow + 1).Selection.Insert Shift:=xlDown > > End Sub > > > > Any ideas? > > > > Thanks! > > > > Amy |