Transfer value from a cell based on criteria

[Podder]

Hi,
i am trying to create a master worksheet that can be updated when another worksheet is uploaded into the same workbook.
what am trying to achieve is that if the text in column A of the uploaded worksheet matches column A of the master worksheet then copy value in column E of that row in the uploaded worksheet and add it to the value of the matching row in column E of the master worksheet using vba.
i am not that familiar with using vba but I am slowly learning
thanks again

 

[Fluff]

Hi & welcome to the board.
How about

Sub MatchAdd()
   Dim Ws1 As Worksheet
   Dim Ws2 As Worksheet
   Dim Cl As Range
   
   Set Ws1 = Sheets("[COLOR=#ff0000]Upload[/COLOR]")
   Set Ws2 = Sheets("[COLOR=#ff0000]Master[/COLOR]")
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Ws1.Range("A2", Ws1.Range("A" & Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then .Add Cl.Value, Cl.Offset(, 4).Value
      Next Cl
      For Each Cl In Ws2.Range("A2", Ws2.Range("A" & Rows.Count).End(xlUp))
         If .exists(Cl.Value) Then Cl.Offset(, 4).Value = Cl.Offset(, 4).Value + .Item(Cl.Value)
      Next Cl
   End With
End Sub

Change sheet names in red to suit

 

[Podder]

Hi & welcome to the board.
How about

Sub MatchAdd()
   Dim Ws1 As Worksheet
   Dim Ws2 As Worksheet
   Dim Cl As Range
   
   Set Ws1 = Sheets("[COLOR=#ff0000]Upload[/COLOR]")
   Set Ws2 = Sheets("[COLOR=#ff0000]Master[/COLOR]")
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Ws1.Range("A2", Ws1.Range("A" & Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then .Add Cl.Value, Cl.Offset(, 4).Value
      Next Cl
      For Each Cl In Ws2.Range("A2", Ws2.Range("A" & Rows.Count).End(xlUp))
         If .exists(Cl.Value) Then Cl.Offset(, 4).Value = Cl.Offset(, 4).Value + .Item(Cl.Value)
      Next Cl
   End With
End Sub

Change sheet names in red to suit

Thanks that is what I was after
Also, thanks for the welcome

 

[Fluff]

Glad to help & thanks for the feedback