Miscellany

public text v1 · immutable

#92729

·published 2006-07-19 21:20 UTC

Sub ProcessBlanks()



   Dim i As Integer
   Dim rng As Range
   For i = 1 To Worksheets("DAI EMP DATA-06-19-06").UsedRange.Rows.Count
       Set rng = Worksheets("DAI EMP DATA-06-19-06").Range(Worksheets("DAI EMP DATA-06-19-06").Cells(i, 1), Worksheets("DAI EMP DATA-06-19-06").Cells(i, Worksheets("DAI EMP DATA-06-19-06").UsedRange.Columns.Count)).Find("")
       If Not rng Is Nothing Then
          Worksheets("DAI EMP DATA-06-19-06").Range(Worksheets("DAI EMP DATA-06-19-06").Cells(i, 1), Worksheets("DAI EMP DATA-06-19-06").Cells(i, Worksheets("DAI EMP DATA-06-19-06").UsedRange.Columns.Count)).Copy
          Worksheets("Employees With Blank Fields").Activate
          Worksheets("Employees With Blank Fields").Cells(Worksheets("Employees With Blank Fields").UsedRange.Rows.Count + 1, 1).Select
          Worksheets("Employees With Blank Fields").Paste
       End If
   Next i



End Sub