AutoFill problem

[emukiss10]

Hello,

In my script in some part Im useing autofill and it works proprly but when I have 2 or more records. If there is non or one record my macro is crushing.

I have something similar in several places in my code. I just need to have Id in column A from A2 going downn (1, 2, 3 etc) and none if no records are there.

Can You guys help me fix this?

my code

    Dim LastRowFX As Integer
   LastRowFX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).row
        Cells(2, 1).Formula = "1"
        Cells(2, 1).AutoFill Destination:=Range(Cells(2, 1), Cells(LastRowFX, 1)), Type:=xlFillSeries

 

[FormR]

Hi, maybe these slight alterations will help..

Dim LastRowFX As Long
LastRowFX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If LastRowFX > 1 Then
     Cells(2, 1).Value = 1
     Cells(2, 1).AutoFill Destination:=Range(Cells(2, 1), Cells(LastRowFX, 1)), Type:=xlFillSeries
End If

 

[emukiss10]

Autofill from Range class Failed (or something like that.. I do not have english excel)

it breaks at line

  Cells(2, 1).AutoFill Destination:=Range(Cells(2, 1), Cells(LastRowFX, 1)), Type:=xlFillSeries

In row 1 I have Headers btw.

 

[FormR]

Maybe try it on a new workbook with just values in columns A & B and see if it works for you, if it does then try to figure out what is different with the workbook where it fails?

 

[emukiss10]

It works if number of records <> 2. (including headers)

 

[emukiss10]

I got it right with LooP

Dim LastRowFX As Long
Dim countA As Long


    LastRowFX = Cells(Rows.count, 2).End(xlUp).row
    countA = 1


    For lrowFX = 2 To LastRowFX
         Sheets(1).Cells(lrowFX, 1) = countA
        countA = countA + 1
    Next lrowFX

 

[FormR]

It works if number of records <> 2. (including headers)

We only have a small snippet of code and no sample data and I can't replicate the error so you are going to have to do some investigating and debugging yourself- maybe change the IF test to >2 ?

 

[emukiss10]

Ok, so In new blank sheet in column B row 1 and 2 put any vlues and start the macro. It will break. If Column B will have data in only row 1 or at least in rows 1, 2, 3 - macro will work.

 

[FormR]

Ok, so In new blank sheet in column B row 1 and 2 put any vlues and start the macro. It will break. If Column B will have data in only row 1 or at least in rows 1, 2, 3 - macro will work.

OK, so how about..

Dim LastRowFX As Long
LastRowFX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If LastRowFX > 1 Then
    Cells(2, 1).Value = 1
    If LastRowFX > 2 Then
        Cells(2, 1).AutoFill Destination:=Range(Cells(2, 1), Cells(LastRowFX, 1)), Type:=xlFillSeries
    End If
End If

 

[emukiss10]

Yes Sir! That is working correctly Thank You for Your time. And have a Great Year!