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.

En esta línea: Sheets("D").Cells(filalibre, 9) = ActiveSheet.Range("G18") Reemplaza el "9" por un "10" o la variable "fila" que tiene un valor 10.

Si me facilitaras tu libro, yo podría agregarle botones personalizados en la cinta de opciones, con la herramienta "Custom UI Editor for Microsoft Office" de esta forma podrás ejecutar tus macros desde esos botones y quitar los que están incrustados...

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 envió los links de unos archivos que hice, de acuerdo a tu petición: Un libro de Excel: https://drive.google.com/open?id=14z-sxASkV9cGDxUbuLVMxwywXt9ddMhP Las instrucciones de uso: https://drive.google.com/open?id=11zetRaw7tLzBdd8lyjJEIjaEeP63f2aX...

Puedes reemplazar tu código por el que te pongo a continuación: Sub Botón_datos() 'Por Víctor M Application.ScreenUpdating = False Rows("19:19").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C7"). Copy Range("B19")...

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

Te dejo el código que hice, por si sabes como aplicarlo: Sub calcular() 'Por Víctor M Application.ScreenUpdating = False Sheets("Configuracion").Select Dim num, hora, minuto As Double, dtIni As Date, rng1 As Range dtIni = Range("B2") hora =...