| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel with IE problem
Hi,
We are having one Excel file which contain macros. The user has two options to download this report output file, they can download and save to harddisk OR open report into browser directly by using Open command. On the sheet, we gave sort order functionality. The sort order code work correct when user used Download and Save option. However when user used open command to open report directly into browser, report open correct but sort order code not work. The line where i m getting error is given below sSheetName = ActiveSheet.Name Also i m attaching complete code below: Please provide me solution.... Sheets(sSheetName).Select ' Find Number of Rows Sheets(sSheetName).Cells(10, 1).Select intKeyRow = Selection.End(xlDown).Row Sheets(sSheetName).Range("A9:Q" & intKeyRow).Select intKeyRow = 9 'Sort by IPTV Column If FrmTo****ue.optIPTV.Value = True Then Selection.Sort Key1:=Range("E" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If 'Sort By CPV Column If FrmTo****ue.optCPV.Value = True Then Selection.Sort Key1:=Range("F" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If 'Sort By Cost Column If FrmTo****ue.optCost.Value = True Then Selection.Sort Key1:=Range("H" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If 'Sort By Cases Column If FrmTo****ue.optCases.Value = True Then Selection.Sort Key1:=Range("I" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If AddRankColumn (sSheetName) Sheets(sSheetName).Cells(5, 1).Select Thanks in advance Ashish |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel with IE problem
Change your code to use vb object like Sheet1, Sheet2, etc Sheets or worksheets collection do no seems to be supported. regards JY wrote in message ups.com... Hi, We are having one Excel file which contain macros. The user has two options to download this report output file, they can download and save to harddisk OR open report into browser directly by using Open command. On the sheet, we gave sort order functionality. The sort order code work correct when user used Download and Save option. However when user used open command to open report directly into browser, report open correct but sort order code not work. The line where i m getting error is given below sSheetName = ActiveSheet.Name Also i m attaching complete code below: Please provide me solution.... Sheets(sSheetName).Select ' Find Number of Rows Sheets(sSheetName).Cells(10, 1).Select intKeyRow = Selection.End(xlDown).Row Sheets(sSheetName).Range("A9:Q" & intKeyRow).Select intKeyRow = 9 'Sort by IPTV Column If FrmTo****ue.optIPTV.Value = True Then Selection.Sort Key1:=Range("E" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If 'Sort By CPV Column If FrmTo****ue.optCPV.Value = True Then Selection.Sort Key1:=Range("F" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If 'Sort By Cost Column If FrmTo****ue.optCost.Value = True Then Selection.Sort Key1:=Range("H" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If 'Sort By Cases Column If FrmTo****ue.optCases.Value = True Then Selection.Sort Key1:=Range("I" & intKeyRow), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If AddRankColumn (sSheetName) Sheets(sSheetName).Cells(5, 1).Select Thanks in advance Ashish |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel with IE problem
|
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Colon at the end of excel file name(ex: problem.xls:1, problem.xls | New Users to Excel | |||
| Problem viewing Excel 2003 Pivot Chart fields in Excel 2007 | Charts and Charting in Excel | |||
| Weird problem with Excel 2000...Worksheets disappearing in a shared Excel file | Excel Discussion (Misc queries) | |||
| Weird problem with Excel 2000...Worksheets disappearing in a shared Excel file | Excel Programming | |||
| Started out as an Access problem. Now an Excel problem | Excel Discussion (Misc queries) | |||
Linear Mode
