casella di riepilogo a discesa con + macro

[pippo1300]

Salve a tutti uso excel 2007 da poco, potrei sapere se è possibile gestire nel mio caso 3 macro differenti da una casella combinata a discesa ?
per intenderci ho un' intervallo di input f1;f3 collegamento cella d4
quindi ho: preventivi (in f1)conferme d'ordini (in f2) contratti in (f3) in d4 ho una sequenza di numeri 1,2,3 per ogni voce

come posso assegnare una macro differente per voce ?
grazie 1000 a chi mi aiuta.

[maxmula]

Eccome!

Supponi di avere nella tua combobox (che chiamiamo LISTA_FUNZIONI) le seguenti voci:

somma
differenza
area
perimetro

nell'evento LISTA_FUNZIONI_Change usi questo codice:

Codice: Seleziona tutto

Private Sub lista_funzioni_Change()
    Select Case UCase(lista_funzioni.Text)
    Case "SOMMA"
        Call SOMMA(VALORE1, VALORE2)
   
    Case "DIFFERENZA"
        Call DIFFERENZA(VALORE1, VALORE2)
       
    Case "AREA"
        Call AREA(VALORE1, VALORE2)
   
    Case "PERIMETRO"
        Call ERIMETRO(VALORE1, VALORE2)
       
    Case "ELSE"
        A = MsgBox("FUNZIONE NON VALIDA")
   
End Sub



Dove le funzioni AREA(), PERIMETRO(), ecc. sono le varie macro da richiamare e VALORE1, VALORE2 sono i parmetri da passare.


Ciao,
MAx

[maxmula]

Ops... mancava un pezzo!

Nel tuo caso, le voci saranno:

Preventivi
Conferme
Contratti

Assolutamente analoga la gestione della Select Case, dovrai poi leggere i valori di D4 dalle funzioni richiamate, in modo da elaborarli correttamente.

Spero che la spiegazione sia chiara!

Ciao,
MAX

[ricky53]

Ciao,

se la tua esigenza è avere una cella con un elenco ottenuto tramite convalida allora opera in questo modo:

1. nel foglio ove hai la cella con la convalida inserisci queste istruzioni:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
    Dato_Scelto = [D4]
    Select Case Dato_Scelto
    Case "Preventivi"
        Call Macro_Preventivi
    Case "Conferme d'ordini"
        Call Macro_Conferme_Ordini
    Case "Contratti"
        Call Macro_Contratti
    Case Else
        MsgBox ("Selezionare un dato")
    End Select
End Sub


2. in un modulo del VBAProject inserisci queste altre istruzioni:

Codice: Seleziona tutto

Public Dato_Scelto As String

Sub Macro_Preventivi()
    MsgBox "1. Dato selazionato:   '" & Dato_Scelto & "'"
End Sub

Sub Macro_Conferme_Ordini()
    MsgBox "2. Dato selazionato:   '" & Dato_Scelto & "'"
End Sub

Sub Macro_Contratti()
    MsgBox "3. Dato selazionato:   '" & Dato_Scelto & "'"
End Sub

a questo punto selezionando, nella cella "D4", un valore riceverai il messaggio che ho inserito io.
Tu dovrai sostituire, nelle varie macro, i messaggi con le tue istruzioni.

Ciao da Ricky53

[pippo1300]

grazie tante funziona

[ricky53]

Ciao,

quale soluzione hai adottato?

[pippo1300]

Private Sub Worksheet_Change(ByVal Target As Range)
Dato_Scelto = [D4]
Select Case Dato_Scelto
Case "1"
Call Macro_Preventivi
Case "2"
Call Macro_Conferme_Ordini
Case "3"
Call Macro_Contratti
Case Else
MsgBox ("Selezionare un dato")
End Select
End Sub

ci sentiamo domani ho altri quesiti
per questo foglio di calcolo
ancora grazie sieti mitici

[ricky53]

Ciao,
CONSIGLIO: analizza bene quello che ti occorre e poi scrivi con attenzione quello che vuoi fare e ... ne usciremo in poco tempo ... sempre se quello che chiederai ... sia possibile farlo ...

Ciao da Ricky53

[maxmula]

...E visto che siamo in tema di raccomandazioni... Ricorda di usare le funzioni (List) e (Code) per impaginare i post sul forum.

Ti aspettiamo!
MAx