Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Digitar um caracter...
 
Notifications
Clear all

Digitar um caractere especifico

 
2024 - VBA & Macros
Post Recente por katuna 8 anos atrás
3 Posts
2 Usuários
0 Reactions
919 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 :D

 
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
 katuna
(@katuna)
Posts: 13
Active Member
Topic starter
 

Valeu! Muito legal!É isso mesmo!

 
Postado : 07/04/2016 12:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico