Excel - Escribir en celda y que se imprima una autoforma

   
Vista:

Escribir en celda y que se imprima una autoforma

Publicado por Cristian (1 intervención) el 30/10/2010 23:41:19
Amigos, necesito la siguiente ayuda

En la Hoja1 cuando escriba cualquier carácter (letras o numero) en alguna celda, por ejemplo en la A1, en la Hoja2 se active la impresión de una autoforma que ya tengo puesta, como por ejemplo un “rectangulo 1”. Cuando dicha celda de la hoja1 este en blanco, la autoforma de la hoja2 no se debe imprimir.

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Escribir en celda y que se imprima una autoform

Publicado por jcs (494 intervenciones) el 31/10/2010 19:34:51
Muy buenas,

pues si te he entendido, creo que te puede valer la siguiente macro:

Private Sub worksheet_change(ByVal target As Range)
If target = Range("A1") Then
If target.Value = "" Then
Sheets("Hoja2").Select
ActiveSheet.Shapes("Rectangle 1").Select
Selection.PrintObject = False
Else
Sheets("Hoja2").Select
ActiveSheet.Shapes("Rectangle 1").Select
Selection.PrintObject = True
End If
End If
End Sub

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar