Salve ho un problema che non riesco a risolvere, in quanto sono alle primissime armi nel linguaggio di programmazione VBA per excel.

Ho delle cartelle sotto la dir “C:\TestDir1” che devo spostare come sottocartelle nella dir “C:\TestDir2” abbinandole come riassunto in un foglio excel.
Ho provato ad abbozzare le istruzioni ma sono evidentemente sbagliate perché mi segnala un errore.

Potete correggermi dove sto sbagliando per cortesia?

Allego il file di excel contenente la macro da me creata che riporto di seguito ma che so già che non funziona….

Sub SpostaF()

Dim rng As Range

Dim cel As Range

Dim avv As Range

Set rng = Range(“g2:g4”)

Set avv = Range(“f2:f4”)

For Each cel In rng

Perc = “C:\TestDir1\” & rng.Value

NewPerc = “C:\TestDir2\ “””

NFile = ” & rng.Value “

Name Perc & NFile As NewPerc & NFile

Next cel

End Sub

Grazie sin d’ora