Este fórum está sendo desativado

[PedroBB]

Pessoal,
Preciso abrir o Form frmBusca já executando a Macro Btn_Adicionar_Click().
Fiz isso:

Private Sub Worksheet_Change(ByVal target As Range)
Dim result As VbMsgBoxResult
Result = MsgBox("Ativo " & UCase(ActiveCell.Value) & " Não Localizado no Cadastro!" & Chr(13) & "Você Deseja Incluir o Ativo?", vbYesNo + vbQuestion, "Ativo Não Cadastrado")
If Result = vbYes Then
Planilha11.Activate
frmBusca.Show
Call frmBusca.btn_Adicionar_Click
End sub

Abre o form mas não executa a macro.
Alguém sabe fazer?
Grato,
Pedro

[fcarlosc2018]

Vai no Form e:

"Private Sub frmBusca_Initialize()

'Coloque aqui o seu código

End Sub

Acho que resolve

[PedroBB]

Grato pela colaboração,
Não pode ser como você sugeriu.
Ocorre que preciso abrir o 'frmBusca' e executar a macro 'Btn_Adicionar_click' dentro da Worksheet_Change de outra Planilha.

[fcarlosc2018]

Poderia postar seu arquivo com alguns dados como exemplo...!?

[PedroBB]

Segue anexo.

[fcarlosc2018]

Seria dessa forma !?

[PedroBB]

Não.
Eu tenho outro botão pra acessar o frmBusca, sem executar a macro btn_Adicionar_click.
O código ficar na função Sub ValidaDados(Endereço).

[Reinaldo]

uma possibilidade

[PedroBB]

Reinaldo,
Grato pela atenção!
Seria possível evitar a 'Msgbox sAdicionar' ao abrir o form Busca?

[Reinaldo]

Exclua a linha no initialize do form FrmBusca

Private Sub UserForm_Initialize()
'MsgBox sAdicionar -->comente ou exclua essa linha
Planilha11.Select

[PedroBB]

Show de bola!!!!!