We had a VBA code pulling information from an array through into a Row on a sheet and the data was arranged in alphabetical order. The code was:
Dim arrList As Object, a As Variant, i As Long, j As Long
Set arrList = CreateObject("System.Collections.ArrayList")
a = Sheets("1. DRAWING REG").Range("C19:D" & Sheets("1. DRAWING REG").Range("D" & Rows.Count).End(xlUp).Row)
j = Sheets("6. APPLIANCE ORDER").Index
For i = 1 To UBound(a)
If a(i, 1) = "KITCHEN" Then arrList.Add CStr(a(i, 2))
For i = 0 To arrList.Count - 1
Sheets(j + i + 1).Name = arrList(i)
Sheets("6. APPLIANCE ORDER").Range("G8").Resize(1, arrList.Count).Value = arrList.toArray
Is there any way of removing the element that puts the data in alphabeitcal order and just keeping it as per what is in the array?
Please let me know ifyou want me to upload the excel file again and detail the query a little more (if you're still about and willing to help me again that is!).