Dante Amor

H o l a: Me perdí un poco con la explicación, no entendí si tienes 2 libro o 3 libros. Podrías enviarme la información, con ejemplos reales, con comentarios y colores me explicas qué quieres enviar y en dónde lo quieres poner. Entre más claro y...

H o l a: Según tu ejemplo, los nombres de hojas deben ser así: Hoja(1), Hoja(2), Hoja(3)... Hoja(15), es decir, el número va entre paréntesis. Pon la siguiente macro en los eventos de la Hoja(1). Private Sub Worksheet_Change(ByVal Target As Range)...

Puedes pegar la macro para revisarla. También escribe cómo se llama la otra hoja y cuál sería el rango de celdas.

H o l a: Te anexo el código para ingresar Private Sub btn_Registrar_Click() 'Por.Dante Amor titulo = "Gestor de Inventarios" If txtUsuario = "" Then MsgBox "Captura el usuario", vbExclamation, titulo txtUsuario.SetFocus Exit Sub End If If txtPassword...

H o l a: Te anexo una macro Sub CombinarCeldas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ini = 1 ant = Cells(ini, "A") For i = ini To Range("A" & Rows.Count).End(xlUp).Row + 1 If ant <> Cells(i, "A") Then...

En un correo nuevo envíame tus archivo son ejemplos y la explicación de esos ejemplos. R ecuerda poner tu nombre de usuario en el asunto del correo.

H o l a: Supongo que en la variable u tienes la última fila con datos de la hoja hm. Entonces antes de esta línea: With hm.Sort Pon esto: If u <= 3 Then MsgBox "No hay registros" Exit Sub End If Significa que si en la hoja hm hay 3 o menos filas,...

H o l a: El problema puede ser, si en alguna de las 3 celdas J2, M5, M4 tienes alguno de los caracteres no válidos para guardar archivos: "<> * / \ | Revisa el contenido de las celdas, de cada hoja y elimina cualquier caracter que pueda ocasionar el...

H o l a: Te anexo una macro. Sub AbrirCsv() 'Por.Dante Amor col = "C" ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("carga") h1.Cells.Clear ruta = l1.Path & "\" arch = Dir(ruta &...

H o l a: Te anexo la macro Sub CopiarFilas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "A") <= Date Then h1.Rows(i).Copy h2.Rows(h2.Range("A" &...