Dante Amor

Envíame tu archivo con los datos originales, también me anexas otros 2 archivos de excel con 2 usuarios como ejemplo para ver cómo quieres la salida. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “idaira aleman” y...

Envíame tu archivo de excel con la macro, la plantilla y 2 word con el resultado que esperas.

Te anexo la macro Sub Macro1() 'Por.Dante Amor With Range("B4:B" & Range("A" & Rows.Count).End(xlUp).Row) .Replace What:="IDEM", Replacement:="", LookAt:=xlWhole .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" .Value = .Value End With MsgBox...

Envíame tu archivo, en la hoja1 me pones tu base de datos (algunos ejemplos). En la hoja2 me pones el resultado del filtro En la hoja3 me pones qué criterios quieres filtrar. Me explicas en la hoja con comentarios y colores lo de filtrar con mes, ya...

Te anexo la macro para actualizar el libro2, cambia en la macro por los nombres de tu libro y de tus hojas. Sub Comparar() 'Por.Dante Amor Set l1 = ThisWorkbook 'libro1 con la macro Set h1 = l1.Sheets("Hoja1") 'hoja1 del libro1 Set l2 =...

Te anexo un ejemplo: Selecciona una imagen de tu hoja, ejecuta la siguiente macro: Sub toWord() Application.ScreenUpdating = False wArch = Hoja8.Range("C3").Text & Hoja8.Range("C2").Text & ".dotx" 'Ubicacion y nombre de la plantilla: Set objWord =...

Realiza lo siguiente. - Primero, revisa que la celda I2 en Formato de celdas, Proteger, no debe estar bloqueada, para que de esa forma puedas escribir. - Protege la hoja con algún password - Al inicio de la macro, tienes que desproteger la hoja - Al...

Tendrías que enviarme un archivo y explicarme qué quieres copiar y en dónde lo quieres pegar. Envíame un archivo con 2 hojas, en la primera hoja me pones qué quieres copiar y en la segunda hoja me pones en dónde lo quieres pegar. Es decir, trata de...

Prueba con esta opción Crea una hoja llamada "temp". Los títulos deberán estar en la fila2, y cada título de B2 hasta F2 deberán tener un título diferente y sin títulos vacíos. Private Sub TextBox1_Change() 'Act.Por.Dante Amor Set h1 =...

Prueba lo siguiente Private Sub Label51_Click() With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecciona una carpeta" .AllowMultiSelect = False .InitialFileName = ruta If .Show <> -1 Then Exit Sub ruta = .SelectedItems(1) & "\" End...