reemplazar columnas desde hojas distintas

26/07/2007 - 04:56 por jsi | Informe spam
Tengo dos hojas Distintas :
Hoja1
codigo,nombres,direccion
Hoja2
codigo, nombres, direccion,telf,nucodi
En la Hoja1 debo agregar la columna nucodi; siempre y cuando coincidan la
columna codigo de las Hojas1 y Hoja2
 

Leer las respuestas

#1 Héctor Miguel
26/07/2007 - 08:09 | Informe spam
hola, (...) ?

Tengo dos hojas Distintas :
Hoja1: codigo,nombres,direccion
Hoja2: codigo, nombres, direccion,telf,nucodi
En la Hoja1 debo agregar la columna nucodi; siempre y cuando coincidan la columna codigo de las Hojas1 y Hoja2



[p.e.]

Sub NuCodi_si_Codigo()
Dim Celda As Range
With Worksheets("hoja2")
For Each Celda In Worksheets("hoja1") _
.Range(Range("a2"), Range("a65536").End(xlUp))
If Application.CountIf(.Columns("a"), Celda) Then _
Celda.Offset(, 3) = .Columns("a").Find(Celda).Offset(, 4)
Next
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares