Mensaje de alerta

En un UserForm1 tengo un ComboBox que muestra las datos de la hoja Usuarios, con el sgte
Al abrir el Userform1 carga los datos de: Usuarios, Hoja1, y Hoja2

With Worksheets("Usuarios")
If .[b8] <> "" Then ComboBox1.List = _
.Range("b8:b" & .[b65536].End(xlUp).Row).Value codigo al inicializarse el Userform

Que codigo necesitaria para enviar un mensaje, cuando el usuario digita un usuario que no existe..
que diga +/- "Este usuario no existe, desea crearlo?"

hola, !

1) por que "condicionas" a que la celda [B8] no este vacia ?
2) por que incluyes la misma celda [B8] como parte de la lista del combo ?
3) en donde se espera que el usuario intruduzca algun codigo de busqueda ?
4) comenta (si hubiera) algun otro detalle "en el tintero" -???-

saludos,
hector.

__ OP __
> En un UserForm1 tengo un ComboBox que muestra las datos de la hoja Usuarios, con el sgte
> Al abrir el Userform1 carga los datos de: Usuarios, Hoja1, y Hoja2
>
> With Worksheets("Usuarios")
> If .[b8] <> "" Then ComboBox1.List = _
> .Range("b8:b" & .[b65536].End(xlUp).Row).Value codigo al inicializarse el Userform
>
> Que codigo necesitaria para enviar un mensaje, cuando el usuario digita un usuario que no existe..
> que diga +/- "Este usuario no existe, desea crearlo?"

... te cuento que buscando y consultando di con la solucion aproximada: en el evento Cnahge:

Private Sub ComboBox1_Change()
If Len(ComboBox1.Value) > 2 Then
If ComboBox1.MatchFound = False Then
MsgBox "Este usuario no existe"
ComboBox1 = Empty
End If
End If
End Sub

1) por que "condicionas" a que la celda [B8] no este vacia ?
2) por que incluyes la misma celda [B8] como parte de la lista del combo ?
3) en donde se espera que el usuario intruduzca algun codigo de busqueda ?
4) comenta (si hubiera) algun otro detalle "en el tintero" -???-

__ OP __

En un UserForm1 tengo un ComboBox que muestra las datos de la hoja Usuarios, con el sgte
Al abrir el Userform1 carga los datos de: Usuarios, Hoja1, y Hoja2

With Worksheets("Usuarios")
If .[b8] <> "" Then ComboBox1.List = _
.Range("b8:b" & .[b65536].End(xlUp).Row).Value codigo al inicializarse el Userform

Que codigo necesitaria para enviar un mensaje, cuando el usuario digita un usuario que no existe..
que diga +/- "Este usuario no existe, desea crearlo?"

hola, !

> ... te cuento que buscando y consultando di con la solucion aproximada: en el evento Cnahge:
>
> Private Sub ComboBox1_Change()
> If Len(ComboBox1.Value) > 2 Then
> If ComboBox1.MatchFound = False Then
> MsgBox "Este usuario no existe"
> ComboBox1 = Empty
> End If
> End If
> End Sub

(re)pregunta: ya tienes resuelto como permitir al usuario la creacion en caso de que no exista ?
(segun el como lo des "de alta"... podria seguir "ausente" en el combo con el mismo resultado: "... usuario no existe") ?-

saludos,
hector.

>> 1) por que "condicionas" a que la celda [B8] no este vacia ?
>> 2) por que incluyes la misma celda [B8] como parte de la lista del combo ?
>> 3) en donde se espera que el usuario intruduzca algun codigo de busqueda ?
>> 4) comenta (si hubiera) algun otro detalle "en el tintero" -???-
>>
>> __ OP __
>>> En un UserForm1 tengo un ComboBox que muestra las datos de la hoja Usuarios, con el sgte
>>> Al abrir el Userform1 carga los datos de: Usuarios, Hoja1, y Hoja2
>>>
>>> With Worksheets("Usuarios")
>>> If .[b8] <> "" Then ComboBox1.List = _
>>> .Range("b8:b" & .[b65536].End(xlUp).Row).Value codigo al inicializarse el Userform
>>>
>>> Que codigo necesitaria para enviar un mensaje, cuando el usuario digita un usuario que no existe..
>>> que diga +/- "Este usuario no existe, desea crearlo?"