Combine rows, add values in spec. column

[keffokenneth]

Hello,

I have just started with VBA and I need your help. I've attached a picture and I will try to explain my problem. In "lastat"-sheet, I will add stock/pallets that I will move to another warehouse. With "Move"-button i move numbers to "Lagersaldo"-sheet. This warehouse will use "Lagersaldo"-sheet as a inventory and also withdrawing after expedition. But we usually send same batches and i want these similar rows to be combined in . If D, E and L is the same, add these rows F value. Then delete the empty rows. I also want the updated information to be written over the old, not beside. The "I" column has "not full pallets" and I need to leave these as is; therefor I have a rand formula in L. I've tried to find a similar macro to solve this, but I cannot tweak these to my needs. I don't want to use a pivot, just vba. Please tell me if you guys have a solution or maybe need more information.

Best regards.
Joel

 

[Marc L]

Hi,​

​

as you already have answers on another forum so read forums rules about cross posting and do the necessary​

(links of other forums in each forum) …​

 

[kvsrinivasamurthy]

Here is the code

Sub TransferData()
Dim LR As Long, TR As Long, TA As Long, TB As Long, X As Long

Range("N4:V5").Value = Range("D4:L5").Value
LR = Range("D" & Rows.Count).End(xlUp).Row
X = 5
For TR = 6 To LR
    
    For TA = 5 To X
    If Range("D" & TR).Value = Range("N" & TA).Value And Range("E" & TR).Value = Range("O" & TA).Value And Range("L" & TR).Value = Range("V" & TA).Value Then
    Range("P" & TA).Value = Range("P" & TA).Value + Range("F" & TR).Value
    Range("Q" & TA).Value = Range("Q" & TA).Value + Range("G" & TR).Value
    Range("R" & TA).Value = Range("R" & TA).Value + Range("H" & TR).Value
    Range("S" & TA).Value = Range("S" & TA).Value + Range("I" & TR).Value
    Range("T" & TA).Value = Range("T" & TA).Value + Range("J" & TR).Value
    Range("U" & TA).Value = Range("U" & TA).Value + Range("K" & TR).Value
    'X = X + 1
    Enty = "Y"
    Exit For
    Else
    Enty = "N"
    End If
    Next TA
If Enty = "N" Then
X = X + 1
 Range("N" & X & ":V" & X).Value = Range("D" & TR & ":L" & TR).Value
End If
Next TR
End Sub

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Combine and sum rows
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.