vai ter de setar cada range e usar o método Union Ex. r1 as Range r2 as Range ..... set r1 = Worksheets("Sheet1").Range("N1�...

verifique se essa nomencaltura condiz com sua pasta de trabalho: Planilha1.Cells.. ou se é Plan1, ou Sheet1..

Nao veio anexo

Segue: Sub Procv() Dim ul As Long ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To ul Plan1.Range(...

MsgBox "Olá, seja bem vindo Sr. " & [a5].Value , vbInformation, "Mensagem"

Tente inserir isso no inicio do código: On Error Resume Next Assim: Sub Pendencia() On Error Resume Next ThisWorkbook.Application.ScreenUpd...

A ação de fechar é essa: ThisWorkbook.Close Deve haver algum outro código abrindo ela novamente.

Tente: ThisWorkbook.Save ThisWorkbook.Close

Posta pelo menos o código do Before_Close

Tente como nesse exemplo: Option Compare Text Sub Localizar() If [a1].Value Like "*" & "Santos" & "*&q...

Provavelmente, nesse botão personalizado, existe algum comando que abre a planilha "Controle de Clientes - Escritório.xlsm". Poderia dispo...

Montei uma formatação condicional simples mas o alinhamento continua normal. Poderia postar sua planilha?

Basta retornar ao valor padrão fazendo assim: Application.Caption = "" Tipo: Private Sub Workbook_Deactivate() Application.Displa...

Não sei dizer exatamente o porquê mas, coloque uma aspa na frente do número e o somase irá funcionar. Ex. '168057550004464570 Segue exemplo:

Use esse exemplo: Insira esse código na pasta 1 Private Sub Workbook_Deactivate() Application.DisplayFormulaBar = True End Sub E esse: Private...