Credit card free dating sites - Datingpaws net


Color Index = Red Color Then Red Count = Red Count 1 If cell.

Color Index = Green Color Then Green Count = Green Count 1 If cell.

datingpaws net-19

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.

Screen Updating = True Exit Sub Open Book:'Change path to match yours Workbooks.

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.

Screen Updating = False Red Color = 3Green Color = 43Blue Color = 23Purple Color = 47Orange Color = 44my Col1 = Input Box("Enter column letter of the first column to count colors:", "Input column letter")my Col2 = Input Box("Enter column letter of the second column to count colors:", "Input column letter")my Col3 = Input Box("Enter column letter of the third column to count colors:", "Input column letter")my Col4 = Input Box("Enter column letter of the fourth column to count colors:", "Input column letter")x = 1Do Workbooks("Source.xls").