hugoesb

feross,

 

baixa o arquivo que joseA disponibilizou pelo link http://www.sendspace.com/file/vm34yk. Dá uma olhada no código que tem como alterar a coluna.

 

Na sub PreencheLista, no .Cell(linha,coluna) coloca o número da coluna que você quer (1 = A, 2 = B, 3 = C, etc).

Liége,

Olha não conheço uma maneira de auto completar diretamente em uma célula. Mas segue uma orientação (arquivo exemplo) que você pode adaptar ao seu arquivo.

http://www.sendspace.com/file/vm34yk

Teste e informe.

 

Procurando na internet, solucionei meu problema vendo esta página.

 

Queria parabenizar o altor da planilha que com uma solução simples resolveu o meu problema (e de muito, acredito).

 

Fiz uma adaptação no código para o texto digitado ser procurado em qualquer parte do texto da célula. Troquei:

If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then

por:

If InStr(1, UCase(TextoCelula), UCase(TextoDigitado), vbTextCompare) Then

Estou usando o Excel 2007.

Na verdade seria em qualquer linha da coluna C (3), bastaria alterar o número da coluna desejada.

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

If Target.Column = 3 Then UserForm1.Show

End Sub

 

Alterei esta parte para:

If Target.Column = 3 And (Target.Row >= 2 And Target.Row <= 40) Then UserForm1.Show

Assim eu digo que funcione para duplo click na coluna 3 entre as linhas 2 e 40.