You are here:---Rispondi a: [RISOLTO] Ricerca in più sottocartelle
Rispondi a: [RISOLTO] Ricerca in più sottocartelle2018-05-08T09:05:42+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Ricerca in più sottocartelle Rispondi a: [RISOLTO] Ricerca in più sottocartelle

BySalvBySalv
Amministratore del forum
    Post totali: 512

    Ciao torniamo al file che ti ho proposto, e lo aggiorniamo per il trasferimento dei file, questa la macro per lo spostamento dei file

    Sub Sposta() 'spostafile
    Dim Odd, Nww, r, x, d, ind, ind1, est, risp
    
    ind1 = Cells(2, 1)
    If Cells(4, 1) = "" Then Exit Sub Else r = Cells(Rows.Count, 2).End(xlUp).Row
    For x = 4 To r
    ind = Cells(x, 1)
    d = Cells(x, 2)
    Odd = ind & d
    Nww = ind1 & d
    Name Odd As Nww
    1 Next x
    MsgBox "Spostamento Effettuato", vbInformation, "Spostamento file"
    End Sub

    Come funziona, non mettere la scrittura del Collegamenti e link alle celle quindi “NO”.

    fai la ricerca, scegliendo la cartella con il doppio click in “A2”, vede anche nelle sottocartelle tutte, partendo dalla cartella che hai scelto, a questo punto hai il tuo elenco dei file fai una scelta elimina dall’elenco quelli che non vuoi spostare, tutta la riga.

    alla fine avrai solo l’elenco dei file da spostare, a questo punto ancora doppio click in “A2” e scegli la cartella dove vuoi spostare i file, una volta scelta la cartella premi sul pulsante “Sposta” ed i file saranno spostati tutti nella cartella scelta, tutto qui.

    Ho aggiornato il file spostando anche i pulsanti.

    Ciao By Sal  :bye:

    il link al file

    https://mega.nz/#!tUEhzIyK!sWAlVAnsWulZ0Fubh05O7ZYFa3-Kv9fLYVBj-wTbJdA

     

     

     

    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