Add Date filter to Macro

[Rafay Ahmed]

Hi Everbody,
Below is a Macro, where I have to add Sorting of Date (from A to Z) before assigning Number to "xyz"

Also, attached is the sheet.

Thanks

Sub Filter_Assign_Values()

'Setup
Dim FilterStr As String
  FilterStr = "xyz"

'Select Worksheet 
Sheets("Payments").Select

'Clear Filter
On Error Resume Next
  ActiveSheet.ShowAllData

'Apply "Axel" Filter
Dim rng As Range
Dim lr As Long
  lr = Range("A" & Rows.Count).End(xlUp).Row
Set rng = Range("A5:F" & lr)
  rng.AutoFilter Field:=2, Criteria1:=FilterStr

'assign values to Filtereed data
Dim cl As Range
Dim x As Integer
Set rng = Range("F6:F" & lr)

  x = 1

For Each cl In rng.SpecialCells(xlCellTypeVisible)
  cl = "Comp-" & Format(x, "00")
  x = x + 1
Next cl

End Sub

 

[Hui]

Rafay

a few issues

The file you provided doesn't have a Payments worksheet as required by teh macro?

Your code sets the Rng between Column A & Column F
But the file only has 3 columns of data?

I suspect you have sent us the wrong file?

Please review

 

[Kenneth Hobson]

'rng.Sort Columns(1), xlAscending, Header:=xlYes
rng.Sort Columns(1), xlDescending, Header:=xlYes