Jump to content
dicas3d

Evento em vba não arranca.

Recommended Posts

dicas3d

Olá.

Eu escrevi para o evento worksheet_change de uma folha  seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wrk As Workbook
    For Each wrk In Application.Workbooks
        If wrk.Name = "J. Capelle" Then
             ActiveWorkbook.Sheets("Query").Copy after:=ActiveWorkbook.Sheets("Query")
            Exit For
        End If
    Next wrk
End Sub

Mas este evento por mais que o tente despoletar não arranca e eu preciso de saber como o por a arrancar?


Abraços

dicas3d

Share this post


Link to post
Share on other sites
jpaulino

Esse evento dispara quando alteras qualquer valor nas células.

É isso que não funciona?

Estás a definir Application.EnableEvents = False em algum lado, não definindo depois como true?

Share this post


Link to post
Share on other sites
dicas3d

Pois o evento não dispara.

Estás a definir Application.EnableEvents = False em algum lado, não definindo depois como true?

Que eu saiba não.

Sempre que tento um preview do código aparece aquele menu de criar uma macro.


Abraços

dicas3d

Share this post


Link to post
Share on other sites
jpaulino

Sempre que tento um preview do código aparece aquele menu de criar uma macro.

E como tentas? Estás a alterar algum valor e não está a correr? Colocaste algum breakpoint no inicio do evento?

Share this post


Link to post
Share on other sites
dicas3d

Clico no botão do triângulo ou então simplesmente altero algum valor. É neste segundo caso que aparece o tal menu. Até já tentei colocar lá a função msgbox para ter a certeza que era o evento que não arrancava.


Abraços

dicas3d

Share this post


Link to post
Share on other sites
jpaulino

Sim, tenho.

Então há qualquer coisa de estranho ... não podes mostrar o ficheiro? Limpa tudo o que for confidencial.

Share this post


Link to post
Share on other sites
jpaulino

Mas está a funcionar! (pelo menos o evento arranca, não vi o resto)

Estás a alterar alguma coisa na worksheet query? É que só ai é que vai funcionar, porque o código só está definido para essa worksheet.

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.