Anónimo
Pegar celdas a otro libro a raíz de un criterio
Esta es similar a mi pregunta anterior! Espero me puedan ayudar nuevamente.
Tengo info en el rango de celdas A1:E1 de la hoja "xx" del "libro1". La celda A1 de este rango de celdas contiene un código(criterio).
Necesito una macro que busque el criterio de la celda A1 en la primera columna de una base de datos que está en la hoja"yy" del "libro2".
Y que luego copie el rango A1:E1 y lo pegue en la fila donde encontró el criterio, reemplazando la info existente.
Saludos y Gracias
Tengo info en el rango de celdas A1:E1 de la hoja "xx" del "libro1". La celda A1 de este rango de celdas contiene un código(criterio).
Necesito una macro que busque el criterio de la celda A1 en la primera columna de una base de datos que está en la hoja"yy" del "libro2".
Y que luego copie el rango A1:E1 y lo pegue en la fila donde encontró el criterio, reemplazando la info existente.
Saludos y Gracias
1 Respuesta
Respuesta de v_344
1
Que onda !...
Bueno ya sabiendo de que se trata el asunto te mando el código de como seria:
Dim celda As Range
Application.ScreenUpdating = False
For Each celda In Workbooks("Libro2").Sheets("yy").Range("a1", Range("a1").End(xlDown))
If celda = Workbooks("Libro1").Sheets("xx").Range("a1") Then
Workbooks("Libro1").Sheets("xx").Range("a1:e1").Copy
celda.PasteSpecial
End If
Next
Application.ScreenUpdating = True
me dices que onda, va?...salu2x!!!
Bueno ya sabiendo de que se trata el asunto te mando el código de como seria:
Dim celda As Range
Application.ScreenUpdating = False
For Each celda In Workbooks("Libro2").Sheets("yy").Range("a1", Range("a1").End(xlDown))
If celda = Workbooks("Libro1").Sheets("xx").Range("a1") Then
Workbooks("Libro1").Sheets("xx").Range("a1:e1").Copy
celda.PasteSpecial
End If
Next
Application.ScreenUpdating = True
me dices que onda, va?...salu2x!!!
Excelente! Nuevamente, te pasaste !
Sabía que era similar al anterior pero así y todo, al intentar hacerlo yo mismo, no me resultó.
Muchas gracias.
Sabía que era similar al anterior pero así y todo, al intentar hacerlo yo mismo, no me resultó.
Muchas gracias.