range find not working

[RuthandAndy]

I can't get the following code to work for Find. The LastRow remains empty and x1ByRows and x1Previous also show empty?

'Activate the Production Plan workbook, find the empty row and paste data

ppwb.Activate
Sheets("Production Status").Select

'Find the last row
Dim LastRow
Dim DataRow
Dim ws As Worksheet
Set ws = ActiveSheet

LastRow = ws.Cells.Find(What:="*", _
SearchOrder:=x1ByRows, _
SearchDirection:=x1Previous).Row
DataRow = LastRow + 1
Rows("0:0").Offset(DataRow, 0).Select

'Store the data
Selection.Paste

 

[Rick Rothstein]

For each of the constants assigned to SearchOrder and SearchDirection, the first two characters are xl (ex-el), not x1 (ex-one) as you typed. You might also want to specify a value for the LookIn argument (xlValues to find the last row with a value displayed in it, xlFormulas to display the last used row even if that row contains a formula displaying the empty string).

 

[AlphaFrog]

    'Find the last row
    Dim DataRow As Long
    
    With Sheets("Production Status")
        DataRow = .Cells.Find(What:="*", _
                              LookIn:=xlFormulas, _
                              SearchOrder:=xlByRows, _
                              SearchDirection:=xlPrevious).Row + 1
        'Store the data
        .Rows(DataRow).Paste
    End With

 

[RuthandAndy]

AlphaFrog,

thank you once again for coding a much simplified version of what I was trying to do.

 

[RuthandAndy]

Rick, Thank you. I had copied this code from elsewhere and didn't really understand it. Didn't even notice the 1 instead of l in the names. No wonder it didn't work!