Victor Maldonado Chavez

Revisaré tu libro y en cuanto tenga hechas las modificaciones te aviso y te lo subo de nueva cuenta. Saludos. P.D. Sólo te pido una poca de paciencia ya que lo haré en mis tiempos libres del trabajo.

Solo debes cambiar esta línea For i = 164 To 177 El 177 ponlo 178 y ya funcionará

Te doy un link de un libro que hice de ejemplo: https://drive.google.com/open?id=1myMCdD70L5qULQ38jB11F1ycbk6gko_g Al abrir este libro automáticamente comprueba si encuentra el archivo, si es así lo abre y finaliza con un mensaje; si no lo encuentra...

Te doy el link del libro modificado: https://drive.google.com/open?id=1LhcGciXzbYSqyRyFX_NMgmxG8fMcKyrV Y no puse un botón en la Hoja1, agregué un botón pero en la cinta de opciones en una pestaña que se llama "Status", al lado de la pestaña...

Te doy un link de un libro de ejemplo que hice: https://drive.google.com/open?id=1RHcs1rx5_6UuohVBn8yKpyKi23989zSP Prueba y verás si es lo que necesitas, la observación que te hago es que si procesas la información de 1500 filas como pones en tu...

Te dejo el código que hice: Sub copiar() 'Por Víctor M. Application.ScreenUpdating = False Dim miCelda As Range Range("A1:A10").Select For Each miCelda In Selection If miCelda <> "" And miCelda <> 0 Then Sheets("Hoja2").Select Range("B1").Select Do...

Hice este código, que espero haga lo que necesites, para que funcione correctamente debes hacer lo siguiente: Abres el editor Visual Basic (VBA) con la tecla Alt+F11 o desde la ficha Programador en la cinta de opciones.Ubicas donde se encuentra el...

Prueba este código que modifiqué: Sub bloquear_hoja() 'Por Vico Application.ScreenUpdating = False If Sheets("Registro factura").AutoFilterMode = False Then Range("A4:O4").AutoFilter End If If Sheets("Registro factura").ProtectContents = True Then...

Utiliza este código que modifiqué: Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' Variable KeyCells contiene las celdas a controlar Set KeyCells = Range("A1:A3") If Not Application.Intersect(KeyCells,...