| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Excel 2007
I don't have any other guesses.
vikas wrote: I am strill getting the same error. Range(Cells(1, 8), Cells(NbListClients + 1, 12)) = ListClients Feuil2Tri.Rows("1:3999").Insert Shift:=xlDown ----- this line error comes 'on place les en têtes de tri et la liste For t = 1 To 13 Feuil2Tri.Cells(1, t) = "X" + Format(t) Next t Call FiltreGest(0, "", 0) Call FiltreCliByGest(ListeGest, NbGest) 'on calcul le nbre de ligne de critère, et le nombre de ligne du tab final NbligneCritere = Feuil2Tri.Range("a1").CurrentRegion.Rows.Count NbLigneTabFinal = Feuil2Tri.Cells(NbligneCritere + 1, 20).CurrentRegion.Rows.Count 'on replace le tableau filtré a sa place Feuil2Tri.Columns("A:S").Delete Shift:=xlToLeft Feuil2Tri.Range(Rows(1), Rows(NbligneCritere)).Delete Shift:=xlUp 'Mantis 5239: BPS: Issue on the weekly when trying to change the period : sjain 'Feuil2Tri.Rows("1:999").Insert Shift:=xlDown Feuil2Tri.Rows("1:3999").Insert Shift:=xlDown "Dave Peterson" wrote: Maybe... XL: "Cannot Shift Objects Off Sheet" Error Hiding Columns http://support.microsoft.com/default...b;en-ca;211769 Remember to look for comments and merged cells. And for objects that may not be displayed: xl2003: tools|options|view tab|Check Show All xl2007: Office button|excel options|advanced Display options for this workbook|For objects|Show|check all ctrl-6 Should do the same in any version. Debra Dalgleish has a blog post, too: http://blog.contextures.com/archives...in-excel-2007/ ============= ps. You have a bug in your code. You'll see it if Sheet1 is not the activesheet (if the code is in a general module)--or if Sheet1 is not the module that owns the code. This line should have the cells() qualified, too: Sheet1.Range(Cells(1, 8), Cells(NbListClients + 1, 12)) = ListClients either: Sheet1.Range(sheet1.Cells(1, 8), sheet1.Cells(NbListClients + 1, 12)) _ = ListClients or (I like): with sheet1 .Range(.Cells(1, 8), .Cells(NbListClients + 1, 12)) = ListClients end with The leading dots means that that object (.range() or .cells()) belong to the object in the previous with statement--in this case Sheet1. vikas wrote: Hi, I am getting error in macro. To prevent possible loss of data, Microsoft Excel cannot shift nonblank cells off the worksheet. Below is code Sheet1.Range(Cells(1, 8), Cells(NbListClients + 1, 12)) = ListClients ' shriyansh Sheet1.Rows("1:3999").Insert Shift:=xlDown i need help on this. -- Dave Peterson . -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Adding Error Bars Excel 2007 | Excel Discussion (Misc queries) | |||
| Adding new rows to an Excel spreadsheet | Charts and Charting in Excel | |||
| Excel 2007 - Adding Labels to Scattergraph Points | Charts and Charting in Excel | |||
| How do I view the maximum rows in Excel 2007 (Million Rows)? | Excel Discussion (Misc queries) | |||
| adding rows to excel table | New Users to Excel | |||
Hybrid Mode
