Private Sub ComboBox3_Change() if combobox3.value = "X" then For k = 1 To 1000 Equipamento = Plan2.Cells(k, 2).Value...

Anexo

Supondo que você irá colocar o código em um botão e que estará com a linha desejada selecionada antes de clicar no botão, basta trocar Target.Ro...

É necessário formatar a célula com 8 zeros, conforme imagem. O código está no arquivo anexo.

ANEXO

algo que iria mim ajudar muito Com todo respeito: Algo que iria me ajudar muito.

If CheckBox1.Value = True Then Sheets("Paroquianos").Cells(linha, 7).Value = "SIM" Else ...

Não precisa de botão. Basta escrever "VAZIO" e apertar Enter. Já testei o anexo e funcionou.

Rui, por que não anexou o arquivo? É necessário explicar o que deseja fazer, pois esse código que postou está incompreensível. If CheckBox1.Valu...

Private Sub UserForm_Initialize() Dim INTERVALO As Range Set INTERVALO = ThisWorkbook.Sheets("Plan2").Range(&qu...

Dividir em módulos tem o objetivo organizar código para facilitar a consulta posterior. Não influencia no tempo de execução. Quando o código fica muit...

Anexo abaixo.

If Not IsFileOpen(FileToOpen) Then Set wb2 = Workbooks.Open(Filename:=FileToOpen) Else Workbooks(Filename:=FileToOpen).Close Sa...

https://www.google.com.br/search?q=vba+proteger+planilha+contra+copias&oq=vba+proteger+planilha+contra+copias&aqs=chrome&#...

https://www.google.com.br/search?q=vba+abrir+xml+como+somente+leitura&oq=vba+abrir+xml+como+somente+leitura&aqs=chrome...