Cerca Numeri in tabella

Sub CercaNumero()

Dim x As Integer 'Variabile da cercare
Dim i As Integer 'Indice, il punto da cui partire in questo caso Riga 8
Dim K As Boolean ' Variabile Vero o Falso se trova il numero o no

K = False 'Valore di Partenza della variabile
Range("D8:I18").Font.ColorIndex = xlAutomatic 'pulizia colori
Range("K6:K18").ClearContents 'pulizia col K

On Error Resume Next
x = Application.InputBox("Inserisci il numero da Cercare")
If x = False Then Exit Sub 'gestione input box vuota
On Error GoTo 0
Range("K6") = x
For i = 8 To 18 ' inizia la ricerca dalla riga 8 fino alla 18 (Da Bari alla Nazionale)
    For c = 5 To 9 'ulteriore ciclo per colonne
        If Cells(i, c) = x Then  'inizia la ricerca dalla riga 8 colonna 5(Cella C8) e controlla se trova il numero inputato
        Cells(i, c).Font.ColorIndex = 3 'colorazione
        Cells(i, 4).Font.ColorIndex = 3 'colorazione
        Cells(i, 11) = "*"  'Se trova il valore inputato scrive un "*" asterisco nella Riga di appartenenza colonna 11
        K = True
        End If
    Next
Next
If K = False Then 'Se non trova il numero cercato
MsgBox ("Numero non trovato")
End If


End Sub