Cómo usar VB para modificar valores en múltiples tablas EXCEL
Asegúrese de que esta carpeta solo contenga estos archivos de Excel y que, si abre un determinado archivo, se puedan ver los datos, es decir, no es necesario hacer clic en otras hojas.
Cree un nuevo Excel y guárdelo en esta carpeta. Simplemente abra el nuevo Excel, presione Alt y F11 al mismo tiempo, haga clic en Insertar, Módulo en el menú y pegue el siguiente código:
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path amp "\"
ChDrive Left(MyDir, 1) 'busca todos los archivos de Excel;
ChDir MyDir
Coincidencia = Dir$("")
Hacer
Si no LCase(Match) = LCase(ThisWorkbook. Nombre) Entonces
Workbooks.Open Match
celdas(3, 5) = "xxxx"
activeworkbook.save
Activeworkbook. Cerrar
Finalizar si
Match = Dir$
Bucle hasta Len(Match) = 0
Application.ScreenUpdating = True p>
End Sub
Imita la parte en negrita y luego presione F5 directamente en esta interfaz para ejecutar la macro y completar la operación.