Handling formulas as values & Ignore blanks - Using array to consolidate data

[MurdochQuill]

Hi,

As title suggests, I'm using an array for data consolidation. I keep erroring when trying to copy columns with any formulas in them... is there any way around this when using this method ?
I would also really like to ignore blanks cells & not bring them into the array.

Sub Arraycol()

Application.ScreenUpdating = False
    'Loop through worksheets, put the values in column F into arr array
Dim arr(1 To 10000), cnt As Integer, i As Integer
cnt = 0

For Each ws In Worksheets
    If ws.Name <> "Stitcher" Then
        For i = 1 To ws.Cells(rows.Count, "F").End(xlUp).Row
            cnt = cnt + 1
            arr(cnt) = ws.Cells(i, "F").Value
        Next i
    End If
Next ws

    'Loop through arr array, populate value into Stitcher sheet, column A
For i = 1 To cnt
    ThisWorkbook.Sheets("Stitcher").Cells(i, "A") = arr(i)
Next i

Application.ScreenUpdating = True
End Sub

Any help is appreciated!

 

[MurdochQuill]

Very difficult to tell as your code cannot work & you haven't said what you are trying to do.

Line 14, we are running through each sheet in colsheets.
I would like to run through each sheet on colsheets in a different workbook with a different name, as I want to pull an array from another workbook, then paste it in this workbook, or "tb".

 

[Fluff]

In that case when you add the sheets to the collection, make sure they are qualified with the workbook name.

 

[MurdochQuill]

In that case when you add the sheets to the collection, make sure they are qualified with the workbook name.

Excellent, thank you.
Sorry for my thickheadedness.

 

[Fluff]

You're welcome & thanks for the feedback.