this code below will Sort the Columns However, It puts the blank cells on top
In row A2:a1000 I have the following code
I have tried Putting "0" and "-" if error happens
any suggestions is very appreciative
Code:
Sub SortRampLog() ActiveWorkbook.Worksheets("RAMP LOG (2)").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RAMP LOG (2)").AutoFilter.Sort.SortFields.Add Key:= _
Range("A2:A1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("RAMP LOG (2)").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
In row A2:a1000 I have the following code
Code:
=IFERROR(CONCATENATE(INDEX('EMPLOYEE LIST'!$D$2:$D$1000,MATCH(B3,'EMPLOYEE LIST'!$B$2:$B$1000,0)),", ",INDEX('EMPLOYEE LIST'!$C$2:$C$1000,MATCH(B3,'EMPLOYEE LIST'!$B$2:$B$1000,0)))," ")
I have tried Putting "0" and "-" if error happens
any suggestions is very appreciative