[Alexchar]

Hi everyone!

I have a excel spread sheet, which I need to write a macro. After the information has been entered, I need the data (zip codes) in order. My question is how do I write a macro that will do a comparison between zip codes, and then place them in descending order. Thanks in advance!

Joseph

[Advertisements]

Hello,

you'll need to call the sort method of a range object.

Place this into the Sheet's class module (not a normal module).

Works for A column, if your ZIPS are in a different column, adapt the code (change A to your column)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
Set rg = [A:A]
If Intersect(rg, Target) Is Nothing Then Exit Sub
Range("A1:A" & [a65536].End(3).Row).Sort [A1], Header:=xlYes
End Sub

Martin

[KingMartin]

Hello,

you'll need to call the sort method of a range object.

Place this into the Sheet's class module (not a normal module).

Works for A column, if your ZIPS are in a different column, adapt the code (change A to your column)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
Set rg = [A:A]
If Intersect(rg, Target) Is Nothing Then Exit Sub
Range("A1:A" & [a65536].End(3).Row).Sort [A1], Header:=xlYes
End Sub

Martin