Página 1 de 1

RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 11:11
por Adrian
Pessoal bom dia!

Rotina - Sempre após digitar qualquer valor na mesma célula H13, após isso sempre clico no botão que criei para pular para para outra planilha. Haveria algum argumento para inserir em minha macro, tipo assim: após digitar e pressionar o botão ENTER para plan 1.

Grato

Adriano

Re: RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 12:24
por Startec
Não tem um evento proprio na planilha, para isso. O que pode fazer é habilitar a tecla [enter], executar sua macro:
O incoveniente é que qq momento que teclar o enter a macro sera executada:
ex.;
Em EstaPasta_de_Trabalho:
Código: Selecionar todos
Private Sub Workbook_Open()
   Application.OnKey "{ENTER}", "MinhaMacro"
End Sub 
E em um modulo:
Código: Selecionar todos
Sub MinhaMacro()
MsgBox "Minha macro"
End Sub

Re: RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 12:44
por Henrique
Tem sim Startec.

No caso o Adrian pode usar:
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$H$13" Then Sheets("Plan1").Select
End Sub


Re: RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 13:09
por Startec
Acho que eu nao entendi direito o que ele está querendo...
Tem sim Startec.
No caso o Adrian pode usar:
CÓDIGO: SELECIONAR TODOS
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$13" Then Sheets("Plan1").Select
End Sub
Mas pela sua rotina, mesmo que ele nao tecle [enter], a plan1 será selecionada.

RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 13:25
por Henrique
Startec,

Pelo que eu entendi, o Adrian não quer ficar clicando no botão que ele criou toda vez que termina de alterar a célula H13 da planilha. Ele quer que ao mudar o valor da célula H13, vá automaticamente para planilha Plan1.

Re: RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 13:47
por alexandrevba
Boa tarde!!

Como dito pelo Herique, os efeitos de alteração nas células devem se usar o evento
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
Obs: Cuidado ao usar formulas

Att

Re: RODAR MACRO COM AUXÍLIO ENTER

Enviado: 09 Set 2015 às 16:42
por Adrian
É isso mesmo Henrique, deu certo.

Obrigado