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).

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. 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.