Jump to content
Sign in to follow this  
jose lopez contreras

¿Cómo copio los datos de una hoja a otra hoja mediante una condición?

Recommended Posts

Hola buenas tardes.

Quisiera y me pudieran orientar como puedo copiar datos de una hoja a otra del mismo libro con una macro tomando como condición códigos iguales que están en ambas hojas en la columna A, es decir que revise ambas hojas y si hay códigos iguales tome el valor de la columna F de la hoja2 y la sume al valor que tiene la columna G de la hoja1.

Gracias por su atención

.

Comparar.xls

Share this post


Link to post
Share on other sites

@jose lopez contreras, usa el siguiente código

Sub comparar_copiar()
Dim uFo&, uFd&
Dim celda As Range
Dim cod As String, cod1 As Range

uFo = Range("A" & Rows.Count).End(xlUp).Row

For Each celda In Range("A2:A" & uFo)
    cod = celda
    With Sheets("Hoja2")
        uFd = .Range("A" & Rows.Count).End(xlUp).Row
        Set cod1 = .Range("A2:A" & uFd).Find(cod, lookat:=xlWhole)
            If Not cod1 Is Nothing Then
                .Cells(cod1.Row, "F") = .Cells(cod1.Row, "F") + celda.Offset(, 6)
            End If
    End With
Next celda

End Sub

 

Share this post


Link to post
Share on other sites
Hace 3 horas, jose lopez contreras dijo:

modifique asi pero no pasa nada.

Te dejo el código
 

Sub comparar_copiar()
Dim uFo&, uFd&
Dim celda As Range
Dim cod As String, cod1 As Range

uFd = Range("A" & Rows.Count).End(xlUp).Row
uFo = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row

With Sheets("Hoja2")
    For Each celda In .Range("A2:A" & uFo)
        cod = celda
        Set cod1 = Sheets("Hoja1").Range("A2:A" & uFd).Find(cod, lookat:=xlWhole)
            If Not cod1 Is Nothing Then
                Sheets("Hoja1").Cells(cod1.Row, "G") = Sheets("Hoja1").Cells(cod1.Row, "G") + celda.Offset(, 5)
            End If
    Next celda
End With

End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png