PREENCHER TEXTBOX DE ACORDO COM LISTBOX

LENOMOTA 26/02/2012 09:02:00
#395666

Bom dia.
Por conta da incessante busca pelo conhecimento, estou de volta!

Tenho uma combobox que contem a lista de todos os cliente e uma textbox que contem a data de vencimento da mensalidade. Todos os dados estão no excel (2007).
Queria que ao selecionar o cliente na combobox, a textbox fosse carregada automaticamente com o vencimento.

Sheets([Ô]CLIENTES[Ô]).Activate
Range([Ô]B1[Ô]).Select
Do While Preencher = True
If Selection <> ComboCliRece.Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(0, 9).Select
TxtDataVencRece.Value = Selection
End If
Loop


Caros colegas: Podem me ajudar no codigo abaixo? Onde eu errei?