Jump to content
PCRISPIM

Run-time Error -2147417848 (80010108)

Recommended Posts

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 )

Share this post


Link to post
Share on other sites
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

 

:)

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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

:)

 

 

 

 

 

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.