sebas1029

prozac respondió: El problema con tu código es que utilizas el método Select como comprobación de una condición. Select siempre que se pueda seleccionar la celda, será true y por tanto selecciona la celda y se cumple la condición. Como lo que necesitas no es...

calvuch respondió: Sub mover_archivo() ' mover archivos Dim obj_FSO As Object ChDir "C:\" Set obj_FSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next obj_FSO.MoveFile Source:="C:\loquesea.txt", Destination:="C:\carpeta\" Set obj_FSO = Nothing If...