How to move the specific articles so that their cells still blanc ?

[happydz]

Hello, I have a spreadsheet with many rows and I need to move specific articles (red articles) from the column A to the column C so that their cells still blanc in column A, can someone help with that?

blanc_articles.xlsx
	A	B	C
1	article 1
2	article 2
3	article 3
4	article 4
5	article 5
6	article 6
7	article 7
8	article 8
9	article 9
10	article 10
11	article 11
12	article 12
13	article 13
14	article 14
15	article 15
16	article 16
17	article 17
18	article 18
19	article 19
20	article 20
21	article 21
22	article 22
23	article 23
24	article 24
25	article 25
26	article 26
27	article 27
28	article 28
29	article 29
30	article 30
31	article 31
32	article 32
33	article 33
34	article 34
35	article 35
36	article 36
37	article 37
38	article 38
39	article 39
40	article 40
41	article 41
42	article 42
43	article 43
44	article 44
45	article 45
46	article 46
47	article 47
48	article 48
49	article 49
50	article 50
51	article 51
52	article 52
53	article 53
54	article 54
55	article 55
56	article 56
57	article 57
58	article 58
59	article 59
60	article 60
61	article 61
62	article 62
63	article 63
64	article 64
65	article 65
66	article 66
67	article 67
68	article 68
69	article 69
70	article 70
71	article 71
72	article 72
73	article 73
74	article 74
75	article 75
76	article 76
77	article 77
78	article 78
79	article 79
80	article 80
81	article 81
82	article 82
83	article 83
84	article 84
85	article 85
86	article 86
87	article 87
88	article 88
89	article 89
90	article 90
91	article 91
92	article 92
93	article 93
94	article 94
95	article 95
96	article 96
97	article 97
98	article 98
99	article 99
100	article 100
Feuil7

 

[HighAndWilder]

So can we assume that all cells that have a foreground that is not black need to move?

 

[happydz]

So can we assume that all cells that have a foreground that is not black need to move?

yes

 

[JoeMo]

Sub MoveByColor()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    If c.Font.Color <> vbBlack Then
        With c
            .Offset(0, 2).Value = .Value
            .Offset(0, 2).Font.Color = .Font.Color
            .Value = ""
        End With
    End If
Next c
Application.ScreenUpdating = True
End Sub

 

[happydz]

Sub MoveByColor()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    If c.Font.Color <> vbBlack Then
        With c
            .Offset(0, 2).Value = .Value
            .Offset(0, 2).Font.Color = .Font.Color
            .Value = ""
        End With
    End If
Next c
Application.ScreenUpdating = True
End Sub

Thank you so much. Is there other trick without using VBA code because I am not advanced in Excel and I am not very familiar with VBA coding (I cannot remember the code) so I need, please, a simple trick like filtering or something basic like that is simple to use. Thank you again

 

[EXCEL MAX]

Depends what you are doing. You can try this trick.
Apply filter over column "A". Press Filter dropdown button and in the filter menu go to the "Filter By Color".
On the right menu select font color that you want to remove (red in this case). After filtering select all cells in the column "A".
After that put mouse on the right bottom and when a black cross apears, with mouse down drag selection to the column "C".
Now select red fonts in the column "A" and "B", or just "B". Delete selection and close filter.

 

[Peter_SSs]

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

I am not very familiar with VBA coding (I cannot remember the code)

You don't need to remember the code.
1. With your workbook active press Alt+F11 to bring up the vba window.
2. In the Visual Basic window use the menu to Insert|Module
3. Copy and Paste the code into the main right hand pane that opens at step 2.
4. Close the Visual Basic window.
5. Press Alt+F8 to bring up the Macro dialog
6. Select the macro & click ‘Run’
7. Your workbook will need to be saved as a macro-enabled workbook (*.xlsm). The code will be saved with the workbook.

If you want to try the macro approach then here is a slight variation to try

Sub MoveByColor_v2()
  Dim c As Range
 
  Application.ScreenUpdating = False
  For Each c In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
      If c.Font.Color <> vbBlack Then c.Insert Shift:=xlToRight
  Next c
  Application.ScreenUpdating = True
End Sub

 

[happydz]

Depends what you are doing. You can try this trick.
Apply filter over column "A". Press Filter dropdown button and in the filter menu go to the "Filter By Color".
On the right menu select font color that you want to remove (red in this case). After filtering select all cells in the column "A".
After that put mouse on the right bottom and when a black cross apears, with mouse down drag selection to the column "C".
Now select red fonts in the column "A" and "B", or just "B". Delete selection and close filter.

thank you so much

 

[EXCEL MAX]