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 se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

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


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


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


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.