Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
This array says subscript out of range. But the array is within the range of the worksheet?
If fails on this part of the code?
The whole code below.
If fails on this part of the code?
VBA Code:
If Len(Arr(i, 8)) = 1 Then
wsCSheet.Range("A12:G39").Offset(Row) = Arr(i, 8)
Row = Row + 1
The whole code below.
VBA Code:
Private Sub Fill_Details_Click()
TurnOff
Dim wsCSheet As Worksheet, JCM As Worksheet
Dim LastRow As Long, i As Long
Dim Arr As Variant
Set JCM = ThisWorkbook.Worksheets("Job Card Master")
LastRow = JCM.Cells(Rows.Count, 1).End(xlUp).Row
Set wsCSheet = ThisWorkbook.Worksheets("Check Sheet")
wsCSheet.Range("A12:G39").ClearContents
Arr = JCM.Range("A13:K61")
For i = LBound(Arr) To UBound(Arr)
If Len(Arr(i, 8)) = 1 Then
wsCSheet.Range("A12:G39").Offset(Row) = Arr(i, 8)
Row = Row + 1
End If
Next i
TurnOn
End Sub