Macro no Excel de Autocompletar

[yendorxt]

Boa noite Pessoal!

 

Gostaria da ajuda de vocês numa macro no Microsoft Excel 2007, para autocompletar os nomes.

 

É o seguinte: Fiz o download de uma planilha com a macro já funcionando perfeitamente!

 

Porém, ao ativar a Macro ela só completa os nomes que estão na Plan 1, gostaria que ela auto completasse os nomes que estão na Plan2, e os inserisse na Plan1 numa célula específica.

 

'Digite aqui o intervalo a ser autocompletado
Private Const r As String = "A1:A100"
Private sInput As String

'Faz parar a pesquisa dos dados digitados
Dim flParar As Boolean

 

 

Como escrevo o código para que a execução do auto completar se dê na Plan 2, e o dado autocompletado fique na plan1 numa célula específica.

 

Quem puder ajudar, agradeço.
 

segue o anexo da Macro Autocompletar, que estou tentando adaptar.

AutocompletarExcel.rar

[Visitante]

1. copie a figura com o texto "Auto completar" da Plan1 e cole-a na Plan2
obs. Se a planilha ativa for a Plan2 poderá utilizar o atalho de teclado Ctrl+Shift+A para rodar o código em lugar de utilizar o botão. Após colar a figura na Plan2, se quiser, poderá limpar a Plan1, inclusive deletar a figura.

 

2. no código Private Sub txtInput_KeyDown substitua esta linha:

ActiveCell.Value = UserForm1.txtInput.Text

por esta

Sheets("Plan1").[K5] = UserForm1.txtInput.Text

Como você não informou em qual célula da Plan1 quer o resultado e se o resultado será sempre na mesma célula, coloquei a "K5".

[yendorxt]

Obrigado! Osvaldomp pela resposta.

 

Mas, no meu caso específico gostaria que botão de auto completar ficasse na Plan1, sendo ela a planilha ativa,

porém que os dados fossem os da Plan2.

 

Eu tentei inúmeras vezes referenciar a os dados da Plan2 utilizando a Private Const r As String = "Exemplo intervalo da Plan2 A1:A10"

[Visitante]

 

Mas, no meu caso específico gostaria que botão de auto completar ficasse na Plan1, sendo ela a planilha ativa,

porém que os dados fossem os da Plan2.

 

 

 

Instale o código abaixo no lugar do existente de nome igual

'Seleciona a primeira letraPrivate Function GetFirstCloserWord(ByVal Word As String) As String Dim c As Range   With Sheets("Plan2")    For Each c In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))     If LCase(c.Value) Like LCase(Word & "*") Then       GetFirstCloserWord = c.Value       Exit Function     End If    Next c    Set c = Nothing   End WithEnd Function

[yendorxt]

Muito Obrigado! Osvaldomp.