Hola amigos

 

tengo un problemilla que quizás para ustedes expertos será fácil

una tabla con muchas filas y columnas entre esas columnas 4 tienen fechas q suman días a partir de la primera sumando+7dias, +14dias y +28 días para su próxima verificación  

el tema es q diariamente tengo q imprimir las referencias q se revisaran al día siguiente

 

con la grabadora de macros obtuve este código

Sub ensayo()
' ensayo Macro
   
    Columns("A:H").Select
    Selection.ClearContents
    Sheets("Muestras").Visible = True
    Sheets("Muestras").Select
    Columns("BO:BO").Select
    ActiveSheet.Range("$BO$1:$BO$2001").AutoFilter Field:=1
    ActiveSheet.Range("$BO$1:$BO$2001").AutoFilter Field:=1, Criteria1:="<>"
    Range("A:A,K:K").Select
    Range("K1").Activate
    Range("A:A,K:K,X:Y").Select
    Range("Control[@Columna1]").Activate
    Range("A:A,K:K,X:Y,AJ:AJ").Select
    Range("AJ1").Activate
    Range("A:A,K:K,X:Y,AJ:AJ,AU:AV").Select
    Range("AU1").Activate
    Selection.Copy
    Sheets("Ensayos").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:I1").Select
    Application.CutCopyMode = False
End Sub

pero se me congela la maquina y demora mucho

 

a ver si me pueden ayudar

puede ser un UserForm que me muestre las celdas filtradas y luego imprimir

=Fecha+7

=Fecha+14

=Fecha+28

No te sirve?

Saludos.

NOTA: SIN ARCHIVO NO PUEDO AYUDAR MAS.

Hace 10 horas, jimmysvr dijo:

el tema es q diariamente tengo q imprimir las referencias q se revisaran al día siguiente

Pero sigues sin decir cuál es tu problema o de dónde partes y a dónde quieres llegar. Así (y sin fichero) es imposible hacer nada

Ok amigos

Muchísimas gracias Por dedicar de su tiempo

adjunto el archivo para q puedan ver como estoy interesado en filtrar

tiene pocas filas porque no puedo superar los 102 kb

 

la hoja llamada ensayo tiene un botón con un macro asignado

lo que hago una ves por semana es filtrar todas las ref de la próxima semana según la fecha de cada día

puedo tener hasta 30 para 1 solo día como también hay días q no tengo ninguna

se compara la fecha puesta en la hoja de ensayo con las fechas ya captadas en la hoja muestras

 

funciona bien solo q es súper lento congela la maquina  ya q tengo casi 2000 filas

 

agradezco de antemano su tiempo por leer e  intentar ayudarme

Control Diario.xlsm

Vuelve a subir el archivo sin proteger.