UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Igtelo


Buenas noches.

En el archivo encuentran algunos códigos que son básicos y de uso frecuente para hacer nuestros procedimientos con las macros.

El grabador de macros nos ayuda enormemente para poder lograrlo, en la tabla ya se encuentran concentradas las instrucciones por así decirlo y no tener que hacerlo en 2 renglones como lo ejecuta el grabador, es solo la unión de 2 renglones en uno y con ello no nos quedan las instrucciones como "chorizo" jeje. O sea muy largas.

Les aseguro que si le dedican un tiempecillo verán la cantidad de cosas que se pueden lograr con estos. Pueden ir probando haciéndolo con el grabador y luego comparan, verán que es más corto el camino.

Para la aplicación de formatos, no se compliquen la vida, dejen ese trabajo a Excel y listo, yo normalmente los grabo en otro módulo y ya que lo requiero, solo los llamo con la instrucción Call.

La forma en que la presento es la manera más "concentrada" que pude hacerlo para que sea entendible (según yo) y no extenderme con explicaciones porque en verdad serían largas.

Deseo les sea de utilidad.
Saludos
Ignacio Téllez

Archivos
Codigos Macros Excel.xlsm
No tienes los permisos para descargar los archivos.
(20 KB)



Última edición por Igtelo el 26/10/12, 12:43 am, editado 1 vez

2 Tabla códigos macros del grabador el 25/10/12, 11:18 pm

Edmomo


Amigo Nacho, tenga usted muy buenas noches. Lo felicito
excelente aporte para los que estamos dando los primeros pasos en esto de las
macros. Si tienes algo más sobre macros por favor no dudes en publicarlo, yo
personalmente te lo agradezco

marcohr


Señoron Ignacio
Muy buen dato, de manera personal yo apenas voy en comprender eso de las "Macros" gracias a alberto y a tyno, esta informacion que amablemente comparte me ubica mejor para comprender cada ejecusión.

Un saludo.

wibly


Gracias por el aporte Ignacio!!!

Justamente estoy haciendo una planilla que me tira el siguiente cartel de error:

Se ha producido el error '1004' en tiempo de ejecución: Error en el método 'SetElement' de objeto '_Chart'

Luego doy clik en Finalizar y la macro se aplica correctamente.

El tema es que no quiero que me siga apareciendo dicho cartel y para esto estuve tratando de usar la 42 de la lista que pasaste, que es la que sigue.

On Error Resume Next
If Err.Number = 1004 Then
Exit Sub
End If

El tema es que me sigue dado el error y supongo que es porque no entiendo bien donde hay que ponerlo dentro de mi macro, que es la siguiente

Sub ConEjeX()

ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisShow)
ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).TickLabelSpacingIsAuto = True
Range("A1").Select

End Sub

Si alguien me puede dar una mano se lo agradeceré... es para una planilla que estoy creando para compartir... y como pesa bastante no la puedo subir. Ignacio, cualquier cosa luego te la paso por correo.

Saludos!

Adrián

tyno


Hola Adrian, un gusto en saludarte.

¿No has probado con algo asi?

Sub ConEjeX()

On Error GoTo tratar_error

ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisShow)

continuar:

ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).TickLabelSpacingIsAuto = True
Range("A1").Select

Exit Sub

tratar_error:

If Err.Number = 1004 Then Resume continuar
'o tambien
'If Err.Number = 1004 then exit sub

End Sub

Se que es media inocente mi propuesta, pero he hecho algunos codigos donde trataba ciertos numeros de errores de esta manera y me funcionaba. En fin, es cuestion de probar. Saludos

Igtelo


Hola a todos!!

Adrián primeramente un abrazo, ya tenía rato que no entrabas pero que bien que ya se pudo.

Tyno ya te dió solución y aprovechando aquí dejo una imagen de la ayuda de Excel para VB y también anexo un archivo con un ejercicio sencillo para ver el funcionamiento del control de errores, ni idea tengo de cuantas formas se puedan aplicar y coincido con Tyno, sólo es cuestión de probar.

Que tengan un bello fin de semana.

Un abrazo.
Ignacio Téllez




Archivos
Ejemplo On Error.xlsm
No tienes los permisos para descargar los archivos.
(25 KB)

wibly


Muchas gracias a los dos!!! el asunto ya está resuelto... preferí usar el: On Error Resume Next

Un abrazo!

Adrián

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.