ElectroYou

è possibile modificare il codice sotto e fare in modo che mi effettui prima la ricerca prima nella colonna AB3:AB100 e se non trova il nome che si stà cercando passi automaticamente alla colonna A3:B2000.
Questo codice si trova in una form.
Grazie!

Codice: Seleziona tutto

Dim ricerca As Range 'questo codice serve a creare il tasto cerca per non usare il binocolo e finisce a fine3
Private Sub CommandButton1_Click()
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
If ricerca Is Nothing Then
Set ricerca = Sheets("archivio").Cells.Find(TextBox1.Text, , xlValues)
Else
Set ricerca = Sheets("archivio").Cells.Find(TextBox1.Text, Sheets("archivio").Cells(ricerca.Row, ricerca.Column), xlValues)
End If
If ricerca Is Nothing Then Exit Sub
ricerca.Select
End Sub
Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

Private Sub UserForm_initialize()
CommandButton1.Caption = "trova": CommandButton1.Accelerator = "T": CommandButton1.Default = True
userform1.Caption = "cerca"
End Sub 'fine3

Da quello che vedo nel codice che hai postato si dovrebbe mettere mano qui:

Codice: Seleziona tutto

Cells(ricerca.Row, ricerca.Column)

andando a sostituire riga e colonna.

Come farlo è un altro paio di maniche e servirebbe un po' di codice e qualche spiegazione in più per capire cosa deve fare la macro.

ricerca dei semplici nominativi in un foglio excel. avviando la macro si presenta una finestra dove va scritto il nome da cercare

allego un file di esempio
http://depositfiles.com/files/x4bh4qh7u