Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding data to a list
I have 2 sheets. Sheet1 is for data entry. Sheet 2 (Say A4:Z4) collects all
the data. What I would like to do is copy Row 4 and insert it into the next empty row starting at row 15. In other words if three records have already been entered then the row for insertion would be Row 18. I visualise this being done with a macro assigned to a "Save" button on Sheet1. Not sure how to establish the next empty row. Any easy way to do this? Sandy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding data to a list
Assume column A will have an entry if the row is in use
Sub ABC() If IsEmpty(Range("A15")) Then Set rng = Range("A15") ElseIf IsEmpty(Range("A16")) Then Set rng = Range("A16") Else Set rng = Range("A15").End(xlDown)(2) End If MsgBox rng.Address End Sub Now rng should be a reference to the first cell in the next empty row starting with A15 -- Regards, Tom Ogilvy "Sandy" wrote: I have 2 sheets. Sheet1 is for data entry. Sheet 2 (Say A4:Z4) collects all the data. What I would like to do is copy Row 4 and insert it into the next empty row starting at row 15. In other words if three records have already been entered then the row for insertion would be Row 18. I visualise this being done with a macro assigned to a "Save" button on Sheet1. Not sure how to establish the next empty row. Any easy way to do this? Sandy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding data to a list
Once again many thanks
Sandy "Tom Ogilvy" wrote in message ... Assume column A will have an entry if the row is in use Sub ABC() If IsEmpty(Range("A15")) Then Set rng = Range("A15") ElseIf IsEmpty(Range("A16")) Then Set rng = Range("A16") Else Set rng = Range("A15").End(xlDown)(2) End If MsgBox rng.Address End Sub Now rng should be a reference to the first cell in the next empty row starting with A15 -- Regards, Tom Ogilvy "Sandy" wrote: I have 2 sheets. Sheet1 is for data entry. Sheet 2 (Say A4:Z4) collects all the data. What I would like to do is copy Row 4 and insert it into the next empty row starting at row 15. In other words if three records have already been entered then the row for insertion would be Row 18. I visualise this being done with a macro assigned to a "Save" button on Sheet1. Not sure how to establish the next empty row. Any easy way to do this? Sandy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatically extend a list when adding a new data to another list | Excel Discussion (Misc queries) | |||
Adding to a data validation list | Excel Discussion (Misc queries) | |||
Validation List -adding data and using it later | Excel Discussion (Misc queries) | |||
Adding a blank in Data Validation List? | Excel Discussion (Misc queries) | |||
Adding rows to create list from DDE data | Excel Programming |