Dante Amor

Te anexo la macro Sub Siguiente() Sheets("Hoja2").Range("D3") = "A" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1 End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: Envíame tu archivo para ver cómo tienes la información. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Eugenio Lemes” y el título de esta pregunta.

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...

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim valor As String Dim mesano As String If Intersect(Target, Range("I:I")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub...

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...

H o la: Me puedes enviar un archivo con ejemplos con 3 hojas. En la hoja "Madrid" pones tu información actual, con los 9 cuadros y varios valores. En la hoja "gastos", pones cómo tienes la información actual. En otra hoja llamada "resultado", me...

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....