Respuesta
en
Microsoft Excel
y en 2 temas más
a
Enviar correos masivos con adjunto al lado y que busque pdf por cedula
Te anexo la macro Private Sub UserForm_Activate() 'Por.Dante Amor Set h1 = Sheets("Enviar") Set h2 = Sheets("temp") h2.Cells.Clear ' Label3.Caption = "ENVIANDO CORREOS" ruta = h1.Range("A4") If ruta = "" Then MsgBox "Ingresa la carpeta": Exit Sub If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro excel para copiar celdas de varias hojas de un libro en la ultima del mismo
Envíame un archivo con varios ejemplos reales, para ver cómo están las columnas, cuáles columnas están vacías, cuáles filas están vacías, cuáles filas no contienen datos y cuáles sí tienen datos. También el archivo, en la hoja "resumen", pon algunos...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Traspasar datos de dos hojas a una tercera mediante macro
Te anexo la macro Sub Traspasar_Datos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ' cols1 = Array("F", "H", "I", "J", "K", "L", "N", "E") col31 = Array("L", "J", "B", "C", "D", "E", "G", "H") cols2 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para rellenar una columna hasta el ultimo registro de otra columna
Si quieres el consecutivo en toda la columna A sin importar las celdas vacías en la columna B, utiliza esto: Sub Ordena() 'Sub Ordena(Control As IRibbonControl) Application.ScreenUpdating = False Rows(1).Delete Shift:=xlUp Range("A2") = 1 u =...
Respuesta
en
Programación
y en 2 temas más
a
Macro con MSGBOX con distintos mensajes
Te anexo una forma de poner los mensajes en un bucle Private Sub Workbook_Open() mensaje1 = "Buenos días, Luciano" mensaje2 = "Ya te dije buenos días" mensaje3 = "Te lo digo por tercera vez... BUENOS DIAS" mensaje4 = "No te lo repito más" mensaje5 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Capturar click sobre shapes en Excel con VBA
Para que funcione en una sola macro realiza lo siguiente: - A cada forma le tienes que poner un nombre en el cuadro de nombres: Ahora, en un módulo pon la siguiente macro: Sub Mensaje_Shape() 'Por.Dante Amor Select Case TypeName(Application.Caller)...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Quiero ordenar datos de varias columnas en excel con macros
Ya no entendí dónde tienes los encabezados. Pero no es problema, solamente actualiza en la macro en esta línea, cambia el 21 por el número de fila donde tienes tus encabezados. f_enc = 21 La macro actualizada Sub ordenar() 'Por.Dante Amor f_enc = 21...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hacer que esta macro guarde en pdf?
Te anexo la macro actualizada para guardar también como pdf Sub CorrespondenciaConWord() 'Por.Dante Amor ' patharch = ThisWorkbook.Path & "\plantilla1.dotx" ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set objWord =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Problema al abrir un txt (unicode) por culda del identificador de Texto comillas "
Utiliza la opción del menú Datos, Desde Texto. Cuando estés en la pantalla del asistente, selecciona el Calificador de texto {Ninguno} Selecciona el Separador, puede ser tabulación, coma, u el que tenga tu archivo. Presiona Siguiente En la siguiente...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para ocultar filas sin colorear
Te anexo la macro. Oculta las filas si el color está puesto con el formato de colores. Si el color está puesto con el formato condicional, entonces no funciona. Sub Ocultar_Filas() 'Por.Dante Amor For i =...