Help with VBA code, checking if cells are blank

[willow1985]

Hello,

I need help with a section of the below code. Basically the area I am having trouble with is checking if column A (Date In) has any blanks and if so proceed with the below code to replace the blanks with a formula. If there are no blanks then skip to the formatting section.

Any help sorting this out would be greatly appreciated!

Sheets("Flow of Repair").Select

If IsEmpty Range("FoR[Date In]") = True Then

    x = Range("A" & Rows.Count).End(xlUp).Row
     
    If x > 1 Then
        With Range("A2:A" & x).SpecialCells(xlCellTypeBlanks)
            .FormulaR1C1 = "=[@[Date Out]]"
        End With
    End If
    
Else

Range("FoR[Station Time (Days)]").Select
With Selection
    .NumberFormat = "0"
    .Value = .Value
End With


Range("S1").Select

End If
Application.ScreenUpdating = True

'
End Sub

 

[Fluff]

How about

   With ActiveSheet.ListObjects("FoR")
      On Error Resume Next
      .ListColumns("Date In").DataBodyRange.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=[@[Date Out]]"
      On Error GoTo 0
      With .ListColumns("Station Time (Days)").DataBodyRange
         .NumberFormat = "0"
         .Value = .Value
      End With
   End With

 

[willow1985]

How about

   With ActiveSheet.ListObjects("FoR")
      On Error Resume Next
      .ListColumns("Date In").DataBodyRange.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=[@[Date Out]]"
      On Error GoTo 0
      With .ListColumns("Station Time (Days)").DataBodyRange
         .NumberFormat = "0"
         .Value = .Value
      End With
   End With

If I wanted to remove the formatting portion and put another code there, how would I go about doing that? do I just remove the below section entirely and add the new code to the bottom?

'Remove this:

With .ListColumns("Station Time (Days)").DataBodyRange
         .NumberFormat = "0"
         .Value = .Value
      End With

 

[Fluff]

That's right.

 

[willow1985]

That's right.

Thank you very much! ?

 

[Fluff]

You're welcome & thanks for the feedback.