Lauro, tudo bem se você usar um vba para fazer a busca na coluna do CEP e trazer os dados das colunas ao lado para trazer as informações do endereço, ...

Galera, acresentei estas linhas e resolvi... If arquivos.Range("A" & j) = listaArquivos(i, 0) Then arquivos.Range("A&...

Messias, obrigado por responder Não entendi o que foi feito nesta planilha, mas acredito que não resolve o meu problema. Obrigado.

Sub Conexao() Dim cnx As ADODB.Connection, rs As ADODB.Recordset, cmd As ADODB.Command Dim sql As String Application.ScreenUpdating = False ...

não sei se eu entendi a sua pergunta, mas se quer trazer apenas o último registro de uma tabela, você deve usar um select top 1, e colocar uma cláusul...

Você tem que clicar no módulo com o nome da planilha, e selecionar nos combos superiores, as opções Worksheet, e o evento Calculate... Ex: Private S...

Sub checar() If Range("B1") <> 1 Then msgBox "é diferente de 1" End If End Sub

Bernardo muito obrigado, adaptei o seu código e fiz algumas alterações e funcionou... valeu

Belan, não entendi direito o que a planilha vai fazer, mas basicamente você vai ter que criar objetos do tipo Workbook (arquivo excel completo), Works...

Dim wb As Workbook Set wb = Application.Workbooks.Open(pastaondeaplanilhaestasalvanomedoarquivo.extensão) Ex: C:pasta de trabalho.xlsx

Ao invés de Beteween "1 and 2", tente Between "1" And "2" Eu já tive esse problema conectando um excel com uma base Acc...

nlsouza, se eu não me engano, as consultas access não funcionam com aspas simples ('), mas sim com aspas duplas "" tente substiuí-las na cl...