Agregar condicion

On 24 mayo, 12:17, "Angelo Vernaza"
wrote:

Hola Grupo tengo la siguiente macro

Sub portada()
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End Sub

quisiera agregarle otra condición al inicio, que si Hoja1!$M$33, es mayor
que uno, me envie un cierto mensaje definido por mi,

como puedo hacer Saludos,


Angelo Vernaza
Cel. 6526-0005

Sub portada()

IF sheets("Hoja1").Range("M33").value = 1 then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub

Gracias Arcano, funcionó perfecto,

Necesito las siguientse condiciones para ativar la macro y el formulario en
adelante cuando aprieto el botón

1. Si el rango D14:D16 no ay nada entoncse me envie el mensaje no hay nada
para calcular,
2. Si en las celdas d14 o d15 es mayor que 0, pero si Hoja1!$M$33 es mayor
que uno, me envie un mensaje(seleccione el tipo de ISR) y no me ejecute la
macro.
3. si la d17 contiene un valor me deje ejecutar la macro sin ninguna
condición. (claro no puede haber valores en d14 o d16)
4. Solo puede realizarze la macro con una sola celda llena, osea que si ay
dos o mas me debe enviar el mensaje "Sólo se puede hacer UN solo calculo a
la vez"

Creo que esto es todo,




Angelo Vernaza
Cel. 6526-0005

"Arcano" escribió en el mensaje
news:
On 24 mayo, 12:17, "Angelo Vernaza"
wrote:

Hola Grupo tengo la siguiente macro

Sub portada()
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End Sub

quisiera agregarle otra condición al inicio, que si Hoja1!$M$33, es mayor
que uno, me envie un cierto mensaje definido por mi,

como puedo hacer Saludos,


Angelo Vernaza
Cel. 6526-0005

Sub portada()

IF sheets("Hoja1").Range("M33").value = 1 then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub

On 24 mayo, 13:55, "Angelo Vernaza"
wrote:

Gracias Arcano, funcionó perfecto,

Necesito las siguientse condiciones para ativar la macro y el formulario en
adelante cuando aprieto el botón

1. Si el rango D14:D16 no ay nada entoncse me envie el mensaje no hay nada
para calcular,
2. Si en las celdas d14 o d15 es mayor que 0, pero si Hoja1!$M$33 es mayor
que uno, me envie un mensaje(seleccione el tipo de ISR) y no me ejecute la
macro.
3. si la d17 contiene un valor me deje ejecutar la macro sin ninguna
condición. (claro no puede haber valores en d14 o d16)
4. Solo puede realizarze la macro con una sola celda llena, osea que si ay
dos o mas me debe enviar el mensaje "Sólo se puede hacer UN solo calculo a
la vez"

Creo que esto es todo,


Angelo Vernaza
Cel. 6526-0005

"Arcano" escribió en el mensajenews:
On 24 mayo, 12:17, "Angelo Vernaza"
wrote:





> Hola Grupo tengo la siguiente macro

> Sub portada()
> Select Case Application.CountA(Range("d14:d16"))
> Case 0
> MsgBox "No HAY nada para calcular"
> Case 1
> ventana2.Show
> ActiveSheet.Next.Select
> Range("b3").Select
> ActiveSheet.EnableSelection = xlUnlockedCells
> Case Else
> MsgBox "Sólo se puede hacer UN solo calculo a la vez."
> End Select
> End Sub

> quisiera agregarle otra condición al inicio, que si Hoja1!$M$33, es mayor
> que uno, me envie un cierto mensaje definido por mi,

> como puedo hacer Saludos,


> Angelo Vernaza
> Cel. 6526-0005
>

Sub portada()

IF sheets("Hoja1").Range("M33").value = 1 then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

Ok..aca va, pero revisa el intervalo de la celda M33, ya que no se si
tiene que ir el numero 1, o que esté la celda vacia o con datos..
Si quieres ver que tenga datos o no,.reemplaza el Value = 1 por Value
<> "" para celdas con datos, y Value = "" para celdas vacías...
Suerte.

Sub portada()

If Sheets("Hoja1").Range("M33").Value = 1 Then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1

If Sheets("Hoja1").Range("d17").Value <> "" Then
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells

ElseIf Sheets("Hoja1").Range("d14").Value <> "" And
Sheets("Hoja1").Range("M33").Value > 1 Then
MsgBox "seleccione el tipo de ISR"

ElseIf Sheets("Hoja1").Range("d15").Value <> "" And
Sheets("Hoja1").Range("M33").Value > 1 Then
MsgBox "seleccione el tipo de ISR"
Else
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells

End If

Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub

Me manda error en las siguientes lineas

