Md. Sourov Hossain Mithun

Hello CJ, thanks for your feedback.

Just skip the percentage if it doesn’t get relevant, the formula and procedures are the same.

Hello Jane, thanks for your feedback.
Yes, it’s possible, just add the column on the left and apply the commands as I applied.

Hello ANDY S, thanks for your feedback.
I hope the following codes will be helpful for your problem.

Sub Print_Button_for_DropDown()

Sheets(“Data”).Range(“$B$4:$D$11”).AutoFilter Field:=2, Criteria1:=Range(“F4”).Value
Sheets(“Data”).Select
Sheets(“Data”).PrintOut

End Sub

Here, I have made a drop-down list in Cell F4 for the locations. Keep this cell in that sheet where the print button is located, that means the active sheet. You can change the reference and range in the codes according to your dataset.

Hello MEGAN M,
Hope, you are doing well. Here’s the modified code below that will spell only whole numbers. Also, it will extract the whole number before spelling, if you insert decimal numbers.

Option Explicit
Function spelling_number(ByVal given_number)
    Dim us_dollars, temp
    Dim count
    ReDim Position(9) As String
    Position(2) = " Thousand "
    Position(3) = " Million "
    Position(4) = " Billion "
    Position(5) = " Trillion "
    given_number = Trim(Str(given_number))
    
    ' Extract the integer part of the number
    Dim integerPart As Double
    integerPart = Int(given_number)
    
    count = 1
    Do While integerPart <> 0
        temp = GetHundreds(integerPart Mod 1000) ' Process the last three digits
        If temp <> "" Then us_dollars = temp & Position(count) & us_dollars
        integerPart = Int(integerPart / 1000) ' Remove the last three digits
        count = count + 1
    Loop
    
    ' Check if the result is an empty string, and if so, set it to "Zero"
    If us_dollars = "" Then
        us_dollars = "Zero"
    End If
    
    spelling_number = us_dollars
End Function

Function GetHundreds(ByVal given_number)
Dim output As String
If Val(given_number) = 0 Then Exit Function
given_number = Right("000" & given_number, 3)
If Mid(given_number, 1, 1) <> "0" Then
output = GetDigit(Mid(given_number, 1, 1)) & " Hundred "
End If
If Mid(given_number, 2, 1) <> "0" Then
output = output & GetTens(Mid(given_number, 2))
Else
output = output & GetDigit(Mid(given_number, 3))
End If
GetHundreds = output
End Function
Function GetTens(tens_text)
Dim output As String
output = ""
If Val(Left(tens_text, 1)) = 1 Then
Select Case Val(tens_text)
Case 10: output = "Ten"
Case 11: output = "Eleven"
Case 12: output = "Twelve"
Case 13: output = "Thirteen"
Case 14: output = "Fourteen"
Case 15: output = "Fifteen"
Case 16: output = "Sixteen"
Case 17: output = "Seventeen"
Case 18: output = "Eighteen"
Case 19: output = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(tens_text, 1))
Case 2: output = "Twenty "
Case 3: output = "Thirty "
Case 4: output = "Forty "
Case 5: output = "Fifty "
Case 6: output = "Sixty "
Case 7: output = "Seventy "
Case 8: output = "Eighty "
Case 9: output = "Ninety "
Case Else
End Select
output = output & GetDigit _
(Right(tens_text, 1))
End If
GetTens = output
End Function
Function GetDigit(number)
Select Case Val(number)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

Thanks and regards,
Md. Sourov Hossain Mithun
Team ExcelDemy.

Hello PHIL REINIE,

Thanks for your feedback. The issue you introduced is really a valid issue that we never faced before. Thanks a lot for sharing it with us. We have added this solution in our article, we hope it will help other users.

Thanks and regards,
Md. Sourov Hossain Mithun
ExcelDemy

Hello WILL,
Thanks for your feedback. There are some reasons that are why you may have faced the problem. You can solve it by following the steps:

1. Maybe your Fill Handle tool is deactivated. To activate it, Click File > Options > Advanced > Enable fill handle and cell drag and drop.

2. The AGGREGATE function can work only for vertical ranges, not for horizontal ranges. So always apply it for vertical ranges and then the Fill Handle should work.

3. The AGGREGATE function is available since 2010, so if you are using an older version of Excel then it won’t work.

If the above solutions fail to rescue you then your issue is quite particular and that is difficult to find out without the file. So if you share your file with us then we hope, we could provide you with the exact solution.

*Sharing Email Address: [email protected]

Hello ROXY,
Thanks for your feedback. The above three issues are all the most common and possible issues that we have recognized till now. Would you please check whether your worksheet is protected or not? If not then maybe your problem is quite particular and that’s quite difficult to find without the file. So if you would share your file with us then hope, we could find out the reason and give a proper solution.

*Sharing email address: [email protected]

Hello DANIEL,
Yes, it’s possible to do that using the COUNTA function based on the first column. For that, use the following formula-
=IF(B5<>"",INDEX($B$5:$B$1048576,ROW()-COUNTA($B$5:$B$8)),INDEX($C$5:$C$1048576,ROW()-COUNTA($B$5:$B$8)-4))

➥ ROW()-COUNTA($B$5:$B$8)-4
Here, 4 is subtracted based on the length of the first column to return 1 as the output of this portion. So for your own dataset, modify the value according to the length of your first column.

Hello JULIE, thanks for your feedback. Use the below code to fix that-

Sub Worksheet_SelectionChange(ByVal Target As Range)
Static xRow
Cells.Interior.ColorIndex = 0
If xRow “” Then
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
Active_Row = Selection.Row
xRow = Active_Row
With Rows(Active_Row).Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
End Sub

*Or you can use an alternative way with the previous code, after opening the file, click on any cell on the previously highlighted row, and then only the active row will be highlighted.

Hello HERMAN,
Thanks for your feedback. You can follow the articles given below to create a payroll format based on 15 days. The steps and format will be pretty same, hope it will help you.

https://www.exceldemy.com/daily-wages-sheet-format-in-excel/#Step_1_Calculate_Total_Daily_Working_Time_in_Daily_Wages_Sheet_Format_in_Excel

https://www.exceldemy.com/calculate-hours-and-minutes-for-payroll-in-excel/

Hi MICHAEL,
Thanks for your feedback.

To count the number of items associated with each title (according to to catalog id), use this formula: =COUNTIF($B$2:$B$27,B2)

And to sum the total number of uses of each item associated with that same title, use this formula: =SUMIF($B$2:$B$27,B2,$D$2:$D$27)

Hello HOPE, thanks for your feedback. To do that, place Private Sub Workbook_open() in a new module and then call the previous Sub within it. I hope, it will work.

Hello TONIA.
Thanks for your feedback. Autofit doesn’t work in a protected sheet, so please check it. If it remains unprotected then your problem is a quite particular type. So if you would share your workbook with us, we hope to find out the problem and give you a possible solution.

You are welcome 🙂 Glad to know that it helped you.