For loop to past copied data at first blank row in another sheet

Hi everyone,

I have this loop setup to copy over data to sheet(2) if the value in C2:C6 is > 0. I need this to begin pasting it to the first blank row in sheet(2). this will need to keep the same selection size as (1,5) and place that data in the first blank row on sheet(2).

Thank you

Please Login or Register  to view this content.

Alright! This is working, and I've modified it to my specific needs (see below).

Please Login or Register  to view this content.

Now I need to add a "feature" to the code. Have the source cell (E1) copied and pasted into the target cell only if an adjacent cell (A) on the same row is not blank. The adjacent cell is in the same sheet(2) as the target cell.

In other words: only copy and paste the value in cell E1 (sheet1) into the next blank cell of Col F (sheet2) if the value in Col A (sheet2) of the same row is not blank. I'll post a screen shot of the destination cells below. These are in Sheet(2). I'm copying the name of a customer from the cell E1 in Sheet(1) to each cell in the G column if there is an item number present in Col A.

VBAtarget.PNG

Re: For Each c In Sheets(1).Range("E1")
How many c's (=Ranges) do you visualize to have in a single cell (E1)?
Maybe add a workbook with a before and after. Pictures are very difficult to try a macro on

Pronto, thank you!

I see the logic you've laid out but implemented the code and it continues to paste the E1 string to column F in sheet(2) indefinietly. I looked at the code with my novice eyes and found what I think to be the issue. I'll attempt to highlight it below:

Please Login or Register  to view this content.

If the code is looking to "c.Row" then isnt it looking to the row that cell E1 on Sheet(1) is located? Since c was = sheets(1).Range("E1"). It would need to look into sheet(2) and the cell in Col "A" of the first blank row (destROW).

I tried to change the code to look for that value but only received compile errors