UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

FlorT

avatar
Hola buenas tardes,

Me acabo de registrar en este foro, espero me puedan ayudar  Very Happy

Tengo un archivo con 3 hojas, en la hoja 1 tengo una cantidad de saldrá de una formula al igual que en la hoja 2, pero necesito que si las cantidades coinciden de ambas hojas se imprima la hoja 3 de lo contrario se bloquee la impresión hasta que coincidan.

Tengo este macro pero me marca error, aparte que no tengo la opcion para bloquear la tercer hoja en caso de que no coincidan cantidades.


Private Sub Workbook_BeforePrint(Cancel As Boolean)


  If Worksheets("hoja1").Range("A1") = Worksheets("hoja2").Range("A1") Then Exit Sub
  Cancel = True
  
  MsgBox "Los datos de Hoja1!L3 no coinciden con Hoja2!D1"
  
End Sub

Adjunto un ejemplo, no es el archivo original ya que es un poco grande, pero es mas o menos la idea.

No se si se pueda hacer, espero que si  Very Happy Very Happy Very Happy

Espero poder explicarme.

Muchas Gracias de antemano!!! Very Happy Smile
Archivos
Libro1.xlsm
No tienes los permisos para descargar los archivos.
(18 KB)

Igtelo

avatar
Hola Flor.

Bienvenida al foro. Respetando lo que ya tienes, sólo lo acomodamos:
Código:
Private Sub Workbook_BeforePrint(Cancel As Boolean)

If Worksheets("Hoja1").Range("A1") <> Worksheets("Hoja2").Range("A1") Then
MsgBox "Los datos de Hoja1!A1 no coinciden con Hoja2!A1"
Cancel = True
End If

End Sub


Saludos
Ignacio Téllez

FlorT

avatar
Muchisimas Gracias Ignacio, es justo lo que necesitaba  Very Happy Very Happy

Saludos!!!

Flor

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.