Sim, está correto.

if date = dt -2 then msgbox "faltam dois dias para expirar" end if

ultimalinha.Offset(1, 0).Value = CDate(TextBox1.Text) ultimalinha.Offset(1, 1).Value = ComboBox1.Text ultimalinha.O...

Sub InserirLinha() Dim Qtde As Long Dim i As Long Dim j As Long Qtde = CLng(InputBox("Quantidade de Linhas", "LINHA A I...

Alguém tem uma ideia, obrigado. Rui, não posso responder, pois estou sem tempo no momento. Com todo o respeito e consideração, eu gostaria de solici...

Tem que ser fora da sub. Insira um módulo e deixe só a declaração da variável Public, sem mais nada. Não declare essa variável dentro de nenhuma Sub. ...

Siga os passos:

Arquivo >> Opções >> Central de Confiabilidade >> Configurações da Central de Confiabilidade >> Configurações de Macro >>...

https://www.google.com.br/search?q=vba+carregar+arquivos+listbox&oq=vba+carregar+arquivos+listbox&aqs=chrome..69...

Private Sub CommandButton1_Click() Dim linha As Long If Me.ListBox1.ListIndex >= 0 Then linha = Me.ListBox1.ListIndex + 2 Plan1...

Seria possível você anexar o arquivo?

Claro, quando você importa os dados é necessário mandar carregar a Listbox. O modo mais fácil de fazer isso é, ao importar os dados, descarregar o for...

...........

Private Sub ComboBox1_Change() 'Call pesquisanome Me.cboParoquiano.Clear Dim linha As Long Dim soma As Double Dim DLin A...

.....