abrir userform con item del combobox

[olguita922]

hola amigos espero se encuentren bien, miren tengo una duda con un codigo que tengo, lo que pasa es que tengo un combobox que al escribir el nombre me abre el userform2 el problema que tengo es que si tengo dos nombres iguales pero con apellidos diferentes cuando tecleo por ejemplo carlos me abre automaticamente el userform2, lo que quiero es que hasta que ponga el nombre completo con apellido me abra el userform2, pero no se que estoy haciendo mal.

espero me puedan ayudar

gracias :calm:

Private Sub UserForm_Initialize()

Dim celda

Dim X

For Each celda In Sheets("Clientes").Range("A2:A" & Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row)

X = WorksheetFunction.CountIf(Sheets("Clientes").Range("A2:A" & celda.Row), celda)

If X = True Then

ComboBox1.AddItem celda

End If

Next celda

End Sub

Private Sub ComboBox1_Change()

Dim myrange As Range

Dim X

X = ComboBox1

Set myrange = Sheets("DatosGuardados").Range("A:A")

If WorksheetFunction.CountIfs(myrange, ComboBox1) <> 0 Then

Load UserForm2

UserForm2.Show

ComboBox1.Tag = X

End If

End Sub

[miwebds]

También podrías usar el evento KeyDown del ComboBox1 en lugar del evento Change para que ejecute el código que quieres hasta que presiones alguna tecla, por ejemplo hasta que presiones Enter:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then

'aquí el código que deseas ejecutar

End If

End Sub

[olguita922]

Hola muchas gracias por tu ayuda me funciono perfecto te lo agradezco mucho :victorious: