Wow, trabajo en el area de sistemas y aveces es molesto estar respaldando archivos del servidor a mi maquina local y despues los archivos actualizados de mi maquina local al servidor, este pequeño archo me ahorrara mucho tiempo!
hola profe,como haria paramover los archivos a una carpeta. tengo mas de 300 archivos y 300 carpetas cada archivo tiene una carpeta con su mismo nombre a la que debe de ir. gracias
Muchas gracias por el video. Ciertamente parece sencilla la macro. Cómo se podrían mover archivos o no dependiendo de una condición? Estoy pensando por ejemplo si en una celda de un informe aparece una palabra concreta entonces mover el archivo a la carpeta que le indiquemos.
Hola Elena, gracias por contestar. Podrías poner un condicional referenciado a una nueva columna, si se cumple la condición que se ejecute y si no que no lo haga. Por ejemplo, columna A ruta actual, columna B nueva ruta, columna C ponemos 1 en los que quieras que se muevan. El código sería algo así: Sub MoverArchivo() Dim NombreActual As String Dim NombreNuevo As String Dim Celda As Range For Each Celda In Selection If Celda.Offset(0, 2).Value = 1 Then NombreActual = Celda.Value NombreNuevo = Celda.Offset(0, 1).Value Name NombreActual As NombreNuevo End If Next Celda End Sub
Para eso el vídeo de copiar archivos 😉 ruclips.net/video/r1o3iymzL9Q/видео.html (el enlace es una lista de reproducción con acciones de Windows que podemos hacer desde Excel como copiar archivos, moverlos, crear carpetas, crear TXT...). Próximamente prepararé el de eliminar archivos y el de descomprimir zip de forma masiva
Excelente el video pero si al moverlos quiero que se ponga en la columna I "MOVIDO" y que las cuando ponga eso no haga nada en esa columna pero que si continúe en las demas, ¿cómo puedo hacerlo? Yo he puesto esto pero me da error: Sub MOVER_FACTURAS() Dim NombreActual As String Dim NombreNuevo As String Dim Celda As Range For Each Celda In Selection Do While Range("I" & i).Value "MOVIDO" NombreActual = Celda.Value NombreNuevo = Celda.Offset(0, 1).Value Name NombreActual As NombreNuevo Range("I" & i).Value = "MOVIDO"
Te recomiendo, encarecidamente, que veas el vídeo de bucles y estructuras de control que hicimos: ruclips.net/video/KLAYln9BXMk/видео.html Básicamente comprueba con una estructura de control, no con un While. Te irá mejor Salu2
![KSI - Dirty [Official Visualiser]](http://i.ytimg.com/vi/VoDh1h1dPUE/mqdefault.jpg)
Si te ha gustado este vídeo puedes ver más en el Curso de Excel avanzado 🔥🔥🔥
cutt.ly/JnHy9yG
Ya ocupaba Power Query, pero me acabas de abrir los ojos! A veces la solución está en frente tuyo y no la vez hasta que te la muestran...EXCELENTE
Genial!!
Me alegro que te haya funcionado 😉
Muy útil!!....genio. Gracias
Gracias 😊
Wow, trabajo en el area de sistemas y aveces es molesto estar respaldando archivos del servidor a mi maquina local y despues los archivos actualizados de mi maquina local al servidor, este pequeño archo me ahorrara mucho tiempo!
Me alegro que te ahorre trabajo.
Gracias por comentarlo! ☺️
Muy bueno. Seguro que me será útil en algún momento
Gracias Carlos!
Un saludo 😉
hola profe,como haria paramover los archivos a una carpeta.
tengo mas de 300 archivos y 300 carpetas cada archivo tiene una carpeta con su mismo nombre a la que debe de ir.
gracias
Saca la ruta de todo desde la pestaña de datos.
Carga datos con opción carpeta. Con todas las URL busca tus coincidencias y compón la ruta de destino
Buen día, tengo la misma situación. ¿logró resolver?
Buen dia, excelnte video, pero cuando ejecuto la macro me mueve todos los archivos, no hay manera de que mueva solo los archivos necesarios?
Eres muy bueno corriendo mucho
GRACIAS me sirvio bastante
Genial!
Gracias por comentarlo Ramiro 😉
Muchas gracias por el video. Ciertamente parece sencilla la macro. Cómo se podrían mover archivos o no dependiendo de una condición? Estoy pensando por ejemplo si en una celda de un informe aparece una palabra concreta entonces mover el archivo a la carpeta que le indiquemos.
Hola Elena, gracias por contestar.
Podrías poner un condicional referenciado a una nueva columna, si se cumple la condición que se ejecute y si no que no lo haga.
Por ejemplo, columna A ruta actual, columna B nueva ruta, columna C ponemos 1 en los que quieras que se muevan. El código sería algo así:
Sub MoverArchivo()
Dim NombreActual As String
Dim NombreNuevo As String
Dim Celda As Range
For Each Celda In Selection
If Celda.Offset(0, 2).Value = 1 Then
NombreActual = Celda.Value
NombreNuevo = Celda.Offset(0, 1).Value
Name NombreActual As NombreNuevo
End If
Next Celda
End Sub
@@AprendizdeExcel Muchas gracias por la respuesta!!
😉
@@AprendizdeExcel buenas tardes, me podría ayudar , quisiera una determinada lista para mover ( solo mover 5 archivo) como sería?
Hola, en ves de moverlos se pueden copiar?
Con FileCopy. Pásate por este vídeo:
ruclips.net/video/r1o3iymzL9Q/видео.html
Gracias, excelente la aplicación!!!!
Gracias!
Excelente. Pero si solo quiero copiarlos y no moverlos?
Para eso el vídeo de copiar archivos 😉
ruclips.net/video/r1o3iymzL9Q/видео.html
(el enlace es una lista de reproducción con acciones de Windows que podemos hacer desde Excel como copiar archivos, moverlos, crear carpetas, crear TXT...). Próximamente prepararé el de eliminar archivos y el de descomprimir zip de forma masiva
Excelente el video pero si al moverlos quiero que se ponga en la columna I "MOVIDO" y que las cuando ponga eso no haga nada en esa columna pero que si continúe en las demas, ¿cómo puedo hacerlo? Yo he puesto esto pero me da error:
Sub MOVER_FACTURAS()
Dim NombreActual As String
Dim NombreNuevo As String
Dim Celda As Range
For Each Celda In Selection
Do While Range("I" & i).Value "MOVIDO"
NombreActual = Celda.Value
NombreNuevo = Celda.Offset(0, 1).Value
Name NombreActual As NombreNuevo
Range("I" & i).Value = "MOVIDO"
Loop
Next Celda
End Sub
Te recomiendo, encarecidamente, que veas el vídeo de bucles y estructuras de control que hicimos:
ruclips.net/video/KLAYln9BXMk/видео.html
Básicamente comprueba con una estructura de control, no con un While.
Te irá mejor
Salu2
Bueno y tampoco me deja mover los archivos
Me pone que hay un error en Name NombreActual As NombreNuevo
@@HugoGarcia-jh3qo me paso que hay un error 53 caray, estoy atorada
@@GuadalupeGonzalez-mf2cx TAMBIEN MISMO ERROR