Página 1 de 1

Evento Worksheet_Change

Enviado: 23 Jan 2018 às 09:14
por FRF
Olá a todos!!
Gostaria de saber como eu posso descrever a sintaxe de uma macro com as seguintes condições.

Exemplo:
Se as células da coluna 2 forem alteradas, então a macro deve fazer uma condição no qual só perimitirá digitar numeros nesta coluna e também permitir ao usuário usar ctrl + c e ctrl+v para copiar os numeros para outras células da mesma coluna.

Aguardo anciosamente...
Obrigado.

Re: Evento Worksheet_Change

Enviado: 23 Jan 2018 às 12:37
por osvaldomp
Veja se ajuda.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
 If Not IsNumeric(Target.Value) Then
  Application.EnableEvents = False
   Target.Value = ""
  Application.EnableEvents = True
 End If
End Sub