Dante Amor

H o la: Te anexo la macro con varios cambios. En esta forma no es necesario hacer visibles las hojas. - Primero establecí en el objeto l1 el libro base (Thisworkbook) - En l2 se estable el libro "generador" - La ruta para abrir el libro y guardar es...

H o l a: Te anexo algunas observaciones. Cuando declaras variables de esta forma, la única variable que estás declarando como Integer es la "d", las otras quedan como Variant Dim i1, j1, h, d As Integer La forma correcta sería así: Dim i1 as integer,...

H o l a: Te anexo la macro. Cambia en la macro "Hoja4" por el nombre de tu hoja que contiene todos los datos. Cambia "Base de datos", por el nombre de la hoja a donde se van a transferir los registros. Sub Respaldar() 'Por.Dante Amor...

H o l a: Te anexo la macro actualizada Sub buscar() 'Act.Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("M" & h2.Rows.Count).End(xlUp).Row + 1 dato = InputBox("Qué dato buscamos???", "CAPTURAR") If dato = "" Then Exit...

H o l a: Pon la siguiente macro en un botón: Sub Consecutivo() 'Por.Dante Amor Set celda = Sheets("Hoja3").Range("C3") If celda.Value >= 10 Then celda.Value = 1 Else celda.Value = celda.Value + 1 End If End Sub Sigue las Instrucciones para un botón y...

Si la hoja está oculta y escribes algo como esto: Sheets("Hoja3").select La macro no puede seleccionar una hoja que está oculta y te envía error. Para actualizar una hoja oculta (incluso si está visible), tienes que hacer referencia a la hoja, por...

Entiendo lo siguiente, si modificas la celda I4, empieza a seleccionar cada una de las hojas que tienes, si en esa hoja, en la celda ZZ100 es diferente de blanco, entonces limpia el rango. Revisa que en las hojas en la celda ZZ100 tengas un dato....

H o la :Probé tu macro y sí me funciona. Tal vez tu archivo Acumulado tiene algún problema. Lo que te recomiendo es que no abras el archivo en otra instancia: Set objExcel = New Excel.Application Ni tampoco que ocultes la aplicación objExcel.Visible...

H o la: Te anexo la macro. Supongo que el encabezado es el mismo, también que el número de columnas es el mismo, es decir, veo que son 7 columnas. También supongo que la separación de los datos está por tabulador. Cambia en la macro "resultado", por...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Row = 1 Then Exit Sub If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("P:Q")) Is Nothing Then u...