Boa tarde

Você precisa falar em que formulário está o módulo, porque senão ele não sabe pra qual combo ele tem que carregar os dados

Então, no seu módulo, você passa o fomulário tbm assim:

 

como assim nomecombo fica ""????

olha, se nomecombo é uma combobox pra vc ter o nome do controle então faça assim:

msgbox nomecombo.name

 

referencie a propriedade name do controle ok??

 

vamos ver se dá certo

 

qq coisa é só postar

 

t+

num modulo

Option Explicit

Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nsize As Long) As Long

Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Const CB_ERR = -1
Public Const CB_FINDSTRING = &H14C

Sub Procura(cbo As ComboBox, KeyAscii As Integer)

    Dim sBuffer As String
    Dim lRetVal As Long
    sBuffer = Left(cbo.Text, cbo.SelStart) & _
    Chr(KeyAscii)
    lRetVal = SendMessage((cbo.hwnd), CB_FINDSTRING, -1, ByVal sBuffer)
    If lRetVal <> CB_ERR Then
        cbo.ListIndex = lRetVal
        cbo.Text = cbo.List(lRetVal)
        cbo.SelStart = Len(sBuffer)
        cbo.SelLength = Len(cbo.Text)
        KeyAscii = 0
    End If
End Sub

 

no comobox

Private Sub ComboBox_KeyPress(KeyAscii As Integer)
        AutoProcura ComboBox, KeyAscii

End Sub