Re: Select Method from Combo Box

Have you set the matchentry property to 1 (FmMatchEntryComplete). If the
data is sorted, according to the description, this should do exactly what
you want:

FmMatchEntryComplete
Value: 1
Extended matching. As each character is typed, the control searches for an
entry matching all characters entered (default).

further the help states:
The control initiates the Click event as soon as the user types a sequence
of characters that match exactly one entry in the list. As the user types,
the entry is compared with the current row in the list and with the next row
in the list. When the entry matches only the current row, the match is
unambiguous.



--

Regards,

Tom Ogilvy



"bw" <iamnu@xxxxxxxxxxxx> wrote in message
news:11grsu6pql3etf6@xxxxxxxxxxxxxxxxxxxxx
> Thanks Tom, but the values are already sorted in the work***. When I
type
> in a "T" (for example), it immediately selects the first word in the list
> that begins with a T, and I did not click on it, nor did I press the Enter
> key.
> It will only allow me to type one character.
>
> Bernie
>
> "Tom Ogilvy" <twogilvy@xxxxxxx> wrote in message
> news:OhrlZEZqFHA.208@xxxxxxxxxxxxxxxxxxxxxxx
> > If you sort your values in the combobox, your should get what you want.
> > The easiest is to sort then in the work***, then load them
> >
> >
> >> Option Explicit
> >>
> >> Private Sub CombinedBankNames_Change()
> >> MsgBox CombinedBankNames.Value
> >> boxvalue = CombinedBankNames.Value
> >> Call MoveBankData
> >> End Sub
> >
> > Private Sub UserForm_Initialize()
> > Dim rng as Range, rng1 As Range
> > With Worksheets("BankData")
> > set rng = .Range("AR2:AR999")
> > rng.copy Destination:=.Range("IV2")
> > .Range("IV2:IV999").sort Key1:=.Range("IV2"), _
> > Header:=xlNo
> > set rng1 = .Range(.Range("IV2"),.Range("IV2").end(xldown))
> > Me.CombinedBankNames.List = rng1.Value
> > .Columns(256).Delete
> > End With
> > End Sub
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> >
> > "bw" <iamnu@xxxxxxxxxxxx> wrote in message
> > news:11grqkmkfrrad22@xxxxxxxxxxxxxxxxxxxxx
> >> My Form uses the following code (shown below).
> >> This code has been working well for me, but I'd like to change it to
work
> > in
> >> a different way.
> >>
> >> Currently, I scroll to find the item I want, and then click on it. If
I
> > try
> >> to type the item I want, it selects the first item with the first
> >> matching
> >> character in the list.
> >>
> >> I would like to be able to type the value I want (to autofill with the
> >> values in the list) and/or to scroll to the item I want with the
> >> keyboard,
> >> and then press enter or click to select the item.
> >>
> >> Will someone show me how?
> >> Thanks,
> >> Bernie
> >>
> >> Option Explicit
> >>
> >> Private Sub CombinedBankNames_Change()
> >> MsgBox CombinedBankNames.Value
> >> boxvalue = CombinedBankNames.Value
> >> Call MoveBankData
> >> End Sub
> >>
> >> Private Sub UserForm_Initialize()
> >> Dim myCell As Range
> >> For Each myCell In Worksheets("BankData").Range("AR2:AR999").Cells
> >> If myCell.Value = "" Then
> >> 'do nothing
> >> Else
> >> Me.CombinedBankNames.AddItem myCell.Value
> >> End If
> >> Next myCell
> >> End Sub
> >>
> >>
> >
> >
>
>


.