Compare two cells in one column and then add the value of their rows to the matched row

[Moe99185]

[FONT=&quot]Hello,
[/FONT]
[FONT=&quot] I have this problem, I have a excel work sheet that contains processes. There are some process with the same name inside the same column “F” which want to compare, because some of them are repeated in other rows. However, the other cells contain different data. What I want to do is to compare the cells in this column “F” and then if there is a match, I want to add the data of the matched-row to the first one and delete the second.
[/FONT]
[FONT=&quot]i.e if F = F then H = H + H and I = I +I, and then delete F which I extracted the data from.
[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]Can somebody please help figure this out?
[/FONT]

 

[Peter_SSs]

Welcome to the MrExcel board!

Very hard to tell from that written description. Can you post some simple sample data and the expected results together with any further clarification that you can give?
My signature block below has a link with help on how to post small sets of sample data.

 

[Moe99185]

thank for peter_SSs for your answer.
where i am i could not log in to the provided website. However i have uploaded the excel template to google drive and i hope it would help you understand the problem.
here is the link:

https://drive.google.com/open?id=1BT6RplSveVmaBfKpS7TtfcjNEh3lR4xi

 

[Moe99185]

i have coded this, but it is not optimale,

Private Sub CommandButton1_Click()


Dim lngRow As Long
Dim lngBegin As Long
Dim lngEnd As Long


lngRow = 2
lngBegin = 2
lngEnd = 25


For lngRow = lngBegin To lngEnd


If Cells(lngRow, 6) = Cells(lngRow + 1, 6) Then

Cells(lngRow, 7) = Cells(lngRow, 7) & ", " & Cells(lngRow + 1, 7)
Cells(lngRow, 8) = Cells(lngRow, 8) & ", " & Cells(lngRow + 1, 8)
Cells(lngRow, 9) = Cells(lngRow, 9) & ", " & Cells(lngRow + 1, 9)
Cells(lngRow, 10) = Cells(lngRow, 10) & ", " & Cells(lngRow + 1, 10)
Cells(lngRow, 11) = Cells(lngRow, 11) & ", " & Cells(lngRow + 1, 11)
Cells(lngRow, 12) = Cells(lngRow, 12) & ", " & Cells(lngRow + 1, 12)
Cells(lngRow, 13) = Cells(lngRow, 13) & ", " & Cells(lngRow + 1, 13)
Cells(lngRow, 14) = Cells(lngRow, 14) & ", " & Cells(lngRow + 1, 14)




Cells(lngRow, 6).Interior.ColorIndex = 10 'green
Cells(lngRow, 6).Font.Bold = True




Cells(lngRow + 1, 6) = ""
Cells(lngRow + 1, 7) = ""
Cells(lngRow + 1, 8) = ""
Rows(lngRow + 1).EntireRow.Delete




End If


Next lngRow




End Sub




now i have to fliter the six column and run the code for couple of times to get the results.
can you help me optimize the code

 

[Peter_SSs]

Sorry, I'm afraid that I don't understand.

 

[Moe99185]

Sorry, I'm afraid that I don't understand.

Thank you anyways
I will repost the problem and try to define it properly