You are here:---Rispondi a: [RISOLTO] Riepilogo DoubleClick su Materiale in ListBox
Rispondi a: [RISOLTO] Riepilogo DoubleClick su Materiale in ListBox2017-12-05T15:25:37+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Riepilogo DoubleClick su Materiale in ListBox Rispondi a: [RISOLTO] Riepilogo DoubleClick su Materiale in ListBox

AvatarREAPAT
Partecipante
    Post totali: 29
        For r = 0 To Me.ListBox1.ListCount - 1
            If Me.ListBox1.Selected(r) = True Then
    
                Lem = Lem & "INFORMAZIONI DI BASE" & vbLf & vbLf
                
                Lem = Lem & "Tipologia: " & sh1.Cells(r + 2, 1) & vbLf
                Lem = Lem & "Modello: " & sh1.Cells(r + 2, 2) & vbLf
                Lem = Lem & "Marca: " & sh1.Cells(r + 2, 3) & vbLf
                Lem = Lem & "Num Seriale: " & sh1.Cells(r + 2, 4) & vbLf
                Lem = Lem & "Num ID: " & sh1.Cells(r + 2, 7) & vbLf & vbLf & vbLf
                
                
                Lem = Lem & "POSIZIONE DEL MATERIALE " & vbLf & vbLf
                
                Lem = Lem & "Posizione: " & sh1.Cells(r + 2, 5) & vbLf
                Lem = Lem & "Locale/Stanza: " & sh1.Cells(r + 2, 6) & vbLf
                Lem = Lem & "Posizione precedente: " & sh1.Cells(r + 2, 28) & vbLf
                Lem = Lem & "Locale/Stanza precedente: " & sh1.Cells(r + 2, 29) & vbLf & vbLf & vbLf
                
                
                Lem = Lem & "ALTRE INFORMAZIONI " & vbLf & vbLf
                
                Lem = Lem & "ODMED: " & sh1.Cells(r + 2, 8) & vbLf
                Lem = Lem & "No ODMED: " & sh1.Cells(r + 2, 9) & vbLf
                Lem = Lem & "Prezzo: " & sh1.Cells(r + 2, 10) & vbLf
                Lem = Lem
    
     & "Ultima Revisione: " & sh1.Cells(r + 2, 13) & vbLf
                Lem = Lem & "Ditta: " & sh1.Cells(r + 2, 19) & vbLf
                Lem = Lem & "Fornitore: " & sh1.Cells(r + 2, 20) & vbLf
                Lem = Lem & "Anno Acquisto: " & sh1.Cells(r + 2, 21) & vbLf & vbLf
                
                MsgBox Lem
            End If
        Next r

    Questo è il mio codice… ora funziona tutto correttamente.

    Ci sono due bug però:

    – 1. Il solito appunto dell’ID ma penso di risolverlo.
    – 2. L’altro è che se seleziono due mi crea dapprima un messaggio con il primo materiali e le info inerenti ad esso poi esce un secondo messaggio con il primo e il secondo. Però il msgbox esce talmente lungo che esce dallo schermo senza la possbilità di vederlo tutta per la sua lunghezza. Non c’è la possibilità di inserire uno scroll nel msgbox ?

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi