Snasui Excel Forum

Code: Select all

Private Sub CmbUpdate_Click()
    Range("B7") = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim arrDate() As String
    arrDate = Split("20 กรกฎาคม 2565", " ")
    Me.Cbb_D.Text = arrDate(0)
    Me.Cbb_M.Text = arrDate(1)
    Me.Cbb_Y.Text = arrDate(2)
End Sub

Code: Select all

Private Sub CmbUpdate_Click()
    Dim l As Long
    Select Case ActiveSheet.Name
        Case "Input1B7"
            l = 7
        Case "Input2B8"
            l = 8
        Case "MainInputB9"
            l = 9
    End Select
    Range("B" & l) = Me.Cbb_D.Value & " " & Me.Cbb_M.Value & " " & Me.Cbb_Y.Value
    Unload Me
End Sub