Place Valuse in Cell depanding on another
 

If C2 is blank then put value of B2 into C2 otherwise
leave C2 as it is. All data type are the same. Can anyone
help me with this please.

Place Valuse in Cell depanding on another
 

One way:

With Range("C2")
If IsEmpty(.Value) Then .Value = .Offset(0, -1).Value
End With

In article ,
"Gerry" wrote:

If C2 is blank then put value of B2 into C2 otherwise
leave C2 as it is. All data type are the same. Can anyone
help me with this please.

Place Valuse in Cell depanding on another
 

Many Thanks for this.
Now I want to replicate this down the column.

Can you assist.

Gerry


-----Original Message-----
One way:

With Range("C2")
If IsEmpty(.Value) Then .Value = .Offset(0, -
1).Value
End With

In article ,
"Gerry" wrote:

If C2 is blank then put value of B2 into C2 otherwise
leave C2 as it is. All data type are the same. Can
anyone
help me with this please.
.

Place Valuse in Cell depanding on another
 

One way:

Dim rCell As Range
For Each rCell in Range("C2:C" & _
Range("C" & Rows.Count).End(xlUp).Row)
With rCell
If IsEmpty(.Value) Then .Value = .Offset(0, 1).Value
End With
Next rCell

In article ,
"Gerry" wrote:

Many Thanks for this.
Now I want to replicate this down the column.

Can you assist.

Gerry


-----Original Message-----
One way:

With Range("C2")
If IsEmpty(.Value) Then .Value = .Offset(0, -
1).Value
End With