VBA error- variable not defined

[Bryman]

Can someone explain what the error "variable not defined" means I have this code on my sheet:

Private Sub WorkSheet_Change(ByVal Target As Range)
With Sheets("Sheet1")
j = 2
For i = 10 To 41
    If UCase(.Range("M" & i).Text) = "Yes" Then
        .Range("F" & i).Copy
        Sheets("Sheet7").Range("A" & j).PasteSpecial Paste:=xlPasteValues
        j = j + 1
    End If
Next i
    If Intersect(Target, .Range("B:B")) Is Nothing Or Target.Cells.Count > 1 Then
         Exit Sub
    Else
          Target.Offset(, 1).Value = Date
          Target.Offset(, 2).Value = Time
          Target.Offset(, 15).Formula = "=$J$7"
          Target.Offset(, 24).Formula = "=$J$7"
    End If
  End With
End Sub

In the VBA window it's telling me that 'variable j is undefined' I not sure I see how define it correctly; otherwise the code should do what I need it to do.

 

[VoG]

Try this

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim i As Long, j As Long
With Sheets("Sheet1")
j = 2
For i = 10 To 41
    If UCase(.Range("M" & i).Text) = "Yes" Then
        .Range("F" & i).Copy
        Sheets("Sheet7").Range("A" & j).PasteSpecial Paste:=xlPasteValues
        j = j + 1
    End If
Next i
    If Intersect(Target, .Range("B:B")) Is Nothing Or Target.Cells.Count > 1 Then
         Exit Sub
    Else
          Target.Offset(, 1).Value = Date
          Target.Offset(, 2).Value = Time
          Target.Offset(, 15).Formula = "=$J$7"
          Target.Offset(, 24).Formula = "=$J$7"
    End If
  End With
End Sub

 

[Bryman]

Ok thank you, that was evidently only part of my problem

But I guest macro is not doing what I need it do.

What I want it to do is:

If column M = "Yes" (in sheet 1) I want it to copy the entire row of values in that row in sheet 7

The time stamp is working though

 

[VoG]

Missed that

If UCase(.Range("M" & i).Text) = "YES" Then

 

[Bryman]

Thank you It works now,

However it is only copying column F, how do I make it copy column B:Z ?

I tried switching F to:

.Range("B:Z" & i).Copy

 

[VoG]

Try

.Range("B" & i & ":Z" & i).Copy

 

[Bryman]

Thank you Peter it works now.


Let me know where I need to vote for you for MVP.

You're fast and accurate.