VBA Loop through rows with multiple ranges and conditions

[Lesara]

****** id="cke_pastebin" style="position: absolute; top: 0px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">

favorite
​

Disclaimer: New to VBA
I have an excel sheet where I would like to build a vba that does the following things.

1. My requirement is to fill a value in row Z based on a formula determined by the text in row M
2. The formula deals with summing values from row A, B, C in different combinations (determined by text in row M)
3. Loop this for each row starting from row 5 to row 10000

Eg: If cell M5 = Apple, then Z5 = A5+B5 ; If cell M9 = Samsung, then Z9 = C9+A9
I know a nested if formula does it easily but there are just too many conditions and I'm looking for an automatic and cleaner route.
Thanks!


</body>Disclaimer: New to VBA
I have an excel sheet where I would like to build a vba that does the following things.

1. My requirement is to fill a value in row Z based on a formula determined by the text in row M
2. The formula deals with summing values from row A, B, C in different combinations (determined by text in row M)
3. Loop this for each row starting from row 5 to row 10000

Eg: If cell M5 = Apple, then Z5 = A5+B5 ; If cell M9 = Samsung, then Z9 = C9+A9
I know a nested if formula does it easily but there are just too many conditions and I'm looking for an automatic and cleaner route.
Thanks!

 

[alansidman]

Option Explicit


Sub Lesara()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim i As Long
    For i = 5 To 10000
        If Range("M" & i) = "Apple" Then
            Range("Z" & i) = Range("A" & i) + Range("B" & i)
        ElseIf Range("M" & i) = "Samsung" Then
            Range("Z" & i) = Range("A" & i) + Range("C" & i)
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "Complete"


End Sub

 

[Fluff]

Cross posted https://stackoverflow.com/questions...-multiple-ranges-and-conditions?noredirect=1#

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[Lesara]

Option Explicit


Sub Lesara()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim i As Long
    For i = 5 To 10000
        If Range("M" & i) = "Apple" Then
            Range("Z" & i) = Range("A" & i) + Range("B" & i)
        ElseIf Range("M" & i) = "Samsung" Then
            Range("Z" & i) = Range("A" & i) + Range("C" & i)
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "Complete"


End Sub

Thank you soooo much! Exactly what I was looking for.