Macro comparar columna de hojas diferentes

Hola,

1. Abre tu editor vba
2. Inserta un módulo
3. Copia este código

Sub aaa()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim r1 As Long, r2 As Long
Dim rng2 As Range
Application.ScreenUpdating = False
Set ws1 = Sheets("Hoja1")
Set ws2 = Sheets("Hoja2")
r1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
r2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
ws2.Cells(1, 1).EntireColumn.Insert
For i = 1 To r2
ws2.Cells(i, 1) = ws2.Cells(i, 2) & ws2.Cells(i, 3)
Next i
Set rng2 = ws2.Range(ws2.Cells(1, 1), ws2.Cells(r2, 1))
For i = 1 To r1
On Error Resume Next
x = Application.Match(ws1.Cells(i, 1) & ws1.Cells(i, 2), rng2, 0)
ws1.Range(ws1.Cells(i, 3), ws1.Cells(i, 6)).Copy
ws2.Cells(x, 8).PasteSpecial xlValues
On Error GoTo 0
Next i
ws2.Columns("A:A").Delete
Application.ScreenUpdating = False
End Sub

On 19 sep, 18:08, xigora9 wrote:

Hola!
 Quiero comparar en dos hojas, las columnas "A", y en el caso de que
 estos valores coincidan entonces que se copien de la HOJA1 (columna
 "A") el valor de la columna "C" en la HOJA 2 pero en la
 columna "G". Y las celdas en donde no coincidan las llene de ceros.

 Un ejemplo sería algo como asi:

 HOJA1 ________HOJA2

 A_B_C____A_B_C_D_E_F_G
 1_C_1  ___2_H
 3_F_ 0___ 4_A
 4_A_1____5_F
 5_F_1____7_E
 6_T_3____8_U
 7_E_9____9_L

 Después de aplicar la macro, que me dé como resultado lo
 siguiente:

 HOJA1 ________HOJA2

 A_B_C____A_B_C_D_E_F_G
 1_C_1  ___2_H _________0.0
 3_F_ 0___ 4_A _________8
 4_A_8____5_F _________1
 5_F_1____7_E _________9
 6_T_3____8_U _________0.0
 7_E_9____9_L _________ 0.0

 Les agradezco la ayuda que me puedan brindar.