Control button to add copied row below user selection

  • Thread starter Thread starter KUMPFfrog
  • Start date Start date
K

KUMPFfrog

'I am a VB Novice'
I have a worksheet with a bunch of job data, where I have placed a
CommandButton in the header stateing "To enter new invoice information,
please select a job and click OK". My code is simply this:

Private Sub CommandButton1_Click()

ActiveCell.Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=x1Down

End Sub

I don't know what this means, but it works fine. Problem is that I would
prefer that the row inserted have particular formating and not aquire the
formating of the row above. So, I created this formated row at the top of
the worksheet and did a Hide on it. so now I would like copy and paste that
row just below the row the user selects.
 
Hi,

Try this addition to your code

Private Sub CommandButton1_Click()
myrow = ActiveCell.Row
ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=x1Down
Rows(1).EntireRow.Copy
Cells(myrow + 1, 1).PasteSpecial Paste:=xlPasteFormats
End Sub


Mike
 
Dave,

I'm surprised that it works even with the typo. I know the switch isn't
necessary because that's the default and I only left it in because the OP had
it but why no syntax error I wonder.

Thanks for the correction.

Mike
 
I think you got lucky that excel didn't care.

If you had "Option Explicit" at the top of the module, then the code wouldn't
have compiled.

And the next typo error may not be as lucky. Excel may accept it, but do
something that you don't want.
 
the reason i wanted to copy the row instead of paste formats is because i
have validation lists in the main row and do not want them in the new row and
I have different validation lists in the new row that are not in the main row.
 
Back
Top