VBA Loop for copying data

[seadie12]

Hi, I was looking to create a VBA where it loops down every row in a column (column G, starting in cell G3) and if that is a date I would want to copy the data from the corresponding cell in column H and paste it as a value into column F. Eg if cell G22 has a date it would copy cell H22 into F22 as a value, then carry on down the rest of the file to see if there are any more dates.

Please could some one help with this.
Thanks in advance

 

[Saurabhj]

Hi, Except date what other value can be available in Column G ? (e.g. blank cell)

 

[seadie12]

It contains either a date or text saying Due or not

 

[Saurabhj]

Hi,

Use below code:

Sub copyData()
Dim lRow As Integer, rowno As Integer

lRow = ActiveSheet.Cells(Rows.Count, "G").End(xlUp).Row

For rowno = 3 To lRow
    If IsDate(ActiveSheet.Cells(rowno, "G")) Then
        ActiveSheet.Cells(rowno, "F") = ActiveSheet.Cells(rowno, "H")
    End If
Next
End Sub

 

[seadie12]

Thanks, that works great

 

[Saurabhj]

Great. thanks for the feedback.