An improved and faster method is:-
Instead of saving the data onto the spreadsheet, save it into an array.
Then you can move the data around within the array.
Then write the array into excel. This is one write instruction and therefore fast.
An improved and faster method is:-
Instead of saving the data onto the spreadsheet, save it into an array.
Then you can move the data around within the array.
Then write the array into excel. This is one write instruction and therefore fast.
Not really surer what you mean????
Tahnks
![]()
Private Sub cmdClose_Click() Count = 1 Dim myArray As Variant ReDim myArray(Me.Controls.Count) Dim cCont As Control For Each cCont In Me.Controls If TypeName(cCont) <> "Label" And TypeName(cCont) <> "Frame" Then temp = TypeName(cCont) ' Cells(1, Count).Value = cCont.Value myArray(Count) = cCont.Value Count = Count + 1 End If 10 Next cCont 'Manipulate columns like this:- myArray(0) = myArray(24) Range("A1", Cells(1, Me.Controls.Count)).Value = myArray Unload Me End Sub
Hi
Now I am slowly getting it :-)
Is it possible to have a data from the combo boxes and textboxes to appeared in a specific columns?
Also why in some columns it says TRUE and FALSE?
And is it possible to add data from this userform in the next empty row?
I appreciate your help and support.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks