Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Application defined or object defined error
Message
 
À
Tous
Information générale
Forum:
Microsoft Office
Catégorie:
Excel
Titre:
Application defined or object defined error
Divers
Thread ID:
00227203
Message ID:
00227203
Vues:
77
in this code, i get the above error on the ActiveChart.SetSourceData.

If i enter a range manually, it works fine. if i try to calculate it, (cells(1,10).value returns last row), forget it. any ideas?


Sub Update()
'
' Update Macro
' Macro recorded 07/22/98 by Raphael D. Jacobs
' Updated- NG 1/20/99, changed start of graph to 9/1/98
' NG- changed to 01/01/99

'
Sheets("Totals").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=">=01/01/1999"
', Operator:=xlAnd
Sheets("Chart1").Select
ActiveChart.SetSourceData Source:=Sheets("Totals").Range("A275:H" + CStr(Worksheets("Totals").Cells(1, 10).Value)), _
PlotBy:=xlColumns
' + CStr(Worksheets("Totals").Cells(1, 10).Value))
End Sub
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform