Error Macro

Estimados:
En el rango que se define "e" no hay datos (celdas en blanco), por lo tanto el método de "ActiveChart.SeriesCollection(4).Name" falla porque no le puede poner un nombre a la serie si es que no hay datos.
Parte del código:
...
Set e = Range(casilla_inicial_4 & ":" & casilla_final_4)
...
...
ActiveChart.SeriesCollection(4).XValues = a
ActiveChart.SeriesCollection(4).Values = e
ActiveChart.SeriesCollection(4).Name = "=""R28d"""
Texto de la ayuda de VB:
No puede utilizarse el método en el contexto aplicado. Específicamente, algunos métodos del objeto Rango requieren que el rango contenga datos. Si el rango no contiene ningún dato, el método fallará.
¿Cómo puedo solucionar ésto?
Saludos!

1 respuesta

Respuesta
1
Podes evaluar si e tiene datos o no, y en ese caso ejecutar o no las instrucciones siguientes:
Set e = Range(.........)
if not (e) is nothing then
'tus instrucciones....
end if
...
Saludos
Elsa
Tus mejores opciones en manuales de Macros desde:
http://es.geocities.com/lacibelesdepunilla/manuales
Muchas gracias Elsa, como siempre. Había intentado varias veces de hacer un if para ver si el rango estaba vacío pero no sabía como hacerlo.
Saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Función buscarv sobre el resultado de una celda

Trato de obtener resultado sobre la función de buscarv la cual detallo esta :=SI.ERROR(BUSCARV(B666;COMPRAS!$M$3:$O$325;3;FALSO);""). Lo busco sobre una celda que tiene la siguiente formula: =SI(D666="Apertura ";"";IZQUIERDA($G$666;10)). El resultado...
2 respuestas

Una macro no se ejecuta desde otra macro, pero sí si la ejecuto manualmente, ¿Por qué?

En una hoja tengo un botón que ejecuta el siguiente código: Sub preguntar_scroll() Dim respuesta respuesta = MsgBox("¿Quieres extender la pantalla actual?", vbYesNo + vbQuestion, "Extender pantalla") If respuesta = vbYes Then Sheets("visor").Activate...
1 respuesta

Mover contenido de una celda hacia arriba y abajo

Mover el contenido de una celda de una tabla con un botón hacia arriba y hacia abajo. En una hoja de excel. Y poder colocarlo donde uno desee.
1 respuesta

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Trabajar con una ventana duplicada en excel

Tengo una macro mediante la cual me duplica la ventana activa de excel para mostrarla en un segundo monitor: Sub bot_extenderpantalla_Click() 'creamos una nueva ventana de excel con la hoja activa (visor) Sheets("visor").Activate...
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas