Isaac Reyes

Tu código está funcionando perfecto, el detalle es que el código que tienes, hace la hoja "puntualidad" desaparezca al momento que se cierra el formulario "UserForm1". Tienes dos alternativas: 1.- En la hoja Propiedades de "userform1" cambias la...

Para hacer un filtro múltiple, solo basta con repetir la línea hojaOrigen.Cells(filaIni, colIni).AutoFilter Field:=1, Criteria1:=strAnio Pero indicando la siguiente columna que se desea filtrar. Ejemplo: Año está en la columna 1 e instrumento en la...

Mirando lo que tienes creo que tienes un par de errores: Set xlHoja = xlApp.Worksheets("Hoja1") Está haciendo referencia a la hoja1 del libro activo, no del que acabas de abrir, lo correcto sería Set xlHoja = xlLibro.Worksheets("Hoja1") XlHoja....

Respondiendo a tu pregunta, lo más práctico que se me ocurre es calcular la diferencia entre la fecha actual y la fecha en que fue ingresado el producto, en lugar de hacer una cuenta regresiva. Prueba a utilizar la función DateDiff en una macro. Uso:...

Por las especificaciones que usas voy a asumir que tu proyecto es un vbp (proyecto visual basic) y no un xls (Libro de excel), siendo así, sin alterar mucho lo que llevas, deberías hacer lo siguiente: (Los que listo a continuación son controles...

Aquí te dejo las tres macros. Te recomiendo que revises el código y leas los comentarios. Saludos, espero que sea lo que requieres. Sub refrescar() 'Desproteger la hoja ActiveSheet. Unprotect 'Setear el valor de la primera fila 'La primera fila es...

Si lo que quieres es ocultar los encabezados de filas y columnas lo que debes hacer es ir a: Herramientas>Opciones... Y en la pestaña ver descativas la casilla "Encabezados de fila y columna", ahí tienes unas cuantas opciones más que te pueden ser útiles.

Aquí te dejo una macro que te puede ayudar. Lo que hace es aplicar un autofiltro a la hoja y fila que indiques con un valor determinado luego copia y pega en la hoja que también debes indicar. Sub filtrarYPegar() Dim filaIni As Long Dim filaFin As...

Esta mavro considera que los códigos están en la columna A y que no hay celdas de código vacías, ya que al encontrar la primera celda vacía, asume que ya no quedan más códigos en la hoja. Recorre cada fila en cada hoja de forma secuencial, por tanto,...

ActiveWorkbook.ActiveSheet.Cells(i, "c") = DateDiff("d", ActiveWorkbook.ActiveSheet.Cells(i, "a"), ActiveWorkbook.ActiveSheet.Cells(i, "b")) Hola: Esta línea asigna en la columna C los días que le falta a A para llegar a B. La variable i, indica la...