[Duvida] - Excel

[nioxys]

Olá

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.

---

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