Hi I need help on changing this Command Button

Charlene Durand

Board Regular
Joined
Sep 19, 2015
Messages
94
With EE we are now having to report on fixed and variable. I have a excel doc that when you press the "magic Button" it throws out what you are wanting. but now that we have to split is there not a possibilty that i can have the excel doc first give me the Fixed amounth then the Variable on the next row.

this is my Code:

VBA Code:
Private Sub CommandButton1_Click()

Dim arrIncl() As Variant

InputRow = 4

With Sheet4
    EndRow = .Range("A650000").End(xlUp).Row
    If Not EndRow >= 4 Then EndRow = 4
     .Range("A4:O" & EndRow).ClearContents
End With

With Sheet2
    i = 1
    EndRow = .Range("A650000").End(xlUp).Row
    For RowNum = 1 To EndRow
        If .Range("D" & RowNum) = "x" Then
            ReDim Preserve arrIncl(i)
            arrIncl(i - 1) = .Range("A" & RowNum)
            i = i + 1
        End If
    Next

End With


With Sheet5

EndRow = .Range("D650000").End(xlUp).Row

For RowNum = 8 To EndRow

    If .Range("D" & RowNum) <> "" Then pStart = RowNum: EmployeeNo = .Range("D" & RowNum) Else GoTo NextRow
  
    Do Until EmployeeNo <> .Range("D" & RowNum) And Not pStart = RowNum
        RowNum = RowNum + 1
        If RowNum > EndRow Then Exit For
    Loop
   
    pEnd = RowNum - 1
   
    EmpCode = .Range("D" & pStart)
'    Person = .Range("E" & pStart)
'    NameCount = UBound(Split(Person, " "))
    Surname = .Range("E" & pStart)
    FirstName = .Range("F" & pStart)
   
    Sheet4.Range("A" & InputRow).Select
    Sheet4.Range("A" & InputRow) = EmpCode
    Sheet4.Range("B" & InputRow) = FirstName
    Sheet4.Range("C" & InputRow) = Surname
       
    For pRow = pStart To pEnd
        If UBound(Filter(arrIncl, .Range("G" & pRow))) >= 0 And .Range("G" & pRow) <> "" Then
            For mOffset = 0 To 11
                Sheet4.Range("D" & InputRow).Offset(0, mOffset) = Sheet4.Range("D" & InputRow).Offset(0, mOffset) + .Range("H" & pRow).Offset(0, mOffset)
            Next
        End If
    Next

    RowNum = RowNum - 1
    InputRow = InputRow + 1
NextRow:
Next

End With
End Sub

Private Sub CommandButton2_Click()

With Sheet4
    EndRow = .Range("A650000").End(xlUp).Row
    If Not EndRow >= 4 Then EndRow = 4
    .Range("A4:O" & EndRow).ClearContents
End With

End Sub
 
Last edited by a moderator:

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.

Forum statistics

Threads
1,144,629
Messages
5,725,390
Members
422,623
Latest member
Dave52

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top