Ayuda error 1004 en ActiveChart.FullSeriesCollection
Publicado por Jose Arturo (1 intervención) el 15/10/2018 06:32:21
Buenas noches
Soy nuevo en esto de la programacion, y por tal motivo solicito del soporte de los que conozcan del tema
Resulta que me aparece error 1004 en tiempo de ejecucion: Parametro no valido
en el siguiente codigo en donde busco que, de manera automatica defina los rangos para los valores de las series en las graficas que se encuentren en una hoja de excel al momento de ingresar a ellas.
Revisando los valores al momento de depurar y corroborandolos al correr paso a paso, el error se genera cuando en el Bucle de incremento Nfila toma el valor de 4
Les dejo el codigo para referencia, ojala puedan ayudarme en esto.
Saludos
Soy nuevo en esto de la programacion, y por tal motivo solicito del soporte de los que conozcan del tema
Resulta que me aparece error 1004 en tiempo de ejecucion: Parametro no valido
en el siguiente codigo en donde busco que, de manera automatica defina los rangos para los valores de las series en las graficas que se encuentren en una hoja de excel al momento de ingresar a ellas.
Revisando los valores al momento de depurar y corroborandolos al correr paso a paso, el error se genera cuando en el Bucle de incremento Nfila toma el valor de 4
Les dejo el codigo para referencia, ojala puedan ayudarme en esto.
Saludos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Activate()
Dim Chs As ChartObject
Dim Sh As Worksheet
Dim Hoja As String
Dim Nfila As Integer
Set Sh = ActiveSheetHoja = ActiveSheet.name
Nfila = 1 For Each Chs In Sh.ChartObjects Chs.Activate For Nfila = 1 To 7ActiveChart.FullSeriesCollection(Nfila).name = "='" & Range("I79") & "'!$Q$" & Nfila + 12
ActiveChart.FullSeriesCollection(Nfila).Values = "='" & Range("I79").Value & "'!$R$" & Nfila + 12 & ":$Y$" & Nfila + 12
Next Nfila
Next
End Sub
Valora esta pregunta
0
