Merging Values with IF Function

[Ildestino]

Dear Excel Gurus,

I once pray for your wisdom as I am not worthy of this...

Guys, I have a question, I am trying to figure out, what is the "easiest" (besides manual) to merge values from one column to another.

to be more precise,

Column A	Column B	Column C	Column D
7 Char Description	7 Char Descr. Check	3 Digits Description	3 Digis Descr. Check
Tab Mex	FALSE	MEX	TRUE
TAB Bra	FALSE	BRA	TRUE
TAB ECU	FALSE	ECU	TRUE
CZE/SVK	TRUE	/SVK	FALSE
BIH/HRV	TRUE	/HRV	FALSE
GBR/IRL	TRUE	/IRL	FALSE
PLR PRT	FALSE	PRT	TRUE
PLR CAN	FALSE	CAN	TRUE
HUN/POL	TRUE	/POL	FALSE

<tbody>
</tbody>

So the rule should be like this and should run to the whole worksheet.

IF Column B = TRUE than Copy Value of Column A and Paste it to Column C


So with that VBA ran, the result should look like this:

Column A	Column B	Column C	Column D
7 Char Description	7 Char Descr. Check	3 Digits Description	3 Digis Descr. Check
Tab Mex	FALSE	MEX	TRUE
TAB Bra	FALSE	BRA	TRUE
TAB ECU	FALSE	ECU	TRUE
CZE/SVK	TRUE	CZE/SVK	TRUE
BIH/HRV	TRUE	BIH/HRV	TRUE
GBR/IRL	TRUE	GBR/IRL	TRUE
PLR PRT	FALSE	PRT	TRUE
PLR CAN	FALSE	CAN	TRUE
HUN/POL	TRUE	HUN/POL	TRUE

<tbody>
</tbody>

I hope I have explained it well enough. Unfortunately, I cannot upload anything from my work PC. But if its requested, I can do it later at home.

THANK YOU VERY MUCH IN ADVANCE.

Kind regards

Ildestino

 

[Special-K99]

Has to be VBA?

Sub MergCel()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 2) = True Then
Cells(i, 3) = Cells(i, 1) :Cells(i,4) = TRUE
End If
Next i
End Sub

NOTE: You've changed the values in column D but haven't said anything about that in the description of the problem ?
Remove the part in red if you don't want it

 

[Fluff]

Another option

Sub CopyIfTrue()
   With Range("C2", Range("C" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace(Replace(Replace("if(@b=TRUE,@a,@)", "@a", .Offset(, -2).Address), "@b", .Offset(, -1).Address), "@", .Address))
   End With
End Sub