Private Sub Worksheet_Change(ByVal Target As Range)
    ' Условие по нужной ячейке/диапазону
    If Not Intersect(Target, range("$E$3")) Is Nothing Then
       If IsDate(Target) Then
          'тут пишем что нужно сделать на втором листе
       End If
    End If
End Sub

Dim oConn As Object
    Set oConn = New ADODB.connection
    
    oConn.Open "DRIVER={MySQL ODBC 8.0.28 Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=project;" & _
        "UID=***;" & _
        "PASSWORD=***;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;"
    
    If oConn.State = adStateOpen Then
        MsgBox "Connected! =)"
    Else
        MsgBox "Ñan not connect... =("
    End If

Sub Get_data()

    Dim cn As ADODB.connection
    Dim rs As ADODB.Recordset
 

    Const sql As String = "Provider=SQLOLEDB.1;Password=***;Persist SecurityInfo=True;" & _
    "User ID=***;Initial Catalog=project;Data Source=127.0.0.1"
    Const sSql As String = "SELECT name FROM `customers`"
    
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Open sql
    Set rs = cn.Execute(sSql, 3, 1)
    Rez = rs.GetRows
    rs.Close
    cn.Close
    Set cn = Nothing: Set rs = Nothing
    MsgBox Rez
End Sub

Private Sub ComboBox2_Change()
 Dim sStr() As String, i As Long, li As Long
   For i = 72 To 374
      If LCase(Cells(i, "C")) Like "*" & LCase(ComboBox2) & "*" Then
         ReDim Preserve sStr(li): sStr(li) = Cells(i, "C"): li = li + 1
      End If
   Next
If li = 0 Then Exit Sub
ComboBox2.List = sStr
End Sub 

 ЕСЛИ(ВПР(А1;Диапазон-1;3)="#Н/Д";ВПР(А5;Диапазон-2;3);ВПР(А1;Диапазон-1;3))

Sub 111()

    Dim D1 As Date
    Dim D2 As Date

    Zap = 1
    D2 = Format(Workbooks(StartBook).ActiveSheet.Cells(1, "D"), "dd.mm.yyyy")
    
    Set EndOfList = Sheets(TragSheet).Columns("B").Find(what:="Öâåòîâûå îáîçíà÷åíèÿ", LookIn:=xlValues, lookAt:=xlWhole, MatchCase:=True)
    ReDim LgcAddress(1 To Zap)
    For i = 3 To EndOfList.Row - 2
        If Cells(i, "C") <> "" Then
           D1 = Format(Cells(i, "C"), "dd.mm.yyyy")
           If D1 = D2 Then
              ReDim Preserve LgcAddress(1 To Zap)
              LgcAddress(Zap) = Cells(i, "H")
              Zap = Zap + 1
           End If
        End If
    Next i
    Zap = Zap - 1

    Sheets(TragSheet).Select
    Selection.AutoFilter Field:=3, Criteria1:=D2, Operator:=xlAnd

    MsgBox Zap
    For i = 1 To Zap
        Cells(i + 45, "G") = LgcAddress(i)
    Next i

Ens Sub 

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
    If KeyAscii = 9 Or KeyAscii = 13 Then                         ' нажатие "таб" или "ентер"
       Worksheets(Yyear).ComboBox2.Activate
       MsgBox "11"
    End If
End Sub