Pregunta en
Microsoft Excel
y en 2 temas más
Darle nombre a un archivo de salida según contenido de una celda y la fecha actual
En la anterior macro que me hiciste, para el nombre del archivo PDF de salida hay la siguiente instrucción para darle el nombre: ruta = ThisWorkbook.Path & "\" h3.ExportAsFixedFormat xlTypePDF, _ ruta & "archivo.pdf", xlQualityStandard, True,...
Pregunta en
Microsoft Excel
y en 2 temas más
Solicitud de macro que realice una acción usando la instrucción If si se cumple una codición
Me gustaría que me pudieras ayudar creando una macro que haga lo siguiente: Sub Condicional() Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") u = h1.Range("B" & Rows.Count).End(xlUp).Row 'Aqui necesito una condición IF de la siguiente manera: Que...
Pregunta en
Microsoft Excel
y en 2 temas más
Solicitud de explicación detallada de la ejecución de la macro
Tu me ayudaste a hacer la siguiente macro: Set h1 = Sheets("Registro") Set h2 = Sheets("DiseñoIngreso") ' u = h1.Range("B" & Rows.Count).End(xlUp).Row If u < 17 Then d = 18 u = 18 Else d = u + 4 End If num = h1.Cells(u - 1, "B") num = Replace(num,...
Pregunta en
Microsoft Access
y en 3 temas más
Buscar un dato en una tabla de abajo hacia arriba
Tengo la siguiente instrucción de macro: Set h = Sheets("AGENDA") Set b = h.Columns("F").Find(Target, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Fecha de la última cita agendada para este paciente: " & vbCr & vbCr & _ Format(h.Cells(b.Row,...
Pregunta en
Microsoft Excel
y en 2 temas más
¿Es posible hacer una macro como esta o es imposible?
Dante Amor Quería averiguar si hacer una macro como esta es posible o si estoy pidiendo algo imposible de realizar. Agregar nuevas instrucciones a Macro existente Cualquier respuesta es bienvenida. Si es un NO pues ya sabré que es imposible. Pero si...
Pregunta en
Microsoft Excel
y en 2 temas más
Agregar nuevas instrucciones a Macro existente
Tu me ayudaste con la siguiente macro que funciona fenomenal: Sub CopiarFormato() 'Por.Dante Amor Set h1 = Sheets("Registro") Set h2 = Sheets("DiseñoIngreso") 'BUSCA LA ULTIMA FILA VACIA EN LA COLUMNA B u = h1.Range("B" & Rows.Count).End(xlUp).Row...
Pregunta en
Microsoft Excel
y en 2 temas más
Macro que imprima en tamaño media carta un encabezado un contenido definido y un pie de página
Elsita como estas. Tengo la siguiente solicitud. Tengo una hoja llamada "Registro" en la cual registro varios items. Los registros están contenidos de la columna "B" a la columna "O" y ocupan 4 filas empezando desde la fila 17. Es decir que el primer...
Pregunta en
Microsoft Excel
y en 2 temas más
Macro que imprima los datos para una hoja tamaño media carta
Tengo un formato prediseñado en Excel en una hoja y esta contenido desde la columna "A" hasta la columna "N" y desde la fila "1" hasta la fila "25". El diseño de ese formato es para ser impreso en hoja tamaño Media Carta. Quisiera por lo tanto una...
Pregunta en
Microsoft Excel
y en 2 temas más
Macro lenta alternativas para hacerla mas rápida
Tengo la siguiente macro: Sub REGISTROS() 'Act.Por.Dante Amor Application.Visible = False Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("VISITAS") Set h2 = Sheets("CARTERA") ' u = h2.Range("A" &...
Pregunta en
Microsoft Excel
y en 2 temas más
Inquietud en el tiempo de ejecución de una Macro
Tengo la siguiente macro Sub REGISTROS() Application.Visible = False Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("VISITAS") Set h2 = Sheets("CARTERA") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1...