Duvida Com Estrutura De Decisao

[fahledu]

Estou tentando criar um script simples(pensei q fosse) q interage com o usuario.

Dependendo do que ele coloca num determinado capo, em outro vem a resposta.

sei que posso usar "if... then... else" ou o "select case"

mas ai ficaria muita coisa pra uma mesma resposta.

a ideia é mais ou menos essa, isso é chamado por um botão

Sub interage()


Select Case teste
Case Range("b4").Value = "Ola"
If Time = "06:00" Or Time < "12:00" Then
Range("b2").Value = "bom dia"
ElseIf Time = "12:00" Or Time < "18:00" Then
Range("b2").Value = "boa tarde"
ElseIf Time = "18:00" Or Time < "06:00" Then
Range("b2").Value = "boa noite"
Else
End If
Case Range("b4").Value = ""
Range("b4").Value = "Esta em branco"

End Select
End Sub

Onde estou errando?

Ou não da pra mesclar esses dois comandos?

Abraços

[Lisandro Oliveira]

Estou tentando criar um script simples(pensei q fosse) q interage com o usuario.

Dependendo do que ele coloca num determinado capo, em outro vem a resposta.

sei que posso usar "if... then... else" ou o "select case"

mas ai ficaria muita coisa pra uma mesma resposta.

a ideia é mais ou menos essa, isso é chamado por um botão

Sub interage()


Select Case teste
Case Range("b4").Value = "Ola"
If Time = "06:00" Or Time < "12:00" Then
Range("b2").Value = "bom dia"
ElseIf Time = "12:00" Or Time < "18:00" Then
Range("b2").Value = "boa tarde"
ElseIf Time = "18:00" Or Time < "06:00" Then
Range("b2").Value = "boa noite"
Else
End If
Case Range("b4").Value = ""
Range("b4").Value = "Esta em branco"

End Select
End Sub

Onde estou errando?

Ou não da pra mesclar esses dois comandos?

Abraços

Olá FahEdu,

Veja:

Sub interage()

teste = UCase(Range("b4").Value)

Select Case teste

Case "OLA"

If Time >= "06:00" And Time < "12:00" Then

Range("b2").Value = "bom dia"

ElseIf Time >= "12:00" Or Time < "18:00" Then

Range("b2").Value = "boa tarde"

ElseIf Time >= "18:00" Or Time < "06:00" Then

Range("b2").Value = "boa noite"

End If

Case ""

Range("b4").Value = "Esta em branco"

End Select

End Sub

Qualquer coisa retorne

Abraços

Lisandro Oliveira.

[fahledu]

Humm, entendi....

valeu

[Lisandro Oliveira]

Humm, entendi....

valeu

Falow.