Dante Amor

No me queda clara la explicación: Dices: "cuando encuentra en la columna un estatus de Extraordinario quiero que de esa fila que me va a cortar me busque en la columna O el numero de cuenta y busque en toda la hoja si existe el folio" Entiendo lo...

Esta sería una opción, crea una hoja llamada "temporal" (puedes mantener oculta esta hoja). Suponiendo que tienes tu código para moverte a una hoja: Sub CambiarHoja() Sheets("temporal").[A2] = ActiveSheet.Name Sheets("Hoja15").Select End Sub Tienes...

Te anexo una nueva macro, lo primer que hace es encontrar la última fila con datos de la columna C y después selecciona las celdas Sub Macro() 'Por.Dante Amor u = Range("C" & Rows.Count).End(xlUp).Row Range("C2:C" & u).Select End Sub S a l u d o s ....

Te anexo la macro, busca los datos en A en E si lo encuentra, entonces pinta de amarillo la celda de la columna A y también de la E Sub CeldasRepetidas() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set b =...

Te anexo la macro1 Sub Macro1() 'Por.Dante Amor Sheets("HN").Copy After:=Sheets(Sheets.Count) End Sub La macro2 Sub Macro2() 'Por.Dante Amor ActiveSheet.Copy After:=Sheets(Sheets.Count) End Sub

Utiliza el formato condicional: 1. Selecciona la celda A1 2. Entra al menú Inico, Formato condicional, Nueva regla. 3. Selecciona la opción: Utilice una fórmula que determine las celdas para aplicar formato. 4. Escribe la fórmula: =$B$2<>"" 5. En...

Te anexo la macro Sub BorrarMesa() 'Por.Dante Amor mesa = InputBox("Escribe el número de Mesa a Borrar: ", "BORRAR MESAS") If mesa = "" Then Exit Sub If Not IsNumeric(mesa) Then Exit Sub If mesa < 1 Then Exit Sub ' Set b = Columns("A").Find("MESA" &...

Te ayudo con tu proyecto pero tendrás que definir los datos. Antes de empezar a prestar libro, primero tienes que crear la base de datos de los libros que tienes, entonces en una hoja, diseña qué datos vas a poner de cada libro. Inventario de libros:...

Te anexo la macro Sub CrearHojas() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set h1 = Sheets("base") n2 = "construccion" n3 = "detalle" ' For Each h In Sheets If UCase(h.Name) = UCase("construccion") Then...

Te anexo la macro, cambia "B3:F10" por el rango que quieras enviar Sub EnviarRangoEnPdf() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ' ruta = "C:\Users\usuario\Desktop\Archivos Jairo\" nombre = [B1] ' 'Se...