Copy and Paste Data in New Record

[ajipenk]

hi there,

i am new in vba and i am very excited about vba.. but i need to create a little magic just by clicking a single command button.

i have data in table format, i want to copy data (from colums material to harga satuan) by only selecting any rows on its columns (figure BEFORE)

and as an output, i want the data added in new rows on the table (figure AFTER)

thankyou

 

[mrshl9898]

Like this?

Sub DoTheThing()

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

For Each cell In Selection
    LastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row
    Rows(cell.Row).Copy Rows(LastRow + 1)
Next cell

End Sub

 

[ajipenk]

thats very nice, but the table didn't expand automatically when new data added

 

[mrshl9898]

Sorry, I didn't try as a table. Just change the table name below as needed.

Sub DoTheThing()

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

For Each cell In Selection
    LastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row
    Rows(cell.Row).Copy Rows(LastRow + 1)
Next cell

ActiveSheet.ListObjects("Table1").Resize Range("$B$9:$E$" & LastRow + 1)

End Sub

 

[ajipenk]

its work!!!

thankyou so much, may God reward you