• Status: Solved
  • Priority: Low
  • Security: Public
  • Views: 91
  • Last Modified:

Simple Macro but is a big challenge. any Expert can solve this please?

please see attached file and the screenshot below.

it maybe require a simple modification to the code, but looks very challenging.

EE.pngEE.xlsb
0
Flora
Asked:
Flora
  • 5
  • 2
1 Solution
 
Rgonzo1971Commented:
Hi,

pls try
Sub MacroAll()
Dim Main As Worksheet

    Set Main = Sheets("Main")
    Set ShD = Sheets("NewData")

    intYearCol = Range("dataYear").Column
    intMonthCol = Range("dataMonth").Column
    intProductCol = Range("dataPRODUCT").Column
    intAmountCol = Range("dataAMOUNT").Column

    For Each cl In Range(Main.Range("B3"), Main.Range("D3"))
        mySum = 0
        Application.StatusBar = "Processing month " & Main.Cells(cl.Row, 1).Value & " for year " & Main.Cells(2, cl.Column).Value
        For Each c In Range(ShD.Range("a2"), ShD.Range("a" & Rows.Count).End(xlUp))

            If ShD.Cells(c.Row, intYearCol).Value = (Main.Cells(2, cl.Column).Value2 * 1) And ShD.Cells(c.Row, intMonthCol).Value = (Main.Range("A" & cl.Row).Value2 * 1) _
               And ShD.Cells(c.Row, intMonthCol).Value <> 111 And _
               ShD.Cells(c.Row, intProductCol).Value Like "[5-7]*" Then
                mySum = mySum + ShD.Cells(c.Row, intAmountCol).Value
            End If
        Next
        mySumReported = mySumReported + mySum - cl.Value
        If cl.Value = 0 Then
            cl.Value = mySumReported
        End If
    Next

    Application.StatusBar = False

End Sub

Open in new window

Regards
1
 
FloraAuthor Commented:
Rgonzo1971   this is great!   Thanks a million.  very much appreciated.
0
 
FloraAuthor Commented:
Rgonzo1971


thanks alot. it has one small issue.

if i have two or three more years with blank cells, it also fills them as well. while it should not.

for example please see attached.
2017-11-24-11_23_51-EE.xlsb---Excel.pngEE.xlsb
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
Rgonzo1971Commented:
then try
Sub MacroAll()
Dim Main As Worksheet

    Set Main = Sheets("Main")
    Set ShD = Sheets("NewData")

    intYearCol = Range("dataYear").Column
    intMonthCol = Range("dataMonth").Column
    intProductCol = Range("dataPRODUCT").Column
    intAmountCol = Range("dataAMOUNT").Column

    For Each cl In Range(Main.Range("B3"), Main.Range("F3"))
        mySum = 0
        Application.StatusBar = "Processing month " & Main.Cells(cl.Row, 1).Value & " for year " & Main.Cells(2, cl.Column).Value
        For Each c In Range(ShD.Range("a2"), ShD.Range("a" & Rows.Count).End(xlUp))

            If ShD.Cells(c.Row, intYearCol).Value = (Main.Cells(2, cl.Column).Value2 * 1) And ShD.Cells(c.Row, intMonthCol).Value = (Main.Range("A" & cl.Row).Value2 * 1) _
               And ShD.Cells(c.Row, intMonthCol).Value <> 111 And _
               ShD.Cells(c.Row, intProductCol).Value Like "[5-7]*" Then
                mySum = mySum + ShD.Cells(c.Row, intAmountCol).Value
            End If
        Next
        mySumReported = mySumReported + mySum - cl.Value
        If cl.Value = 0 And mySumReported <> 0 Then
            cl.Value = mySumReported
            mySumReported = 0
        End If
    Next

    Application.StatusBar = False

End Sub

Open in new window

1
 
FloraAuthor Commented:
PERFECT!    worked perfectly.  thanks alot
0
 
FloraAuthor Commented:
posted a follow up question
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 5
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now