Run-time Error -2147417848 (80010108)

[PCRISPIM]

Olá!

Pretendo que ao colar um valor na célula A2 a célula A3 assuma a data do sistema, e assim sucessivamente ao longo de todas as duas colunas.

Ao tentar colocar este pequeno código numa folha de Excel:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 2 Then

Cells(Target.Row, 2) = Data

End If
End Sub

Surge-me sempre o erro de: Run-Time Error -2147417848 (80010108)

Uma das soluções indicadas que descobri é o "congelar/fixar" umas linhas, mas não resultou. 😞

Obrigado desde já.

(URL Imagem/erro:https://www.dropbox.com/s/nsklvqw1yuekg19/autodate_error.jpeg?dl=0 )

[Rhysand]

Boa tarde, 

Suponho que Data se refere a data de hoje, se sim, experimente o seguinte: 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 2 Then

     Cells(Target.Row, 2) = DateValue(Now)

End If

End Sub

 

Active também as seguintes referências:

Microsoft Scripting Runtime
Microsoft Visual Basic for Applications Extensibility 5.3

 

🙂

[PCRISPIM]

Em 11/03/2020 às 16:57, Rhysand disse:

Boa tarde, 

Suponho que Data se refere a data de hoje, se sim, experimente o seguinte: 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 2 Then

     Cells(Target.Row, 2) = DateValue(Now)

End If

End Sub

 

Active também as seguintes referências:

Microsoft Scripting Runtime
Microsoft Visual Basic for Applications Extensibility 5.3

 

🙂

Obrigado pela sua ajuda.

Sim o objectivo é com a alteração/preenchimento de uma célula (à esquerda) preencher a célula seguinte (direita), com a data correspondente à alteração da célula à sua esquerda.

Não sei como activar as referências que indica. 😞

Pode-me dar algumas "dicas" de como o fazer?
As "dicas" que encontrei falam sempre em Macros, mas neste caso este código não é uma Macro. (Acho eu!!!!!)

Obrigado.

[Rhysand]

Boa tarde,

Na janela do seu VBA Project onde escreve as macros: (Visual Basic) 

      -> No menu Ferramentas, escolha Referências para exibir a caixa de diálogo Referências.

     (A caixa de diálogo Referências mostra todas as bibliotecas de objetos registradas no sistema operacional. Percorra a lista para encontrar o aplicativo cuja biblioteca de objetos você       deseja referenciar.)

     -> Selecione a referência da biblioteca de objetos na caixa Referências disponíveis, na caixa de diálogo Referências, e escolha OK

Nota: muitas declarações e procedimentos descritos nas macros precisam de terem a respectiva referência activa para funcionarem e evitar erros

🙂