Write array to destination stops at row 3699

[sonicroc]

I am pretty confident this is a new problem.
Recently a routine I wrote started behaving strange in my investigation in found that when I write and array of data to either a range or table that it is only providing data up to row 3699.
It is consistent whether I write to a table or range. Yes, I am adequately re-sizing the range or Table for the incoming data. The array is 1 to 15777r by 1 to 35c.
---Sample---
Set drng = Worksheets("Tickets2").Range("A1").Resize(UBound(tktA, 1), UBound(tktA, 2))
drng = tktA


tkt_T.DataBodyRange = tktA

 

[Fluff]

Whilst using transpose (or possibly Index) with arrays you can get problems with long text strings, I've never encountered any problems when trying to write the array to the sheet like your doing.
So not quite sure what the problem is.

 

[Domenic]

drng needs to be declared, otherwise the Value property needs to be specified. Is it declared? If not, try...

drng.value = tktA

 

[sonicroc]

drng needs to be declared, otherwise the Value property needs to be specified. Is it declared? If not, try...

drng.value = tktA

Tried that before identifying the data issue.

 

[sonicroc]

Tried that before identifying the data issue.

Sorry I did not mention when I tried adding .value it did not help.

 

[ZVI]

I believe it is a cell that contains this string that is causing the issue.
"============================================
...
=============================="

For values like the above and some more ("==", "++", "--") you need to format destination columns as Text.
Like this:

Sub Test()
  Dim a(1 To 2, 1 To 1)
  a(1, 1) = "=="  ' Problematic value
  a(2, 1) = "++"  ' Problematic value
  Range("A1:A2").NumberFormat = "@" '<-- Set Text format
  Range("A1:A2").Value = a()
End Sub

Sub Test1()
  
  Dim drng As Range, tktA As Variant
  
  ReDim tktA(1 To 2, 1 To 10)
  tktA(1, 4) = "==" ' Problematic value
  tktA(2, 5) = "++" ' Problematic value
  
  Set drng = Worksheets("Tickets2").Range("A1").Resize(UBound(tktA, 1), UBound(tktA, 2))
  
  drng.Columns("C:I").NumberFormat = "@" '<-- Set Text format
  
  drng.Value = tktA
  
End Sub

 

[sonicroc]

Thank you for the suggestion, however that did not work either..
I was successful in resolving my issue, but instead of formatting the destination I had to format the source like this using ".Text" on the databodyrange from where I was importing the data to my first array.
ctktdA = ctktdT.DataBodyRange.Text

After that it worked without issue when outputting to a table or range.

 

[ZVI]

Thanks for letting us know that the problem is solved.