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

.....

Leia o que escrevi acima. O anexo já foi modificado para não dar esse erro.

Se der o erro permissão negada, é porque você deve parar de carregar a textbox1 da forma antiga e carregá-la da forma que eu postei acima.

Private Sub ComboBox1_Change() 'Call pesquisanome Dim linha As Long Dim soma As Double Dim DLin As Long DLin = Sheets(Me....