quitethenovice
New Member
- Joined
- Jun 3, 2020
- Messages
- 12
- Office Version
- 365
Hello friends
I have a project I am working on where my OutAry is not posting to the next empty row. My 2nd output is posting to row 4 and my 3rd output to Row 85 with big gap in between. My actual rows that appear are accurate but I cannot understand why the big blank space is created.
Would you mind having a look please?
My file is located https://filebin.net/2h7ysn90bl6o1odq/quitethenovice1.xlsm?t=upx3iahn
Below is the 3rd bit of code where it leaves the 40 rows of empty space:
I have a project I am working on where my OutAry is not posting to the next empty row. My 2nd output is posting to row 4 and my 3rd output to Row 85 with big gap in between. My actual rows that appear are accurate but I cannot understand why the big blank space is created.
Would you mind having a look please?
My file is located https://filebin.net/2h7ysn90bl6o1odq/quitethenovice1.xlsm?t=upx3iahn
Below is the 3rd bit of code where it leaves the 40 rows of empty space:
VBA Code:
ReDim OutAry(1 To LR1, 1 To 13)
For x = LBound(InAry) To UBound(InAry)
If InStr(InAry(x, 3), Type1) > 0 And IsEmpty(InAry(x, 5)) = False And _
(InStr(InAry(x, 5), "wo") = 0 And InStr(InAry(x, 5), "w/o") = 0 And InStr(InAry(x, 5), "wash") = 0 And _
InStr(InAry(x, 5), "sv") = 0 And InStr(InAry(x, 5), "s/v") = 0 And InStr(InAry(x, 5), "sluice") = 0) And _
IsEmpty(InAry(x, 7)) = False And InStr(InAry(x, 7), "unknown") = 0 Then
For t = LBound(TechArray) To UBound(TechArray)
If InStr(InAry(x, 17), TechArray(t)) > 0 Then GoTo NR3
Next t
r = r + 1
For y = 0 To UBound(ColAry)
OutAry(r, y + 1) = InAry(x, ColAry(y))
Next y
End If
NR3: Next x
wbrecords.Sheets("Missing").Range("A" & wbrecords.Sheets("Missing").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row).Resize(UBound(OutAry), 13).Value = OutAry