Macro para copiar archivos según un listado en excel
Me puede ayudar con esta macro no funciona y no se como arreglarla
Sub MoverArchivos()
'
'Antes de correr la macro, elije las celdas que tengan la ruta
'del nombre actual, es decir a partir de A2
Dim NombreNuevo As String
Dim NombreAnterior As String
'
'Si no encuentra algún archivo, continuará con el siguiente
'
On Error Resume Next
For Each celda In Selection
NombreAnterior = celda.Value
'El dato del nombre nuevo y la carpeta nueva será la columna G, especificado con 6
NombreNuevo = celda.Offset(0, 6).Value
Name NombreAnterior As NombreNuevo
Next celda
'
On Error GoTo 0
'
End Sub
1 respuesta
En esta línea:
NombreNuevo = celda.Offset(0, 6).Value
Perdón
Esta es la línea
For Each celda In Selection
No hacía falta que valores antes de que te envíe respuesta... hoy es domingo ! ! ! !
¿Necesitas o no mayores aclaraciones? ¿Ya lo resolviste? Te recuerdo que debes evaluar si 'celda' tiene datos y es una ruta válida.
Sdos!
Además si tu módulo tiene 'obligatoriedad de declarar las variables' falta que declares:
Dim celda
Si esto no resuelve tu consulta debes indicar el mensaje de error no solo la línea.
Y si esto resuelve tu problema agradeceré mejores la valoración dada por anticipado ;(
Sdos!
