Improve company productivity with a Business Account.Sign Up
Be seen. Boost your question’s priority for more expert views and faster solutions
Public Sub gridItemsFound_ColumnClick(ByVal lCol As Long)
Dim sTag As String
Dim i As Long
.SortColumn(1) = lCol
sTag = gridItemsFound.ColumnTag(lCol)
If (sTag = "") Then
sTag = "DESC"
.SortOrder(1) = CCLOrderAscending
sTag = ""
.SortOrder(1) = CCLOrderDescending
gridItemsFound.ColumnTag(lCol) = sTag
Select Case gridItemsFound.ColumnKey(lCol)
Case "", ""
' sort by icon:
.SortType(1) = CCLSortIcon
' sort by date:
.SortType(1) = CCLSortDate
' sort by text:
.SortType(1) = CCLSortString
UserForm1.MousePointer = fmMousePointerHourGlass
UserForm1.MousePointer = fmMousePointerDefault
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.