Errore taso torna indietro

Salve allego un file di prova…aprendolo e cliccando sul taso T ,compare una from, cliccando subito sul taso “torna indietro” mi da errore…
Se invece scrivo “an” poi clicco su “trova” e poi su “tasto indietro” non mi da l’errore.
È possibile modificare il codice, in modo che anche se clicco subito su “tasto indietro” senza prima effettuare la ricerca di un nominativo, non mi dia errore?
grazie

a volte non mi allega i file

forse è troppo grande...comunque si puo scaricare da qui
http://dropcanvas.com/k0y3k

non puoi fare un find previous senza prima aver fatto un find, quindi devi disabilitare il tasto e riabilitarlo solo dopo aver fatto un find

come faccio?

Imposta il pulsante come non visibile, quando inizi la ricerca controlla se almeno un valore viene trovato, se trovato imposta il pulsante come visibile.

Non so come si fa

Ed io non so come funziona e cosa deve fare la tua macro, non l'hai spiegato. Ma l'hai fatta tu ?

no non lo fatta io...serve a cercare migliaia di nominativi e mi da informazioni su di questi

Io aiuto te se tu aiuti me, se non hai tempo o voglia di spiegare per bene ti saluto.

dimmi cosa vuoi sapere di più...ho specificato a che serve...non posso metterti il file con dati sensibili..

Nussuno ti ha chiesto dati sensibili, anzi ci sono troppi fogli per un file di esempio. Lo scopo del forum è quello di insegnare a fare, non di fornire un prodotto chiavi in mano, tu ti rifiuti di spiegare e non ci provi nemmeno a modificare il codice secondo i suggerimenti.

Non è che non ci provo, è che proprio non lo so fare...come detto prima non lo fatto io!

il codice della from è


Dim myPrimo As Range, myCorr As Range, myK1 As Long 'questo codice cerca nel foglio archivio e usciti sia nelle celle che nei commenti
Private Sub CommandButton1_Click()
Dim i As Long
RAvvia:
userform1.Caption = "CERCA in cella"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
With ActiveSheet.Range("X2:AB65536, A2:d65536, e1:j65536")
If CheckBox2.Value = True Then lAt = 1 Else lAt = 2
If myPrimo Is Nothing Then
myK1 = 0
Set cfound = .Find(TextBox1.Text, LookIn:=xlValues, lookat:=lAt)
Else: Set cfound = .FindNext(myCorr)
End If
If cfound Is Nothing Then GoTo CkCmt
If Not myPrimo Is Nothing Then If cfound.Address = myPrimo.Address Then GoTo CkCmt
cfound.Select
If myPrimo Is Nothing Then Set myPrimo = cfound
Set myCorr = cfound: userform1.Caption = "TROVATO in cella"
End With
Exit Sub
CkCmt:
userform1.Caption = "CERCA in commento"
If myPrimo Is Nothing Then Set myPrimo = ActiveCell
If myCorr Is Nothing Then Set myCorr = ActiveCell
For i = myK1 + 1 To ActiveSheet.Comments.Count
Set Kmt = ActiveSheet.Comments(i)
If Not Application.Intersect(Kmt.Parent, Range("X2:AB65536, A2:B65536, e1:j65536")) Is Nothing Then
myFlag = 0
If CheckBox2.Value = True And UCase(Kmt.Text) = UCase(TextBox1.Text) Then myFlag = True
If CheckBox2.Value = False And Len(UCase(Kmt.Text)) > Len(Replace(UCase(Kmt.Text), UCase(TextBox1.Text), "")) Then myFlag = True
If myFlag = True Then

myK1 = i: Kmt.Parent.Select
userform1.Caption = "TROVATO in commento": Exit Sub
End If
End If
Next
FineKmt:
userform1.Caption = "------> FINE RICERCA"
Set myPrimo = Nothing
End Sub



Private Sub UserForm_initialize() 'questo codice fa si che se premo enter è come se schiacciassi il tasto trova della user from
CommandButton1.Caption = "trova": CommandButton1.Accelerator = "T": CommandButton1.Default = True
userform1.Caption = "cerca"
End Sub
Private Sub CommandButton2_Click() 'questo codice è collegato al tasto presenti della form e permette di cercare i nomi nel foglio archivio
Sheets("Archivio").Select
TextBox1.SetFocus 'permette di poter scrivere direttamente il nome da cercare senza fare click nella finestra
Set myPrimo = Nothing
End Sub
Private Sub CommandButton3_Click() 'questo codice è collegato al tasto usciti della form e permette di cercare i nomi nel foglio usciti
Sheets("usciti").Select
TextBox1.SetFocus
Set myPrimo = Nothing
End Sub
Private Sub CommandButton4_Click() 'questo codice è collegato al tasto colleghi della form e permette di cercare i nomi nel foglio colleghi
Sheets("colleghi").Select
TextBox1.SetFocus
Set myPrimo = Nothing
End Sub
Private Sub CommandButton5_Click() 'questo codice è collegato al tasto colleghi della form e permette di cercare i nomi nel foglio data nascita
Sheets("data nascita").Select
TextBox1.SetFocus
Set myPrimo = Nothing
End Sub
Private Sub CommandButton6_Click() 'collegato al tasto torna indietro per eliminare l'ultima operazione di ricerca nomi
With ActiveSheet.Range("b2:AB65536, A2:d65536")
Set cfound = .FindPrevious(cfound)
cfound.Select
End With
End Sub
Private Sub CheckBox2_Click() 'questo è collegato alla casella di controllo 'parola intera' della userfrom
Set myPrimo = Nothing
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Set myPrimo = Nothing
End Sub
Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

questo è collegato al tasto "torna indietro" che doverei rendere invisibile prima della ricerca del primo nome
Private Sub CommandButton6_Click() 'collegato al tasto torna indietro per eliminare l'ultima operazione di ricerca nomi
With ActiveSheet.Range("b2:AB65536, A2:d65536")
Set cfound = .FindPrevious(cfound)
cfound.Select
End With
End Sub

all'apertura del form il tasto Indietro deve essere disabilitato, quindi

e deve essere abilitato soltanto dopo aver trovato il primo valore


Hai allegato molto codice, devi inserirlo nei tag Code, quindi devi selezionarlo e cliccare sul pulsante Code

in quale punto vanno inseriti i codici?

Ma non ti vergogni dopo tutti i rimproveri che ti ho fatto ?

Non so cos'è e dove si trova il tag code

Un conto è modificare qualche parametro di un codice , un conto è Andarlo a posizionare in punti prestabiliti... Cosa per me molto più difficile

Dammi qualche indicazione in più

i codici che ti ho indicato non sono da inserire come nuovi ma sono modifiche da fare su quelli già esistenti, quindi basta che tu li cerchi e li modifichi tenendo presente che la modifica consiste nel rendere visibile o no il pulsante

ok fatto funziona..
grazie