Alex Pedrozo

todos que contenha o worksheets, range e value

Function validaData() As Boolean Call optimizacaoEntrada 'módulo sub_optimizadoras Dim dia As Integer Dim dd As Integer Dim barra As Integer Select Case Worksheets("planVig").Range("$B$8").Value Case "" Beep MsgBox "DIGITE UMA DATA VÁLIDA!", vbCritical, "Data inválida!" validaData = False Exit Function Case Else If Not IsDate(Worksheets("planVig").Range("$B$8").Value) Then Beep 'MsgBox Len(Range("$B$8")) Range("$B$7").Activate Beep MsgBox "DIGITE UMA DATA VÁLIDA!", vbCritical, "Data inválida!" Call optimizacaoSaida 'sub_optimizadoras validaData = False Exit Function Else barra = InStr(1, Worksheets("planVig").Range("$B$8").Value, "/") dia = Day(Worksheets("planVig").Range("$B$8").Value) dd = Left(Worksheets("planVig").Range("$B$8").Value, barra - 1) If dd <> dia Then Beep Range("$B$8").Activate Beep MsgBox "DIGITE UMA DATA VÁLIDA!", vbCritical, "Data inválida!" Call optimizacaoSaida 'sub_optimizadoras validaData = False Exit Function Else Worksheets("planVig").Range("$A$7").Value = Day(Worksheets("planVig").Range("$B$8").Value) Worksheets("planVig").Range("$B$7").Activate Call optimizacaoSaida 'módulo sub_optimizadoras Exit Function End If End If End Select End Function

Ok, mas quero mesmo o VBA para download direto do site de downloads da Microsoft, no site da empresa só consta o VBA6, mas já vi que tem a versão 7 e me parece que o 8 também, quero saber qual a mais nova que tem e o link oficial para baixar

Obrigado pela dica, já conheço a IDE citada, mas quero mesmo o VBA para ser baixado

Onde baixar o VBA mais atual, ouvir dizer que tem o VBA8, mas só acho o VBA6 para download