cerca verticale su userform

Question

Egregio sig Mauro, sono (veccchio) di età ma giovane nel voler fare cose nuove e per questo molte volte entro in crisi su cose semplici.

riferendomi alla risposta che lei ha dato a ferrarista 99 in data 9 aprile 2014 al cerca verticale nella userform, ho modificato

What:=TextBox1.Text, _

in

What:=combobox1.Text, _

e

.combobox2.Text = rng.Offset(0, 1).Value

pensando di risolvere il mio problema, ma funziona  solo con la prima colonna  altrimenti dovrei mettere tante  textbox o combobox. E' possibile vedere  un elenco  di colonne mettendo la combobox  . per intuito penso che sia  una cosa facile ma... sto impazzendo.

grazie

Answer 1

Ciao a tutti, ho fatto un programmino in excel che funziona bene e mi da tutto ciò che voglio e vorrei portare il tutto o quasi su un userform.

cerco di chiarire ciò che vorrei:

ho un foglio dove nella colonna A ci sono tutti gli ingredienti circa 500 ( sono un pizzaiolo con un repertorio di circa un migliaio di pizze)

nelle colenne B...AZZ ci sono i nomi delle pizze

In poche parole ad ogni ingrediente (colonnaA) seguono le colonne B...AZZ con il nome delle pizze che  contegono l'ingrediente

un ingrediente molto comune nelle pizze come la mozzarella, ne ho circa 600.

come faccio a far vedere cerca per ingrediente le pizze che la contengono?

buona notte a tutti

Answer 2

<cut>

Capito poco.

Cosa c'è sul foglio? Una tabella con quante colonne?

Cosa vorresti fare: da una UserForm controllare se un dato è presente in una delle colonne del foglio?

Answer 3

Ciao a tutti, chiedo scusa alla Comunity per la mia mancanza di comportamento, è la prima volta che entro in una  Comunity.

cerco di essere più chiaro e con l'inglese faccio fatica

Chiedo se è possibile risolvere un problema :

il cerca verticale nella userform

Il procedimento del sig Mauro in risposta al sig ferrarista 99 del 9 aprile 2014 è perfetto ma l'esempio è per la visione di due colonne

Private Sub CommandButton1_Click()

    Dim sh As Worksheet

    Dim rng As Range

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        Set rng = _

            .Range("A:A").Find( _

                What:=TextBox1.Text, _

                LookIn:=xlValues, _

                LookAt:=xlWhole, _

                SearchOrder:=xlRows, _

                SearchDirection:=xlNext, _

                MatchCase:=True)

    End With

    If Not rng Is Nothing Then

        With Me

            .TextBox2.Text = rng.Offset(0, 1).Value

            .TextBox3.Text = rng.Offset(0, 2).Value

        End With

    End If

    Set rng = Nothing

    Set sh = Nothing

End Sub

se avessi moltissime colonne  dovrei mettere tantissi Textbox

ho pensato di risolvere il problema

 modificando in questo modo

What:=TextBox1.Text, _

in

What:=combobox1.Text, _

e

.TextBox2.Text = rng.Offset(0, 1).Value

in

.combobox2.Text = rng.Offset(0, 1).Value

il combobox2 vorrei che diventasse un elenco a discesa

é possibile?

spero di essere stato chiaro ( sono un pò emozionato)

un saluto a tutti Giovanni

Answer 4

per intuito penso che sia  una cosa facile ma... sto impazzendo.

Capito poco (niente).

Per favore, NON rivolgerti ad una singola persona, la Community è di tutti. Grazie.

E, per favore, posta il link a quel thread di cui scrivi. Grazie.

E, per finire, anch'io sono (quasi) vecchio. Il fisico lo sa (ahimè se lo sa), ma la mente non vuole proprio saperne... ;-)