You are here:---Rispondi a: Visualizzare i dati di una tabella di un'altra cartella di lavoro
Rispondi a: Visualizzare i dati di una tabella di un'altra cartella di lavoro2019-09-22T11:21:05+02:00

Home Forum Domande su Excel VBA e MACRO Visualizzare i dati di una tabella di un'altra cartella di lavoro Rispondi a: Visualizzare i dati di una tabella di un'altra cartella di lavoro

BySalvBySalv
Amministratore del forum
    Post totali: 520

    Ciao ecco la modifica da fare nel modulo della userform

    Private Sub UserForm_Activate()
    Dim r, c, x, n, sh, wb, fg, sPath, Ind, rng, sh1 As Worksheet
    
    If dd = "" Or Cc <> 1 Then
        MsgBox "Attenzione! non si è selezionato un codice della colonna ""A""", vbCritical
        FRM_DisponibilitaMagazzino.Hide
        Exit Sub
    End If
    sPath = ActiveWorkbook.Path & "\"
    wb = "GestioneMagazzino.xlsx"
    fg = "Database"
    ListBox1.Clear
    Application.ScreenUpdating = False
    Ind = sPath & wb
    If Dir(Ind) = "" Then '---------------righe aggiunte
        MsgBox "File o Cartella non trovata", vbCritical, "Controllo dati"
        FRM_DisponibilitaMagazzino.Hide
        Exit Sub
    End If '---------------------------------------
    Workbooks.Open Filename:=Ind
    ActiveWorkbook.Worksheets(fg).Select
    n = 0
    For x = 6 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(x, 4) = dd And Cells(x, 10) <> "PRELEVATO" Then
            With ListBox1
                .AddItem
                .List(n, 0) = Cells(x, 4)
                .List(n, 1) = Cells(x, 5)
                .List(n, 2) = Cells(x, 6)
                .List(n, 3) = Cells(x, 7)
                .List(n, 4) = Cells(x, 8)
                .List(n, 5) = Cells(x, 9)
                .List(n, 6) = Cells(x, 10)
                n = n + 1
            End With
        End If
    Next x
    ActiveWorkbook.Close
    End Sub

    devi aggiungere solo le righe aggiunte.

    Ciao By Sal (8-D

    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