sub cerca
riga = inputbox("riga")
col = inputbox("colonna")
cells(riga,col).select
end sub

=CERCA.VERT(E47;tabella;CONFRONTA(E44;G1:Z1)+6;FALSO)

Function TrovaColonna(Tabella_Dati As Range, parola As Variant) As Variant
    If parola = "" Then
        TrovaColonna = ""
     Exit Function
    End If
    TrovaColonna = Tabella_Dati.Find(parola, LookAt:=xlWhole).Column
End Function

Function TrovaRiga(Tabella_Dati As Range, parola As String) As Variant
    If parola = "" Then
        TrovaRiga = ""
     Exit Function
    End If
    TrovaRiga = Tabella_Dati.Find(parola, LookAt:=xlWhole).Row
End Function


Sub SelezionaCella()
Dim ur As Long
Dim elencodate As Range
Dim commesse As Range
Dim rig As Long
Dim col As Long
Dim miadata As String
Dim commessa As String
ur = Cells(Rows.Count, 1).End(xlUp).Row
Set elencodate = Range("a2:a" & ur)
Set commesse = Range("h1:aa1")
miadata = InputBox("Immettere la data")
rig = TrovaRiga(elencodate, miadata)
commessa = InputBox("Immettere la commessa")
col = TrovaColonna(commesse, commessa)
Cells(rig, col).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
Dim elencodate As Range
Dim commesse As Range
Dim rig As Long
Dim col As Long
Dim miadata As String
Dim commessa As String
Dim ore As Long
On Error Resume Next
ur = Worksheets("ore").Cells(Rows.Count, 1).End(xlUp).Row
Set elencodate = Worksheets("ore").Range("a2:a" & ur)
Set commesse = Worksheets("ore").Range("d5:ku5")
If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then
miadata = Target.Offset(0, -2).Value
rig = Application.WorksheetFunction.Match(miadata, elencodate, 0) + 1
commessa = Target.Offset(0, -1).Value
col = Application.WorksheetFunction.Match(commessa, commesse, 0) + 3
ore = Target.Value
Worksheets("ore").Cells(rig, col).Value = ore
End If
End Sub