Dante Amor

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

... Como hago para en ese mismo cuadro de texto poner un teléfono o un apellido y que lo busque por toda la tabla... Prueba lo siguiente: Private Sub TextBox1_Change() Dim valorbuscado As String Dim f As Range ' Application.ScreenUpdating = False '...

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 =...

Sería mejor si lo explicas con ejemplos de lo que tienes y de lo que esperas de resultado

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...

[Gra cias por los buenos deseos, de igual manera te deseo un año con mucha salud y de éxitos. Te propongo una macro para buscar el nombre. --- Supongo que los datos de nombre y número están en las columnas A y B. Puedes poner el código en un tercer...