Digitar um caractere especifico

2024 - VBA & Macros

Post Recente por katuna 9 anos atrás

3 Posts

2 Usuários

0 Reactions

916 Visualizações

RSS

katuna

(@katuna)

Posts: 13

Active Member

Topic starter

Galera, boa tarde. Tenho o seguinte código em uma planilha:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Rows.Count = 1 And .Columns.Count = 1 Then
Select Case .Column
Case 1
.Worksheet.Cells(.Row, 2).Value = Time
Case 3
.Worksheet.Cells(.Row, 4).Value = Time

End Select
End If
End With
End Sub

Ta tudo blz, mas eu quero digitar uma letra especifica na coluna A e na C e que somente com essa letra, as colunas B e D insiram a hora. É possivel? Sei nada de VB, to aprendendo agora. Valeu

Postado : 07/04/2016 11:51 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Pode ser assim?


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 And Target.Column <> 3 Then Exit Sub
'O X esta como MAIUSCULO se vc digitar minusculo da erro,
' altere conforme sua necessidade
If Range("A" & Target.Row).Value = "X" Then
   Range("B" & Target.Row).Value = Time
   
End If

If Range("C" & Target.Row).Value = "X" Then
   Range("D" & Target.Row).Value = Time
   
End If

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 07/04/2016 12:03 pm