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

End Sub

Imita la parte en negrita y luego presione F5 directamente en esta interfaz para ejecutar la macro y completar la operación.