Getting error 1004

[mso3]

Hi friends,
I’m getting error 1004 if there is no value in column ‘N’. The piece of code is as follows:

With Range("m7")
        .Value = "1"
        .AutoFill .Resize(Range("N" & Rows.Count).End(xlUp).Row - .Row + 1), 2
    End With

If column ‘N’ is blank then there should not be 1 in column ‘M’ and the macro should exit sub and continue because I have called another macro at the end of this macro. The series of macros should not be stopped, it should continue till the last called macro without any problem.

Any help will be appreciated.

Thanking you,

[Leith Ross]

Hello mso3,

You need to check that the row in column "N" is not less than 7 before you do the AutoFill.

Try this...

    Dim LR As Long
    
    With Range("m7")
        LR = Range("N" & Rows.Count).End(xlUp).Row
        If LR >= .Row Then
            .Value = "1"
            .AutoFill .Resize(LR - .Row + 1), 2
        Else
            MsgBox "Column N is Empty."
        End If
    End With

[mso3]

Hi Leith Ross,
Thank you. It's working fine.

[coolblue]

What happens if you try to manually autofill a series starting from a blank cell?
http://msdn.microsoft.com/en-us/libr...ffice.15).aspx


Sent from my iPad using Tapatalk