ElseIf Sheets("Hoja1").Range("d14").Value <> "" And
Sheets("Hoja1").Range("M33").Value > 1 Then
MsgBox "seleccione el tipo de ISR"

ElseIf Sheets("Hoja1").Range("d15").Value <> "" And
Sheets("Hoja1").Range("M33").Value > 1 Then
MsgBox "seleccione el tipo de ISR"

Error de compilación

Ok en la celda M33 de la hoja uno siempre va a tener valores entre 1 y 20,
si el valor es 1 y las celdas d15 y d16 tienen valores que me mande un
mensaje, y

si la que esta llena es la celda d17, tiene que dejar ejecutar la macro sin
ninguna condición


Angelo Vernaza
Cel. 6526-0005

"Arcano" escribió en el mensaje
news:
On 24 mayo, 13:55, "Angelo Vernaza"
wrote:

Gracias Arcano, funcionó perfecto,

Necesito las siguientse condiciones para ativar la macro y el formulario
en
adelante cuando aprieto el botón

1. Si el rango D14:D16 no ay nada entoncse me envie el mensaje no hay nada
para calcular,
2. Si en las celdas d14 o d15 es mayor que 0, pero si Hoja1!$M$33 es mayor
que uno, me envie un mensaje(seleccione el tipo de ISR) y no me ejecute la
macro.
3. si la d17 contiene un valor me deje ejecutar la macro sin ninguna
condición. (claro no puede haber valores en d14 o d16)
4. Solo puede realizarze la macro con una sola celda llena, osea que si ay
dos o mas me debe enviar el mensaje "Sólo se puede hacer UN solo calculo a
la vez"

Creo que esto es todo,


Angelo Vernaza
Cel. 6526-0005

"Arcano" escribió en el
mensajenews:
On 24 mayo, 12:17, "Angelo Vernaza"
wrote:





> Hola Grupo tengo la siguiente macro

> Sub portada()
> Select Case Application.CountA(Range("d14:d16"))
> Case 0
> MsgBox "No HAY nada para calcular"
> Case 1
> ventana2.Show
> ActiveSheet.Next.Select
> Range("b3").Select
> ActiveSheet.EnableSelection = xlUnlockedCells
> Case Else
> MsgBox "Sólo se puede hacer UN solo calculo a la vez."
> End Select
> End Sub

> quisiera agregarle otra condición al inicio, que si Hoja1!$M$33, es
> mayor
> que uno, me envie un cierto mensaje definido por mi,

> como puedo hacer Saludos,


> Angelo Vernaza
> Cel. 6526-0005
>

Sub portada()

IF sheets("Hoja1").Range("M33").value = 1 then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

Ok..aca va, pero revisa el intervalo de la celda M33, ya que no se si
tiene que ir el numero 1, o que esté la celda vacia o con datos..
Si quieres ver que tenga datos o no,.reemplaza el Value = 1 por Value
<> "" para celdas con datos, y Value = "" para celdas vacías...
Suerte.

Sub portada()

If Sheets("Hoja1").Range("M33").Value = 1 Then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1

If Sheets("Hoja1").Range("d17").Value <> "" Then
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells

ElseIf Sheets("Hoja1").Range("d14").Value <> "" And
Sheets("Hoja1").Range("M33").Value > 1 Then
MsgBox "seleccione el tipo de ISR"

ElseIf Sheets("Hoja1").Range("d15").Value <> "" And
Sheets("Hoja1").Range("M33").Value > 1 Then
MsgBox "seleccione el tipo de ISR"
Else
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells

End If

Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub

Hola, creo que habian lineas que se separaron, copia de nuevo el
codigo...
No entiendo, si la M33 tiene un 1, te dará sólo el primer mensaje
(MsgBox "Tu mensaje" ) y la macro no se ejecutará jamás, por lo tanto
da igual si tiene valores en d14 y d15...¿?.. creo que me falta
entender algo para ayudarte al 100%.
Si no, puedes quitar la primera sentencia, donde se evalua si M33 es
igual a 1.


Sub portada()

If Sheets("Hoja1").Range("M33").Value = 1 Then
MsgBox "Tu mensaje"
Else

Select Case Application.CountA(Range("d14:d16"))

Case 0
MsgBox "No HAY nada para calcular"

Case 1
If Sheets("Hoja1").Range("d17").Value <> "" Then
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells


ElseIf Sheets("Hoja1").Range("d14").Value <> "" And
Sheets("Hoja1").Range("M33").Value = 1 Then
MsgBox "seleccione el tipo de ISR"

ElseIf Sheets("Hoja1").Range("d15").Value <> "" And
Sheets("Hoja1").Range("M33").Value = 1 Then
MsgBox "seleccione el tipo de ISR"
Else
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells

End If

Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select

End If
End Sub