Alterar valor da Celula com Duplo Clique

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

2 Posts

2 Usuários

0 Reactions

863 Visualizações

RSS

Tauã

(@taua)

Posts: 1

New Member

Topic starter

Bom dia pessoal,

Estou tentando fazer com que a minha celula mude de valor conforme eu dou um duplo clique nela, acontece que tenho uma planilha que preciso colocar STATUS ("ok" e "Não Ok"), e não quero escrever, quero que conforme eu faça o duplo clique, a celula altera entre "OK" e "Não OK", fazer com apenas um valor eu consegui, porem com dois estou tendo problemas,Vocês podem me ajudar?

Obrigado!

Postado : 25/01/2013 8:53 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Sugestão...

Supondo que o status esteja na coluna A, a partir da linha 2, e, caso a célula esteja vazia, seja alterada primeiro para "OK":

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

lin = Target.Row

If Target.Column <> 1 Then
Exit Sub
ElseIf Target.Row < 2 Then
Exit Sub
Else
Application.EnableEvents = False
If Target.Value = "" Then
Target.Value = "OK"
ElseIf Target.Value = "OK" Then
Target.Value = "Não OK"
ElseIf Target.Value = "Não OK" Then
Target.Value = "OK"
End If
End If

Application.EnableEvents = True

Cells(lin + 1, 1).Select

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 31/01/2013 12:24 pm