Excel sheet data calculator
- or -
Post a project like this2048
€25(approx. $27)
- Posted:
- Proposals: 8
- Remote
- #2127484
- Completed
Virtual Assistant, Excel programmer, Customer Support Agent, EN-GR/GR-EN Translator
Kornos
Microsoft Certified Power BI Data Analyst & Advance Excel Specialist¦Professional Power BI consultant ¦ (ACCA)- Chartered Certified Accountant ¦ Accounting- Reconciliations ¦DAX ¦Data Models ¦
Doha
739889190114208270478098745411140641620739162367563
Description
Experience Level: Entry
I have a Excel sheet that has information about the work i do and its progress and time left and all that stuff with respect to the days per hour in a month.
i want a macro button that by clicking will ask me to enter specific month and year and then it will calculate that how much i spend in that particular entered month along with the project name and the total hours in a new sheet.
i have a dummy hardcode but i know this cases are not the way to go. so require some help to simply my task.
Dim pspNumber As String
Dim sumHoursWorked As Double
Dim intColumn As Integer
Dim intRow As Long
Dim endColumn As Integer
Dim startColumn As Integer
startColumn = 0
endColumn = 0
sumHoursWorked = 0
Select Case viewMonth
Case "10/17"
startColumn = 11
endColumn = 42
Case "11/17"
startColumn = 4
endColumn = 4
End Select
For intRow = 4 To 55
sumHoursWorked = 0
projectName = Worksheets("Scheduler").Cells(intRow, 1)
pspNumber = Worksheets("Scheduler").Cells(intRow, 9)
For intColumn = startColumn To endColumn
sumHoursWorked = sumHoursWorked + Worksheets("Scheduler").Cells(intRow, intColumn)
Next intColumn
If Not IsEmpty(Worksheets("Scheduler").Cells(intRow, 1)) Then
Worksheets("Summary").Cells(intRow, 1).Value = projectName
Worksheets("Summary").Cells(intRow, 2).Value = pspNumber
Worksheets("Summary").Cells(intRow, 3).Value = sumHoursWorked
End If
Next intRow
End Sub
i want a macro button that by clicking will ask me to enter specific month and year and then it will calculate that how much i spend in that particular entered month along with the project name and the total hours in a new sheet.
i have a dummy hardcode but i know this cases are not the way to go. so require some help to simply my task.
Dim pspNumber As String
Dim sumHoursWorked As Double
Dim intColumn As Integer
Dim intRow As Long
Dim endColumn As Integer
Dim startColumn As Integer
startColumn = 0
endColumn = 0
sumHoursWorked = 0
Select Case viewMonth
Case "10/17"
startColumn = 11
endColumn = 42
Case "11/17"
startColumn = 4
endColumn = 4
End Select
For intRow = 4 To 55
sumHoursWorked = 0
projectName = Worksheets("Scheduler").Cells(intRow, 1)
pspNumber = Worksheets("Scheduler").Cells(intRow, 9)
For intColumn = startColumn To endColumn
sumHoursWorked = sumHoursWorked + Worksheets("Scheduler").Cells(intRow, intColumn)
Next intColumn
If Not IsEmpty(Worksheets("Scheduler").Cells(intRow, 1)) Then
Worksheets("Summary").Cells(intRow, 1).Value = projectName
Worksheets("Summary").Cells(intRow, 2).Value = pspNumber
Worksheets("Summary").Cells(intRow, 3).Value = sumHoursWorked
End If
Next intRow
End Sub
Bhargav S.
100% (1)Projects Completed
1
Freelancers worked with
1
Projects awarded
20%
Last project
4 Sep 2018
Germany
New Proposal
Login to your account and send a proposal now to get this project.
Log inClarification Board Ask a Question
-
Will you consider to have a Python script for the task ?
Bhargav S.03 Sep 2018NO
703793
We collect cookies to enable the proper functioning and security of our website, and to enhance your experience. By clicking on 'Accept All Cookies', you consent to the use of these cookies. You can change your 'Cookies Settings' at any time. For more information, please read ourCookie Policy
Cookie Settings
Accept All Cookies