Jesus Garcia

Dante Amor respondió: H o l a: Te anexo la macro actualizada, cambia en la macro "Parte.xlsx", por el nombre que va a tener el nuevo archivo. Sub CreaCarpetas() 'Act.Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False ruta = "C:\Users\Jesus...

Dante Amor respondió: H o l a: Te anexo la macro actualizada Sub GuardarArchivo() 'Por.Dante Amor ruta = "C:\Users\Jesus Garcia\Excel\" 'ruta = "C:\trabajo\" mes = Format(Date, "MMMM YYYY") arch = ThisWorkbook.Name p = InStrRev(arch, ".") arch = Left(arch, p - 1) arch =...

Dante Amor respondió: H o l a: Pon la siguiente macro en el libro "parte diario", cada que quieras una copia ejecuta la macro. Sub GuardarArchivo() 'Por.Dante Amor ruta = "C:\Users\Jesus Garcia\Excel\" ruta = "C:\trabajo\" mes = Format(Date, "mmmm") arch =...

Dante Amor respondió: Te anexo la macro para verificar si existe la carpeta que pusiste en la celda J1. Si no existe la carpeta, te muestra un mensaje para que decidas guardar en la misma carpeta o cancelar para corregir el nombre de la carpeta que está en la celda. Sub...

santiagomf respondió: Podrías poner algo así if sheets(nombrePagina).range("G1")=sheets(nombrePagina).range("G3") then sheets(nombrePagina).range("E3")="" sheets(nombrePagina).range("F3")="" sheets(nombrePagina).range("G3")="" end if

Nelson Felipe Serrano respondió: Para que la macro logre lo que quieres debes insertar esta línea de código ActiveWorkbook.ActiveSheet.Copy después de que asignas el valor a la variable <strong style="line-height: 1.5em;">NombreCopia. <strong style="line-height: 1.5em;"> Lo he...

santiagomf respondió: Pon esta fórmula en H4: =SI(O(I4="VENTA TARJETA";I4="INGRESO BANCO");"ingreso";"pago") Creo que es lo que buscas.