Highlight Cells and Auto copy to Existing Sheet

[chaosisbliss]

Hello,

I'm a newbie when it comes to Excel and VB so please keep this in mind .

I want to copy the contents of any highlighted or copied cell into an existing w worksheet. By highlight I mean when I drag with my left mouse click or copied via ctrl-c only in column A. The information is on a sheet called "Morning" in column A, and I want this information automatically copied to worksheet "Query" on column A.

Any assistance would be greatly appreciated.

Thanks.

 

[escott]

Here is a quick little Macro

Sub test1()
Dim Str As String
Sheets("Query").Select
Range("A2").Select

Sheets("Morning").Select
For Each a In [A2:A200] '/////////////////
a.Cells.Select
If Selection.Interior.Color = "65535" Then
Sheets("Query").Select
Str = a.Cells.Value
ActiveCell.Value = Str
ActiveCell.Offset(1, 0).Select
End If

Sheets("Morning").Select
Next '/////////////////////////////////////

End Sub

 

[chaosisbliss]

That's awesome! Thanks. I'll add it to see what happens and let you know.

 

[chaosisbliss]

I figured I left something out. Otherwise it works great!

After the highlight, your Macro copies the information to the Query sheet. I forgot to say it has to copy the information back to back if that makes sense. Meaning it has to start with column A1 - A34 on the Query sheet with no skips in data.

Thanks again for you help. I really do appreciate it.

 

[escott]

So do you need more help or are you all set. I am not following

 

[chaosisbliss]

Sorry for the confusion.

Yes, I need more help. When you run the macro you created, it copies but not in order.

Example:
We have data in A1 Morning and A3 Morning. There is no data in A2 Morning.

When A1 Morning cell is copied to the Query sheet it's coped to A1. But, if there is no data is A2 Morning cell it skips the cell and goes to A3 Morning cell and copies to A3 Query sheet. What will happen is the data is A3 Morning is copied to A3 Query instead of A2.

Man, I'm sorry. I don't know how else to explain it.

 

[escott]

That is factored in. The if statement looks for only if its highlighted and that activecell offset is in the if statement. If its not highlighted it could not copy and not offset. It works for me fine.

I must still be missing some thing.

 

[escott]

Oh I think I get it. Move

ActiveCell.Offset(1, 0).Select

to after the end if

 

[chaosisbliss]

Awesome! That worked. Thank you again for your help.