Agregar condición a Macro

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.

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

> 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.
>
>