Re: Select Method from Combo Box

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

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 worksheet. 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 worksheet, 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
> >>
> >>
> >
> >
>
>


.

Relevant Pages

  • Re: Select Method from Combo Box
    ... > Have you set the matchentry property to 1 (FmMatchEntryComplete). ... > The control initiates the Click event as soon as the user types a sequence ... > of characters that match exactly one entry in the list. ... >> It will only allow me to type one character. ...
    (microsoft.public.excel.programming)
  • Re: Stripping out extra "straight quote" character
    ... sub convert_it ... with selection ... > first space of an entry. ... > The search function does not find this hidden character, ...
    (microsoft.public.excel.misc)
  • RXParse module v.91 (by robic0)
    ... # Unicode character reference ... sub original_content ... then call content handler with $content ...
    (comp.lang.perl.misc)
  • Re: Field validation does not kick in
    ... I only just require to check and increment the if there is another ... I generally use the forms BeforeUpdate event to trap for data entry errors. ... This event fires before the data is actually written, and has a Cancel ... Private Sub Form_BeforeUpdate ...
    (microsoft.public.access.formscoding)
  • Re: Using Validation to force entry into cells?
    ... Uh oh...I run into a problem now with every copy of this worksheet. ... Private Sub Worksheet_Change ... > Option Explicit ... >> entry into this column in our form. ...
    (microsoft.public.excel.misc)