Joyanta Mitra

Dear Adam,
Thank you for your concern. You can not change the color of Excel button but you can use Command Button to change the button color.
You can follow the steps below to color your command button:
1. use Developer tab > Insert > ActiveX Controls > Command Button.

2. A command will appear and right click on it.
3. Choose CommandButton Object > Edit.

Name the button as Start.
4. Now right click on the command button and choose View Code.

5. Then write code below for starting.

Private Sub CommandButton2_Click()
countDown = Now + TimeValue("00:00:01")
Range("B4") = Range("B4") + TimeValue("00:00:01")
Application.OnTime countDown, "StartTimer"
CommandButton2.BackColor = 13959039
End Sub

Finally the button color has been added.

6. Now create a stop buttom and use the code below:

Private Sub CommandButton1_Click()
Application.OnTime EarliestTime:=countDown, Procedure:="StartTimer", Schedule:=False
CommandButton1.BackColor = 13959039
End Sub

7. Write down the code for reset button:

Private Sub CommandButton3_Click()
Range("B4") = TimeValue("00:00:0")
CommandButton3.BackColor = 13959039
End Sub

Finally, you will have colored command button. You can change the color by changing color code 13959039.

Dear Anas,
You have to write the following code to get data validation for duplicate values, you have write the code below.

Sub CreateUniqueDropDownListInC12()
    Dim ws As Worksheet
    Dim cell As Range
    Dim dict As Object
    Dim dataValidation As Validation
    Dim dvList As String
    
    ' Define the worksheet where you want to apply the data validation
    Set ws = ActiveSheet
    
    ' Create a dictionary object to store unique values
    Set dict = CreateObject("Scripting.Dictionary")
    
    Application.ScreenUpdating = False
    
    ' Loop through the specified range (C5 to C11)
    For Each cell In ws.Range("C5:C11")
        If cell.Value <> "" Then ' Check for non-empty cells
            If Not dict.Exists(cell.Value) Then
                dict(cell.Value) = 1 ' Add the value to the dictionary
            End If
        End If
    Next cell
    
    ' Convert the unique values to a comma-separated string for data validation
    dvList = Join(dict.Keys, ",")
    
    ' Apply data validation with a dropdown list to cell C12
    Set dataValidation = ws.Range("C12").Validation
    With dataValidation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=dvList
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    
    Application.ScreenUpdating = True
End Sub

Then we get the data values of unique departments Marketing and Sales.

With regards,
Joyanta Mitra

Dear FRANCESCA BATHE,
End Position is given according to column To. Where there is RENT in To column, the number starts 1,2,3,4 and ends with SPACE1 numbered 5. Then next is Food starting 6,7,8, 9 and ends with SPACE2 numbered 10. Likewise, numbering is done for every cell data in End Position.

Regards,
Joyanta Mitra

Dear Prince,
Thank you very much for reading our article.
According to your query, 1st you wanted to know about a formula to create a drop-down list that will be used to select different types of leaves. You will get that in Step 3 of this article. In our Excel file, we selected leave using the drop-down list in Record sheet. Also when you move to any month leave information will be based on the Record sheet. So, information will not move from one month to another. Try this and hope you will get the solution.
Otherwise, send your Excel file with what you want to get and we will try to provide a solution. You can mail us at [email protected].
Thanks
Joyanta Mitra
ExcelDemy

This code will solve your problem. The code has a condition checking values blank or not.

Sub Duplicates_Dif_Colors()
Dim RG As Range
Dim TT As String
Dim CL As Range
Dim CR As String
Dim CP As Range
Dim CD As Long
Dim Cltn As Collection
Dim J As Long

On Error Resume Next

If ActiveWindow.RangeSelection.Count > 1 Then
TT = ActiveWindow.RangeSelection.AddressLocal
Else
TT = ActiveSheet.UsedRange.AddressLocal
End If

Set RG = Application.InputBox("Select range of data with duplicates:", "Duplicate values with Colors", TT, , , , , 8)
If RG Is Nothing Then Exit Sub

CD = 2
Set Cltn = New Collection

For Each CL In RG
If CL.Value <> "" Then ' check if cell is not blank
On Error Resume Next
Cltn.Add CL, CL.Text
If Err.Number = 457 Then
CD = CD + 1
Set CP = Cltn(CL.Text)
If CP.Interior.ColorIndex = xlNone Then CP.Interior.ColorIndex = CD
CL.Interior.ColorIndex = CP.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Found excessive duplicates", vbCritical, "Duplicates with Colors"
Exit Sub
End If
On Error GoTo 0
End If
Next
End Sub

Output:

First, you have to create different power queries for each worksheet for other tickers and copy the same code. Otherwise, it triggers the first. Then for 10 different tickers,the code is

let
    TickerList = {"AAPL", "GOOG", "MSFT", "AMZN", "FB", "TSLA", "NVDA", "JPM", "BAC", "V"},
    StartDate = Excel.CurrentWorkbook(){[Name="StartDate"]}[Content]{0}[Column1],
    EndDate = Excel.CurrentWorkbook(){[Name="EndDate"]}[Content]{0}[Column1],
    #"Loop Through Tickers" = List.Transform(TickerList, each
        let
            Ticker = _,
            Source = Csv.Document(Web.Contents("https://query1.finance.yahoo.com/v7/finance/download/"&Ticker&"?period1"&StartDate&"&period2"&EndDate),[Delimiter=",", Columns=7, Encoding=1252, QuoteStyle=QuoteStyle.None]),
            #"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
            #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"Date", type date}, {"Open", type number}, {"High", type number}, {"Low", type number}, {"Close", type number}, {"Adj Close", type number}, {"Volume", Int64.Type}})
        in
            #"Changed Type"
    ),
    #"Loop Through Tickers1" = #"Loop Through Tickers"{8}
in
    #"Loop Through Tickers1"

this code creates 10 tables for 10 different tickers. You have to select one table according to Ticker and hover over the query in Workbook Query Section and press View in Worksheet. You will get the table have to create 10 sheets separately.