jorge rafael_758594

Obrigado!

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

Eu estava fazendo uso da função SE no entanto estava "poluindo" muito a planilha por isto optei por tentar utilizar o vba e msg box. Obrigado pela ajuda. Obrigado Wendell

Boa tarde! Estou montando uma planilha para utilizar na retenção de impostos e estou enfrentando um certa dificuldade, Uma das funções da planilha funciona da seguinte forma ao digitar o CNPJ da empresa o Procv busca os dados da mesma em um tabela e auto preenche as informações; tenho um campo com data que é alimentado utilizando o Procv. O que desejo é que o macro visualize a data que foi preenchida na planilha e caso tenha se passado + 30 dias em relação data atual exiba uma Msgbox informando que a data expirou. È possível fazer isto? alguém pode me dar uma dica de por onde começar?