Duas Condições com texto VBA EXCEL

[jorge rafael_758594]

Boa Tarde, 

 

Estou montando uma planilha, entretanto estou enfrentando dificuldade,

 

Tenho o seguinte código par afazer a validação da data:

Dim sDTVenc  As Date    Dim sDataAtual As Date    Dim pergunta As Integer         'Data atual do PC    sDataAtual = Date    'Data do vencimento na Celula G8    sDTVenc = Range("G8").Value  If sDTVenc >= sDataAtual - 30 Then   pergunta = MsgBox("Consulta no CEPOM efetuada a MENOS de 30 dias, deseja prosseguir com o lançamento?", vbYesNo + vbInformation, "Consulta Cepom")   End If   'se não executa ação   If answer = vbNo Then Worksheets("CadFornec").ActivateElse    'do nothingEnd If

Alem da verificação da data (If sDTVenc >= sDataAtual - 30 Then), gostaria tmb a msgbox só aparecesse caso a empresa fosse de fora do Rio de Janeiro.

 

Algo como isto:

 

sEstado = Range ("Y8")

 

if  sEstado Diferente "Rio de Janaeiro"

 

Não sei o que usar para determinar esta diferença., podem me ajudar por favor?

 

Grato desde já.

[Visitante]

'opção sem utilizar a variável sEstado

If sDTVenc >= sDataAtual - 30 And Range("Y8").Value <> "Rio de Janeiro" Then

'opção utilizando a variável sEstado

sEstado = Range("Y8").Value

If sDTVenc >= sDataAtual - 30 And sEstado <> "Rio de Janeiro" Then

[jorge rafael_758594]

Obrigado!