Ajuda com UserForm

Bom Dia

Gostaria de adaptar este codigo para quando clico na linha G16 Planilha 01(MENU)
mostra os itens que tem na Planilha 02(BD_Produtos) na coluna 2


Option Explicit
Private TextoDigitado As String
Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub

Private Sub TextBox1_Change()
TextoDigitado = TextBox1.Text
Call PreencheLista
End Sub

Private Sub UserForm_Initialize()
Call PreencheLista
End Sub

Private Sub PreencheLista()
Dim ws As Worksheet
Dim i As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets(2)
i = 1
ListBox1.Clear
With ws
While .Cells(i, 2).Value <> Empty
TextoCelula = .Cells(i, 1).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
ListBox1.AddItem .Cells(i, 1)
End If
i = i + 1
Wend
End With
End Sub

Olá, boa tarde.

O MaximoAccess é um fórum destinado ao desenvolvimento de produtos para o MS Access.

Sugiro buscar algum fórum para o MS Excel.

https://gurudoexcel.com/forum/

http://www.planilhando.com.br/forum/viewforum.php?f=14

Sucesso e boa sorte !

ok

obrigado

Boa tarde, e bem-vindo ao fórum
Se resolveu, marque o botão "Resolvido"