You are here:---Rispondi a: [RISOLTO] Riepilogo DoubleClick su Materiale in ListBox
Rispondi a: [RISOLTO] Riepilogo DoubleClick su Materiale in ListBox2017-12-05T16:07:29+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

    Risolto :)

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

    Ciao a tuttiiiii :good: :good: :good: :good:

    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