Dante Amor

Está perfecto tu código, solamente debes poner entre comillas "A1" LibroOrigen.Sheets(1).Cells.Copy Destination:=LibroDestino.Sheets(4).Range("A1")

Prueba lo siguiente: Sub BuscarDocumento() Dim h1 As Worksheet, h2 As Worksheet Dim i As Long, j As Long Dim b As Range ' Application.ScreenUpdating = False Set h1 = Sheets(2) 'COMPRAS REPORTADAS Set h2 = Sheets(3) 'COMPRAS REGISTRADAS j = 2 For i =...

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.

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 fórmula que puse en esta respuesta: Buscar texto dentro de un rango de celdas

Prueba esta: =BUSCAR(2;1/(HALLAR($P$2:$P$8;C2)*($P$2:$P$8<>""));$P$2:$P$8) --- Ejemplo:

En el archivo txt, el espacio que existe entre el número de la izquierda y el número de la derecha, ¿es una tabulación o son espacios en blanco? ¿El archivo txt va a estar en la misma carpeta donde se encuentra el archivo de excel?