Colocar Resposta 
 
Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
[Duvida] - Excel
24-10-2013, 10:19 (Esta mensagem foi modificada pela última vez a: 24-10-2013 13:32 por nioxys.)
Mensagem: #4
RE: [Duvida] - Excel
Olá Smile

Criei uma função em VBA que penso fazer o que pretendes.

Neste exemplo fiz para o intervalo C1:C20 e apenas para "Casado" e "Solteiro"

Citar:Public Function MudaValor() As String

For Contador = 1 To 20
Set curcell = Worksheets("Folha1").Cells(Contador, 3)

Select Case curcell

Case "Casado"

curcell.Value = 1

Case "Solteiro"

curcell.Value = 2

End Select

Next Contador

End Function

Chamas a função no procedimento Worksheet_SelectionChange da folha onde tens as listas pendentes,

Citar:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call MudaValor
End Sub

Coloquei as listas da célula C1 a C20, sempre que seleccionas Casado ou Solteiro a célula quando perde o foco altera para 1 ou 2 consoante a tua escolha.

Podes fazer download do exemplo que criei,

Pplware_LPMudaValor_v1

Alguma dúvida é só dizer. Wink


EDIT:
O ficheiro que tinha colocado para download não tinha o código VBA, agora está completo. Smile

“A neutron walks into a bar and asks how much for a drink. The bartender replies, ‘For you, no charge.’” - Sheldon Cooper
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
Colocar Resposta 


Mensagem neste Tópico
[Duvida] - Excel - Gr33n C0d3r - 22-10-2013, 15:57
RE: [Duvida] - Excel - diegosmaia - 22-10-2013, 16:31
RE: [Duvida] - Excel - Gr33n C0d3r - 23-10-2013, 19:51
RE: [Duvida] - Excel - nioxys - 24-10-2013 10:19
RE: [Duvida] - Excel - Gr33n C0d3r - 28-10-2013, 22:18
RE: [Duvida] - Excel - nioxys - 29-10-2013, 08:06
RE: [Duvida] - Excel - paulo g. - 12-11-2013, 12:53
RE: [Duvida] - Excel - nioxys - 13-11-2013, 16:51

Saltar Fórum:


Utilizadores a ver este tópico: 1 Visitante(s)