• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Delete row vba

Binnies

New Member
Hi
I am trying to learn VBA, I have create a simple database and need some help with the problem below

I want to transfer Row A29 to C29 in sheet 1= Database to another sheet 2= Data to the next available row. Then I would like to delete the contents in sheet1= Database sheet row B10 toAC10 once the information is transferred to sheet 2=Data. I am trying to learn VBA at the moment. Your help would be appreciated.
I have attached the spreadsheet below
 

Attachments

  • Jenns Work Sheet.xlsm
    77.3 KB · Views: 3
Code:
Sub COPYPASTER()

  Sheets("database").Range("A29:aC29").Copy
  Sheets("data").Cells(Rows.Count, "A").End(xlUp).Offset(1). _
    PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  Sheets("Database").Range("B10:AC10").ClearContents

End Sub
 
Back
Top