Find and Copy first non blank cell in Column AB

[LNG2013]

Hello I need a little help with VBA to find the first non blank cell in column AB. It contains a date.

Then copy it to sheet "Date" into cell A1


Thank you in Advance

 

[Joe4]

If you the sheet with the "AB" column you are looking at is the Active Sheet at the time of running this code, try this:

    If ActiveSheet.Range("AB1") <> "" Then
        Sheets("Date").Range("A1").Value = ActiveSheet.Range("AB1").Value
    Else
        Sheets("Date").Range("A1").Value = ActiveSheet.Range("AB1").End(xlDown).Value
    End If

Otherwise, replace the "ActiveSheet" references with the specific sheet name.

 

[LNG2013]

If you the sheet with the "AB" column you are looking at is the Active Sheet at the time of running this code, try this:

    If ActiveSheet.Range("AB1") <> "" Then
        Sheets("Date").Range("A1").Value = ActiveSheet.Range("AB1").Value
    Else
        Sheets("Date").Range("A1").Value = ActiveSheet.Range("AB1").End(xlDown).Value
    End If

Otherwise, replace the "ActiveSheet" references with the specific sheet name.

That works wonderfully thank you.

 

[Joe4]

You are welcome.
Glad I was able to help!