cannot give this query a title

[navinaaaaaa]

i have got 2 sheets in a workbook

sheet 1 has data as below

col1 col2
817315 0.4
897228 0.6
805002 1.2
899892 0.6

897228 0.01
805002 1.8
817315 1.2

sheet 2 has format as below

col1 col2
805002 =1.2+1.8
897228 =0.6+0.01
899890 =0.6
817315 =0.4+1.2

how can i update sheet 2 from sheet1 using macros?

 

[MickG]

Try :-

Sub Tran()
With Sheets("Sheet2")
Set Rng2 = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
.Columns("B").ClearContents
End With

Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
For Each Dn2 In Rng2
    For Each Dn In Rng
        If Dn = Dn2 Then
            Dn2.Offset(, 1) = Dn2.Offset(, 1) + Dn.Offset(, 1)
        End If
    Next Dn
Next Dn2
End Sub

Mick

 

[navinaaaaaa]

But sheet 2 is repeating the rows.
i want only one entry of each type or item.
pm me your email id so that i can send you my file.

 

[navinaaaaaa]

where do you mention sheet1 and sheet1 range in the code?

 

[MickG]

Sheet(1) is the active sheet.!!
I assumed from your thread that You had a list of numbers in sheet (2) column (A) and you wished to assign to there offset Values (in Column "B") any Column(B) value in sheet(1) that had the same Column(A) value as sheet 2) column (A).
Please clarify!!

 

[navinaaaaaa]

thanks man got it.