Dante Amor

Te anexo la macro actualizada Sub separar() ' ' Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") k = 15 'número de caracteres de cada cadena ' h2.Cells.Clear For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row col = 1 If...

Te anexo el código para filtrar Private Sub CommandButton5_Click() 'Por.Dante Amor 'filtrar Set h1 = Sheets("Hoja1") Set h2 = Sheets("Temporal") ' h2.Cells.Clear ListBox1.RowSource = "" ' If cmbEncabezado = "" Or cmbEncabezado.ListIndex = -1 Then...

Revisa el formato de la celda, cuando es formato Texto, no interpreta la fórmula. Revisa que tengas formato General.

Tiene varios detalles la macro, le hice cambios para que funcione, pero no sé si es lo que necesitas, prueba y me comentas. Sub Open_Files() Application.ScreenUpdating = False r = ThisWorkbook.Sheets("layout1").Cells(Rows.Count, 1).End(xlUp).Row + 1...

Envíame 2 archivos, un archivo .log con datos de prueba. Y un archivo de excel, en el archivo de excel vas a acomodar los datos del archivo .log tal y como los quieres. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

Te anexo la macro, crea el pedido desde un código hasta n códigos. Te crea una hoja por cada 20 códigos. Prueba y me comentas Sub Realizar_Pedido() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 =...

He realizado varias macros para unir libros; y te podría poner los enlaces de esas macros, pero cada usuario tiene sus necesidades y hay que adaptar la macro a las necesidades de cada usuario. Es difícil que encuentres una macro que se adapte a tus...

No entendí muy bien qué necesitas. Si quieres que la macro funcione en cualquier ordenador, sin cambiar la macro, entonces todos los ordenadores deberán tener la misma carpeta. O tu idea es modificar la macro para que funcione de acuerdo al usuario...

Te anexo la macro, utiliza una de las 3 líneas en la macro, según necesites por fila, por columna o por rango Set rango = Rows("4:11") 'por filas Set rango = Columns("C:E") 'por columnas Set rango = Range("C4:F11") 'por rango de celdas Ejemplo para...

Te anexo la actualización. En la columna Z escribirá si el correo no fue enviado Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("H1").Column Columns("Z").Clear For i = 2 To Range("B" &...