auto repeating the dates in specific cells in column by writing in two input box

[leap out]

Hi
I have about 12000 rows and there are many dates in column A

ZXC.xlsx
	A	B	C
1	DATE	BATCH	QTY
2	01/01/2023	AT-001	2900
3	02/01/2023	AT-002	1300
4	03/01/2023	AT-003	1200
5	04/01/2023	AT-004	5000
6	05/01/2023	AT-005	67788
7	06/01/2023	AT-006	9000
8	07/01/2023	AT-007	5666
9	08/01/2023	AT-008	1222
10	09/01/2023	AT-009	123
11	10/01/2023	AT-010	678
date

what I want when I write the cells using comma, colon in first input box like this

after click ok I will show the second inputbox to write date like this

result should change the dates in cells for column A

ZXC.xlsx
	A	B	C
1	DATE	BATCH	QTY
2	17/01/2024	AT-001	2900
3	17/01/2024	AT-002	1300
4	17/01/2024	AT-003	1200
5	04/01/2023	AT-004	5000
6	17/01/2024	AT-005	67788
7	06/01/2023	AT-006	9000
8	07/01/2023	AT-007	5666
9	08/01/2023	AT-008	1222
10	17/01/2024	AT-009	123
11	10/01/2023	AT-010	678
date

I have this code I would add some line to adapt with my requirement with the same condition as in original code but for two inputboxes

Sub enter_date()
Dim result As String
    result = InputBox("Enter the cells please", "cells Confirmation")
    If StrPtr(result) = 0 Then
        MsgBox ("User canceled!")
    ElseIf result = vbNullString Then
        MsgBox ("User didn't enter anything!")
    Else
        MsgBox ("User entered " & result)
    End If
End Sub

 

[mumps]

Try:

Sub RepeatDates()
    Application.ScreenUpdating = False
    Dim sDate As String, sRange As String, v As Variant, i As Long
    sRange = InputBox("Please enter the range separated by commas.")
    If sRange = "" Then Exit Sub
    v = Split(sRange, ",")
    sDate = InputBox("Please enter the date to repeat.")
    If sDate = "" Then Exit Sub
    For i = LBound(v) To UBound(v)
        Range(v(i)) = sDate
    Next i
    Application.ScreenUpdating = True
End Sub

 

[leap out]

Awesome !
thank you so much .

 

[mumps]

You are very welcome.