Actividad pública reciente
Ha preguntado en el tema en
Microsoft Excel
y en 1 temas más
Crear PDF de hoja activa y enviarlo a un correo determinado.
Mi necesidad es la siguiente; Quisiera que estando en una hoja activa me creara un PDF y acto seguido lo envíe por correo a una dirección determinada (siempre será la misma). Como siempre os quedo infinitamente agradecido.
Ha valorado "Excelente" la respuesta
Llamar a un procedimiento desde una subrutina
Supongo que equivocaste el tema, ya que estás en Matemáticas. Si esta pregunta era para Excel o VBasic, la instrucción sería más o menos así Sub TuProcedimiento() ... If tuCondicion Then Call ProcedimientoSiCumpleCondición Else Call...
Ha valorado "Excelente" la respuesta
Como cambiar el color de las líneas de varias formas a la vez insertadas en una hoja de Excel.
La siguiente macro te cambia el color a todas las formas que tengas en la hoja activa: Sub colorFormas() 'x Elsamatilde For Each sh In ActiveSheet.Shapes sh.Select With Selection.ShapeRange.Line .Visible = msoTrue .ForeColor.RGB = RGB(0, 0, 0) 'negro...
Ha valorado "Excelente" la respuesta
Como ocultar una etiqueta y un TextBox dependiendo de un botón de radio (OpttionButton) en el mismo formulario.
Primero, en el siguiente evento tienes que poner que el OptionButton1 es verdadero: Private Sub UserForm_Activate() OptionButton1 = True End Sub Después, pon lo siguiente: Private Sub OptionButton1_Click() Label1.Visible = True TextBox1.Visible =...
Ha valorado "Excelente" la respuesta
Se puede cambiar el origen x,y de las formas de Excel?
Top y Left te indican las coordenadas superior e izquierda de un objeto. Así, si necesitas hacerlo coincidir con la ubicación de cierta celda, digamos A1, utilizarás este código: tope = Range("A1").Top izq = Range("A1").Left 'ubico el objeto ya...
Ha valorado "Excelente" la respuesta
Macro que borre rectángulos y líneas (Shape)que estén dentro de un rango de celdas.
Utiliza la siguiente macro Sub seleccionar() 'Por.Dante Amor Set rango = Range("K11:R22") For Each img In ActiveSheet.Shapes If img.Type = msoPicture Then If Not Intersect(img.TopLeftCell, rango) Is Nothing And _ Not Intersect(img.BottomRightCell,...
Ha empezado a seguir a 
Dante Amor
Dante Amor
Trabajo
-
Ya he cumplido con mi etapa laboral y ahora me dedico a los jobis