Your counter i starts at zero. There is no row zero so the code crashes.
Change i to start at 1.
--
HTH...

Jim Thomlinson


"Casey" wrote:

>
> Hi,
> I've got an 1004 error showing up with the following line.
>
> N = Wrks1.Cells(i, 1).Value
>
> I've tried declaring the N variable as a string and as a variant, but
> no good. I know its probably something simple but I can't see it. Some
> help please.
>
> Here is the entire code
>
> Option Explicit
>
> Sub ImportEstToProd()
>
> Dim Wrks1 As Worksheet, Wrks2 As Worksheet, Wrks3 As Worksheet, Wrks5
> As Worksheet
> Dim CopyRow As Long
> Dim Msg As Integer
> Dim Response As Integer
> Dim Entries As Long
> Dim i As Long
> Dim N As String
>
>
> Msg = MsgBox("Estimates are complete and are ready" _
> & " to be imported into the Production Tracking Sheet?" _
> & (Chr(13)) & "Answering Yes will clear all previous daily tracking
> input!" _
> & (Chr(13)) & "This action is not undoable!", _
> vbYesNo + vbQuestion, "Import Estimate Information")
> If Msg = 6 Then
>
> 'Application.ScreenUpdating = False
> 'Application.EnableEvents = False
> 'On Error GoTo RET
>
> Set Wrks1 = Worksheets("Drywall set up sheet")
> Set Wrks2 = Worksheets("Stucco set up sheet")
> Set Wrks3 = Worksheets("Plaster set up sheet")
> Set Wrks5 = Worksheets("Production")
>
> Entries = Excel.WorksheetFunction.CountA(Wrks1.Range("LaborDBDW"))
> Wrks5.Range("DailyProdInput").ClearContents
> CopyRow = Wrks5.Range("ProductionTopRow").Row + 1
> For i = 0 To Entries + 25
> N = Wrks1.Cells(i, 1).Value
> If N = "X" Then
> With Wrks5
> .Cells(CopyRow, 1).Value = Wrks1.Cells(i, 3).Value
> .Cells(CopyRow, 2).Value = Wrks1.Cells(i, 2).Value
> .Cells(CopyRow, 3).Value = Wrks1.Cells(i, 5).Value
> .Cells(CopyRow + 1, 3).Value = Wrks1.Cells(i, 7).Value
> End With
> CopyRow = CopyRow + 3
> End If
> Next i
> 'RET:
> 'Application.EnableEvents = True
> 'Application.ScreenUpdating = True
> End If
> If Msg = 7 Then
> Exit Sub
>
> End If
>
> End Sub
>
>
> --
> Casey
>
>
> ------------------------------------------------------------------------
> Casey's Profile: http://www.excelforum.com/member.php...fo&userid=4545
> View this thread: http://www.excelforum.com/showthread...hreadid=537003
>
>