Macro to export data from certain cells
Hello,
I have a sheet (sheet1) which is used by different users many times to generate an invoice.
After creating the Invoice, data is deleted to prepare a new Invoice.
I want to capture information from certain cells (such as Invoice no, Invoice date etc) each time to another sheet (sheet2) so as to generate a list of invoices made so far.
The list will keep capturing the information from these cells one below other. The data should remain there even if the data in sheet1 is deleted for new data entry.
I have attached a sample sheet.
Can anybody help?
Thanks in advance
| Attachment | Size |
|---|---|
| Book1.zip | 8.74 KB |
Try this
Hi Dear,
Try this hope it will help you....
Sub testing()
Dim rng As Range
Dim sh As Worksheet
Set sh = Sheets(2)
rcount = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets(1).Range("b1,e1").Copy Destination:=sh.Cells(rcount, 1)
Sheets(1).Range("e4").Copy Destination:=sh.Cells(rcount, 3)
End Sub