Envio um arquivo de exemplo que pode ser estudado e modificado: https://drive.google.com/file/d/1dKa4ZacuNMypWLRJPvEkG1VRSWKLB5W0/view...

https://www.youtube.com/results?search_query=vba+obter+dados+online

Entendi onde está o problema: ActiveCell = CheckBoxfopa Quando você diz que a célua ativa recebe checkbox, o código interpreta da seguinte forma: ...

If Target.Column > 3 Then Exit Sub

Anexo

Quando eu disse chamar um procedimento, não estava me referindo à caixa de texto. O procedimento1 seria, por exemplo, para fazer o que deve ser feito ...

Clique no botão editar e retire do título de seu tópico as palavras Ajuda para. Quando incluir código neste fórum, aperte o botão code.

Primeira coisa: em todos os lugares em que está escrito Range, mude para Sheets("planilhatal").Range Se o erro persistir, retorne com o có...

Quando enviar código neste fórum, aperte o botão Code. Na próxima vez, anexe o arquivo. O código a seguir vai ser executado sempre que selecionar um...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 23 Then Exit Sub if target.row = 44 then If Cells(Target....

Option Explicit Sub lancar() Dim linha As Long linha = 1 While Sheets("Dados").Range("A" & linha).Value <> ...

Option Explicit Sub Macro1() 'DESATIVA A EXIBIÇÃO DOS PROCESSOS NA TELA Application.ScreenUpdating = False 'SELECIONA A LINHA ONDE VAI INSERIR O...

Option Explicit Sub Macro1() Application.ScreenUpdating = False Rows("4:4").Select Selection.Insert Shift:...

Do While ActiveCell.offset(2,0).Value <> ""

Só para deixar claro o que falta para concluir o projeto: Alternativa 1 Algum código que faça o cursor sair da caixa de texto e ir para a célula D2 ...