Buonasera
in un foglio di Execel ho inserito, dalla colonna A alla Z, dei codici articolo.
vorrei con questa macro, cercare, in determinate colonne, dei codici specifici.
Esempio: Nella colonna A vorrei che mi cercasse il codice "Anna", e dei suoi duplicati, ma non funziona.
Qualcuno potrebbe dirmi dove sbaglio?
Sub cerca()
inpt = InputBox("valore da cercare")
col = InputBox("in quale colonna cercare")
Range(col & 1).Select
With Columns("b:B")
Set c = .Find(inpt, After:=ActiveCell, LookIn:=xlValues)
x = 1
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
MsgBox ("trovato" & x)
Set c = .FindNext(c)
x = x + 1
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
P.S: non so usare Dropbox, l'ho scaricato, non riesco ad allegare il file.
Saluti
Anna