Copiar moverse cambiar de libro buscar moverse y pegar

22/10/2009 - 15:48 por Sergio Eduardo | Informe spam
Que tal la pregunta es la siguien
Libro "1" En la columna A tiene los numeros de l 1 al 15 y en la
columna B las letras de la a hasta la z
Libro "2" solo tiene la columna de A pero los numeros son 1,3,5,8,10
como hacer para que en el libro 1 se posisiocne en el numero 1 se
mueva a la columna b y copie el valor de b y secambie al libro 2 y
busque el valor de la columna b 1 del libro 1 y lo peque en el segundo
libro en la columna b

saludso
 

Leer las respuestas

#1 Héctor Miguel
22/10/2009 - 23:04 | Informe spam
hola, Sergio !

Libro "1" En la columna A tiene los numeros del 1 al 15 y en la columna B las letras de la a hasta la z
Libro "2" solo tiene la columna de A pero los numeros son 1,3,5,8,10
como hacer para que en el libro 1 se posisiocne en el numero 1 se mueva a la columna b
y copie el valor de b y secambie al libro 2 y busque el valor de la columna b 1 del libro 1
y lo peque en el segundo libro en la columna b



estoy suponiendo que tus libros se llama (literalmente) "libro1" y "libro2"
y que ambos tienen los datos cada uno en su propia hoja llamada "hoja1"
y que en cada hoja tienes titulos en la fila1 por lo que los listados inician en la fila2 (???)
(corrige donde y como corresponda)

copia/pega (o escribe) el siguiente procedimiento en un modulo de codigo estandar EN EL LIBRO2
y lo ejecutas estando como activo tambien EL LIBRO2

Sub Actualiza()
Dim Celda As Range
With Workbooks("libro1").Worksheets("hoja1")
For Each Celda In Range([a2], [a65536].End(xlUp))
If Application.CountIf(.Columns("a"), Celda) Then _
Celda.Offset(, 1).Value = .Columns("a").Cells.Find(Celda).Offset(, 1).Value
Next
End With
End Sub

saludos,
hector.

Preguntas similares