Só uma correção: O Senhor é meu pastor e nada ME faltará.

Option Explicit Dim tbcongelada(1000000, 5) As Variant Dim colunaB(1000000) As String Dim tbprincipal(3 To 100000, 7) As Variant Dim linhaspreenchidas...

Não apresenta absolutamente nenhuma marca, seja batida, hairline, riscos ou sinais de qualquer outro tipo, bem como cunho perfeito, sem falhas, mesmo ...

Sub Procurar() Application.EnableEvents = False Dim UltL As Long UltL = Range("N" & Rows.Count)...

vou ver se consigo. No fórum de Numismática você poder encontrar aplicativos, obter informações e fazer perguntas: http://www.forum-numism...

Coloque no início da macro: On Error Resume Next

Quando eu disse anexe o arquivo, quis dizer anexe a planilha já com todos os formulários, controles, tabelas etc.

Anexe o arquivo ou coloque na nuvem (One Drive, Google Drive etc.) e compartilhe o link.

Sem caixa de texto não é possível, como pode ser confirmado no tópico a seguir: http://www.planilhando.com.br/forum/viewtopic...

Digitando. Por exemplo, se a célula estiver em branco e eu digitar qualquer letra, número ou sinal de pontuação, já chama a macro. E se eu apagar qual...

Será necessário importar linha a linha do XML. A cada célula que você for preencher na planilha no momento da importação, terá de concatenar com um ap...

Plan1.Columns(1).NumberFormat = "0000"

ANEXO

Option Explicit Sub procurarDados() Dim i As Integer Dim cont As Integer cont = 0 For i = 1 To 6 If Plan1.Cells(1, i).Value = Plan2....