I am fairly new to the VB programming of Excel and have to perform a specific process repeatedly; and I can't develop a simple solution.
Right now I have a workbook with 41 sheets; One of them is a summary that totals all the requests from the other pages. I currently have code that checks the Total requests of a particular variant / market field and then numbers the rows of Column A sequentially from 1 until it equals the Total requests. Along with this I would also like to query every sheet and if the value in a specific cell is > 0 then return the requestors name equal the the number of units requested in column "E". Below is an example of the code that I have that works but is extremely tedious as well:
Place = RowCount - NumRet
If MasterRowCount = 1 Then
val = ActiveWorkbook.Worksheets("Xyz").Cells(9, 3).Value
If val > 0 Then
Do
DeptCounter = DeptCounter + 1
Cells((Place), "E") = "Xyz"
Place = Place + 1
Loop Until DeptCounter = val
End If
DeptCounter = 0
val = ActiveWorkbook.Worksheets("xYZ").Cells(9, 3).Value
If val > 0 Then
Do
DeptCounter = DeptCounter + 1
Cells((Place), "E") = "xYZ"
Place = Place + 1
Loop Until DeptCounter = val
End If
End If
Any help will be greatly appreciated.
Bookmarks