cerca nomi

[trittico69]

è 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

[cronos80]

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.

[trittico69]

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

[trittico69]

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