Agregar condición a Macro

11/05/2005 - 20:25 por Angelo Vernaza | Informe spam
Buenas Tardes Grupo,

Tengo la siguiente macro:
Sub portada()
If Range("c8") <> "" Then GoTo Continuar
If Range("c9") <> "" Then GoTo Continuar
If Range("c10") <> "" Then GoTo Continuar
MsgBox "No HAY nada para calcular"
Exit Sub
Continuar:
ventana2.Show
ActiveSheet.Next.Select
Range("C25").Select
End Sub

Donde las celdas C8,C9 y C10, si no tienen cantidad me indica el mensaje q
tengo abajo y no me deja continuar, pero tambien necesito q si en dos o tres
celdas tienen cantidades me diga q, solamente c puede llenar una sola celda
y no me deje pasar, espero haberme echo entender,

Saludos,
Angelo V.
 

Leer las respuestas

#1 KL
11/05/2005 - 22:37 | Informe spam
Hola Angelo,

Prueba esto:

Sub portada()
Select Case Application.CountA(Range("C8:C10"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("C25").Select
Case Else
MsgBox "Solo se puede llenar una sola celda."
End Select
End Sub



Saludos,
KL

"Angelo Vernaza" wrote in message
news:%
Buenas Tardes Grupo,

Tengo la siguiente macro:
Sub portada()
If Range("c8") <> "" Then GoTo Continuar
If Range("c9") <> "" Then GoTo Continuar
If Range("c10") <> "" Then GoTo Continuar
MsgBox "No HAY nada para calcular"
Exit Sub
Continuar:
ventana2.Show
ActiveSheet.Next.Select
Range("C25").Select
End Sub

Donde las celdas C8,C9 y C10, si no tienen cantidad me indica el mensaje q
tengo abajo y no me deja continuar, pero tambien necesito q si en dos o
tres
celdas tienen cantidades me diga q, solamente c puede llenar una sola
celda
y no me deje pasar, espero haberme echo entender,

Saludos,
Angelo V.


Preguntas similares