Copy cell if certain demands are met [Solved]

**paljako** · 08-06-2012, 03:50 AM

Hi,

I have an excel sheet with a lot of values. Sometimes I wan't to extract some of these cell values. I've tried to create a macro that copies the cell value(it could be text) if the cell background color is yellow and paste is into another cell. After that I want the values to be plotted into a scatter chart.

this is what I got, but it doesen't work...:

For Each cell In Worksheets("Sheet1").Range("A1:A30").Cells

If cell.Interior.ColorIndex = 6 Then
ActiveCell.Copy
Range("M1").Select
ActiveSheet.Paste

End If

Next


End Sub

Could anyone please help me?

Tor from Norway

**oeldere** · 08-06-2012, 04:06 AM

I'm no expert in VBA, but i noticed you don't begin your macro with a sub, e.g.

Sub copie_on_color()

**paljako** · 08-06-2012, 04:09 AM

Yes sorry, I just forgot to copy it. That's not the problem.

**mmmarks** · 08-06-2012, 04:11 AM

Hi something like this,

Sub yelcoping()
Dim rng As Range
Set rng = Sheets("sheet1").Range("A1:A30")
For Each ccell In rng
rrow = Sheets("sheet1").Cells(Rows.Count, "M").End(xlUp).Row
If ccell.Interior.ColorIndex = 6 Then
ccell.Copy Cells(rrow + 1, "M")
End If
Next ccell

End Sub

**paljako** · 08-06-2012, 04:18 AM

Perfect!! Thank you very much!

**mmmarks** · 08-06-2012, 04:43 AM

Originally Posted by paljako

Perfect!! Thank you very much!

Glad I helped someone. Please marked as solved. & don't forget to click on STAR

**Cutter** · 08-06-2012, 10:35 AM

@ paljako

Welcome to the forum.

Please notice that code tags have been added to your post. The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.