ReDim Preserve FolderList(0 To SampleCount) As Variant.This will be used later to find all of the unique folder numbers
'Store the folder number in the array FolderList. SampleList(1, SampleCount) = FolderNumber. SampleList(0, SampleCount) = wb.ActiveSheet.Name. ReDim Preserve SampleList(0 To 1, 0 To SampleCount) As Variant. 'Store the order number and folder number in the 2-D array SampleList. strSQL = "select folderno from Results where ordno = '" & wb.ActiveSheet.Name & "'". 'Get the folder number for this order number. MsgBox "ERROR: The order number " & wb.ActiveSheet.Name & " does not exist". strSQL = "select ordno from Results where ordno = '" & wb.ActiveSheet.Name & "'". 
' Check that the order number exists in LIMS.If HasLetter(wb.ActiveSheet.Name) = True Then.ReDim WorkbookList(0 To Workbooks.Count) As String.Dim UniqueFolderWithOrderNumbers() As Variant.If anyone has any ideas, that would be wonderful. I do not know what I changed to create the error message.
#Excel vba on error exit loop code#
Strangley, this code functioned properly before, and suddenly began creating this error message.
If Count Then UniqueItems = NumUnique Else UniqueItems = Unique. If Not FoundMatch And Not IsEmpty(Element) Then. ' If not in list, add the item to unique list. ' Counter for number of unique elements. ' If 2nd argument is missing, assign default value. Dim Unique() As Variant ' array that holds the unique items. ' If Count = False, the function returns a variant array of unique elements. ' If Count = True or is missing, the function returns the number of unique elements. Function UniqueItems(ArrayIn, Optional Count As Variant) As Variant.
0 kommentar(er)
