Hola a todos, necesito si me pueden ayudar, tengo un macro que imprime una
hoja y quisiera que imprimiera una segunda, pero ahi tengo un problema, la
segunda planilla imprime solo la fecha del dia, y cuando no hay datos con
la fecha del dia da error y se detiene la ejecución de la macro. yo
quisiera agregar al codigo que pego a continuación una linea que indique
que si no tiene la fecha del dia, continue sin imprimir la segunda planilla
Este es parte del codigo para imprimir la segunda planilla
Application.ScreenUpdating = False
UF = Range("S65536").End(xlUp).Row
día = Date
Range("T:T").Select
fil = Selection.Find(What:=día, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Range("B" & fil & ":U" & UF).PrintOut Copies:=1, Collate:=True
Range("B" & UF + 1).Select
Muchas gracias Héctor
Imprimir por Fecha
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Imprimir por Fecha
por hac » 30 Ene 2012 06:49
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
hac - Miembro Frecuente
- Registrado: 08 Jun 2005 09:44
- Ubicación: Ciudad de Buenos Aires
Re: Imprimir por Fecha
por Adrian » 30 Ene 2012 13:34
Hola, te pongo 3 posibles alternativas.
Alternativa 1
Alternativa 2
Alternativa 3
Alternativa 1
- Código: Seleccionar todo
On Error GoTo Soluc
Application.ScreenUpdating = False
UF = Range("S65536").End(xlUp).Row
día = Date
Range("T:T").Select
fil = Selection.Find(What:=día, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Range("B" & fil & ":U" & UF).PrintOut Copies:=1, Collate:=True
Range("B" & UF + 1).Select
Exit Sub
Soluc:
MsgBox "No hay Fechas", 64, "" ' a esto lo puedes quitar si gustas
Alternativa 2
- Código: Seleccionar todo
Dim Aux As Range
Application.ScreenUpdating = False
UF = Range("S65536").End(xlUp).Row
día = Date
Range("T:T").Select
Set Aux = Selection.Find(What:=día, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Aux Is Nothing Then GoTo x
fil = Selection.Find(What:=día, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Range("B" & fil & ":U" & UF).PrintOut Copies:=1, Collate:=True
Range("B" & UF + 1).Select
Exit Sub
x:
MsgBox "No hay Fechas", 64, "" ' a esto lo puedes quitar si gustas
Alternativa 3
- Código: Seleccionar todo
Dim Aux As Range
Application.ScreenUpdating = False
UF = Range("S65536").End(xlUp).Row
día = Date
Range("T:T").Select
Set Aux = Selection.Find(What:=día, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Aux Is Nothing Then
fil = Selection.Find(What:=día, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Range("B" & fil & ":U" & UF).PrintOut Copies:=1, Collate:=True
Range("B" & UF + 1).Select
Else
MsgBox "No hay Fechas", 64, "" ' a esto lo puedes quitar si gustas
End If
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Adrian - Moderator
- Registrado: 13 Jun 2004 17:24
- Ubicación: Chamical La Rioja ARG
Re: Imprimir por Fecha
por hac » 31 Ene 2012 06:48
Muchas gracias Adrian, utilice la 2da alternativa y funciona perfectamente.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
hac - Miembro Frecuente
- Registrado: 08 Jun 2005 09:44
- Ubicación: Ciudad de Buenos Aires
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados
