If you want selected color cell content copy, click copy than paste other place easily and work different way.
This simple code insert bellow copy and pest in open workbook (tools->Macro->Visual basic editor->Insert module->paste )easily find solution.
Sub SelectByColor() On Error Resume Next Application.ScreenUpdating = False Dim c As Range Dim r As Long Dim myArea As Range Dim myRange As Range Set myArea = ActiveSheet.UsedRange For Each c In myArea If c.Interior.ColorIndex = ActiveCell.Interior.ColorIndex Then If r = 0 Then Set myRange = c r = 1 Else Set myRange = Union(myRange, c) End If End If Next c myRange.Select Application.ScreenUpdating = True End Sub 'Md.Shaiful Islam Talukder
Thanks'.
ReplyDelete