Assign which column to paste the copied data VBA

[mikuhatsune01]

I have a button in Worksheet1 that when clicked it will copy the values from A20:M28 to Worksheet2. But I want to assign which column in Worksheet2 the values from Worksheet1 will be copied to because they have different structure. Also I wanted to copy only the cells with values but it still copied the cells without values. I am pretty new to Macro so I'm still trying to figure things out. This is what I have so far:

Please Login or Register  to view this content.

Worksheet 1 Structure:

Worksheet1.png



Worksheet 2 Result when Button is clicked:

Capture.JPG

[karmapala]

Maybe something like this ?

Please Login or Register  to view this content.

I wanted to copy only the cells with values but it still copied the cells without values

Except the cell without value is NOT the row in Date Header (Column A) in between row 20 to 28, the code above still "fill" the empty value to ws2.
But for the row in Date Header (column A) in between row 20 to 28, it will skip this blank row although the other column in the same row has value.

I don't know how is your data if there is a possibility where the condition there is a row in Date Header (column A) in between row 20 to 28 without value, but the other column of the same row has data. And I don't know also if you still want to copy the other column of the blank date row.

[mikuhatsune01]

Hi, I tried your code but I get an error inside the with sh2 statement starting in ".Cells(lr, ColDate).Value = cell.Value"

I will not copy the rows from ws1 if they do not have a date. as long as there is a date, the other columns can be empty.
Attachment 682152

[karmapala]

Hi, I tried your code but I get an error inside the with sh2 statement starting in ".Cells(lr, ColDate).Value = cell.Value"

My bad, I'm very sorry about that because I forgot something.

Please change this line:

Please Login or Register  to view this content.

into this line

Please Login or Register  to view this content.

I will not copy the rows from ws1 if they do not have a date.

Yes, the code will do nothing
if the date column if the row between 20 to 28 is blank.

Attachment 682152

I'm sorry I cannot see your attachment.
It gave me a message : Invalid Attachment specified