Substitute for Range function

**joey1984** · 08-10-2013, 08:43 PM

Hi there,

Just need to know how can I get the following code not to get me a type mismatch error. The last line which is commented out works but when i replace the Range("B2:B2000") with f it gives me a type mismatch error. Reason why I am not just using the last line instead since it works is because what if column B becomes Column C if i insert a new column in Column B. Is there something else that I need to add to the f to make it work?

  f = Application.WorksheetFunction.Match("PCR No.", Range("A1:AZ1"), 0)
    ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Add Key:=Cells(1, f)


    ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Add Key:= _
    f, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    'Range("B2:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

**nilem** · 08-11-2013, 01:42 AM

Hi Joey,
WorksheetFunction.Match returns a number, not a range, so try something like this

Sub tt()
Dim ColumnNumber As Long
With Sheets("Sheet1")
    ColumnNumber = WorksheetFunction.Match("PCR No.", .Range("A1:AZ1"), 0)
    MsgBox ColumnNumber
    With Range("A1:U" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Sort Key1:=.Cells(1, ColumnNumber), Order1:=xlAscending, Header:=xlYes
    End With
End With
End Sub

**HaHoBe** · 08-11-2013, 01:54 AM

Hi, joey1984,

please take some tme to read the forum rules (either here or at Ozgrid).

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

http://www.ozgrid.com/forum/showthread.php?t=181663

Ciao,
Holger