Activate 'Change filename Cont: x = x 1 Cells(2, x) = Red Count Cells(3, x) = Green Count Cells(4, x) = Blue Count Cells(5, x) = Purple Count Cells(6, x) = Orange Count Red Count = 0 Green Count = 0 Blue Count = 0 Purple Count = 0 Orange Count = 0 Loop Until y = 4Application.
and is it possible if we can get the output in a particular format like column width and height and font.. Activate 'Change filename y = y 1 If y = 1 Then my Col = my Col1 If y = 2 Then my Col = my Col2 If y = 3 Then my Col = my Col3 If y = 4 Then my Col = my Col4 For Each ws In Worksheets For Each cell In Range(Cells(1, my Col), Cells(20, my Col)) If cell. Color Index = Red Color Then Red Count = Red Count 1 If cell. Color Index = Green Color Then Green Count = Green Count 1 If cell. Color Index = Blue Color Then Blue Count = Blue Count 1 If cell. Color Index = Purple Color Then Purple Count = Purple Count 1 If cell. Color Index = Orange Color Then Orange Count = Orange Count 1 Next cell Next ws On Error Go To Open Book Workbooks("Destination.xls").
Cut Copy Mode = False Exit Sub Create Sheet: Worksheets. Select " It gives me error, Moreover I want to use this code to copy the old sheet then Generate a new one but with different data Value entries, So can it be done because I Have trying it for a couple of days and its not working ? Screen Updating = False Dim My Color As Long Dim My Count As Long My Color = 3 Dim cell As Range For Each cell In Selection If cell. Color Index = My Color Then My Count = My Count 1 Next cell Msg Box "There are " & My Count & " cells that are this color" Application.
Open "C:\My Documents\Destination.xls"Go To Cont End Sub Hi Trowa, Thank you for the code..
Screen Updating = True Exit Sub Open Book:'Change path to match yours Workbooks.
Like if column A2, A5, A7, A10 consist of value as India, then a sheet should be created as india and all the information from A2, A5, A7, A10 should be pasted there. Thanks & Regards, Shridhar Sub Run Me()For Each cell In Range(Range("A2"), Range("A" & Rows. Screen Updating = True End Sub So you already created and formatted a new workbook for that.
I need an output which will create number of unique sheets with all the respective columns. Screen Updating = False Dim My Color As Long Dim My Count As Long My Color = 44 Dim cell As Range For Each cell In Selection If cell. Color Index = My Color Then My Count = My Count 1 Next cell Msg Box "There are " & My Count & " cells that are this color" Application.