Excel Forum

	Soluzioni Excel Domande e Risposte
		finestra di dialogo Excel VBA

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

finestra di dialogo Excel VBA

Ultimo Aggiornamento: 08/03/2020 17:36

franco.c69

Post: 8

Registrato il: 18/12/2015

Città: ACQUI TERME

Età: 54

Utente Junior

2010

OFFLINE

08/03/2020 09:33

00#1

buongiorno
ho un problema che non riesco a risolvere, ho crato una macro che dopo svariati passaggi mi da come risultato una sintesi di dati.
la mia domanda è questa:
è possibile cliccando su di un risultato ricevere una finestra tipo MsgBox o qualsiasi altra cosa che mi riassuma i dati che hanno generato il risultato?
ad esempio se clicco su "Rossi" che nel foglio risultato ha 8 codici, far comparire una maschera con le 8 righe dei codici appartenenti al sig Rossi.
nell'esempio che posto naturalmente i dati sono per figura ma è solo per spiegarmi meglio
spero di essere stato chiaro.
grazie

Download (10 KB)

GiuseppeMN

Post: 3.801

Registrato il: 03/04/2013

Utente Master

Excel 2000 - 2013

OFFLINE

08/03/2020 10:15

00#2

Buona giornata, @franco.c69;
come hai intuito serve un Codice VBA.

Che conoscenze hai di programmazione in VBA?

A margine di quanto sopra consentimi un consiglio, peraltro non richiesto:
- Toglierei lo spazio finale sul "Cliente" "Bianchi"

Buon fine settimana.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013

franco.c69

Post: 8

Registrato il: 18/12/2015

Città: ACQUI TERME

Età: 54

Utente Junior

2010

OFFLINE

08/03/2020 11:56

00#3

intanto grazie @GiuseppeMN per l'interessamento tempestivo
per quanto riguarda le conoscenze di VBA sono un principiante appassionato e autodidatta.

PS
grazie per il consiglio

Download (10 KB)

Zer0kelvin

Post: 868

Registrato il: 24/04/2004

Città: TERAMO

Età: 63

Utente Senior

2010

OFFLINE

08/03/2020 12:13

00#4

Inserisci questo nel modulo di codice del foglio "Risultato"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim Info As String
    Dim Cella As Range
    
    If Target.Column = 1 Then
        If Target <> "" And IsNumeric(Target.Offset(, 1)) Then
            With Sheets("Database")
                For Each Cella In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
                    If Cella = Target Then Info = Info & Cella.Offset(, 2) & vbCrLf
                Next Cella
            End With
            MsgBox Info
        End If
    End If
    
End Sub

Al doppio click sul nome verrà visualizzato l'elenco richiesto.

__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)

franco.c69

Post: 9

Registrato il: 18/12/2015

Città: ACQUI TERME

Età: 54

Utente Junior

2010

OFFLINE

08/03/2020 17:36