Dante Amor

Prueba lo siguiente: Sub Compra() Dim valor As String Dim f As Range valor = "Libro AAAA" Application.ScreenUpdating = False With Sheets("Compras") .Visible = xlSheetVisible .Select .Unprotect Password:="xxxxxxxxx" With .Range("$B$7:$I$100") Set f =...

Puedes poner varios ejemplos de los nombres de los archivos

Puedes explicarlo con más detalles.

Prueba la macro "test" Pon todo el siguiente código en el mismo módulo: Sub test() Dim ruta As String, arch As String ruta = "C:\trabajo\" arch = "reporte.xlsx" ' 'Verifica si el archivo está abierto If IsFileOpen(ruta & arch) Then MsgBox "Está...

Prueba la siguiente: Sub copiar() '//Por Dante Amor Dim h1 As Worksheet, h2 As Worksheet Dim i As Long, j As Long ' Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1...

¿Cuál es el objetivo final de la búsqueda? Si encuentra el valor, ¿qué quieres de resultado? ¿O en dónde quiere poner el resultado? Puede explicar el objetivo final de buscar.

Revisa las respuestas listadas en este enlace, para ver si alguna macro te ayuda con lo que necesitas: Macro excel para importar archivos xml

Para ejecutar una macro varias veces Supongo que ya tienes una macro. Prueba con lo siguiente: Sub repetirmacro() Dim año As Variant Dim i As Long ' año = InputBox("Captura el año") If año = "" Then Exit Sub ' Range("A3").Value = año 'cambia A3 por...

Prueba la siguiente macro: Sub Macro1() Dim sh As Worksheet Dim oj As ListObject Dim rng As String ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set sh = Sheets("MasterDATA") Set oj = sh.ListObjects("TablaUsuarios") rng =...

Prueba la fórmula que puse en esta respuesta: Buscar texto dentro de un rango de celdas