Creare pulsanti

Buongiorno, vi allego un file Excel dove io scrivo tutti i dipendenti , ho creato due pulsanti uno numera righe e sembra funzionare ( se aggiungo una riga in mezza schiacciando il pulsante le rinumera tutte .
Un atro ordine alfabetico avevo inserito un macro ma non cè più e non so come fare.

Poi vorrei creare un pulsante cerca per cercare per nome il dipendente ma non so come si fa.

Lo so che cè la ricerca nel programma ma questo tasto mi serve per i miei colleghi che non hanno dimestichezza,.

Creando dei pulsanti rapidi rendo il lavoro meno difficile.
Grazie di Cuore

Prova con questa macro da abbinare ad un pulsante

Ok ma come creo il tasto che mi serve per la ricerca ?

Come hai creato gli altri due presenti sul foglio.

Comunque queste sono conoscenze basilari di Excel; se fai una ricerca con Google trovi una miriade di informazioni al riguardo.

hai ragione

Non funziona

Che significa,"non funziona"?

Fai vedere quello che hai fatto per risolvere il problema.

ti allego fail

Non funziona perché non hai associato nessuna macro al pulsante che hai creato.

Ora Cerca con Google: "Excel VBA come associare una macro a pulsante" e prova ad associare la macro che ho scritto al pulsante.

Questa ti mostra una finestra dove inserire un cognome; quando clicchi su Ok il cursore si posiziona sulla cella che contiene il cognome digitato.

P.S. Guarda che il foglio "ELENCO GENERALE AGGIORNATO" ha uno spazio in più nel nome; lo devi togliere.

l'QUANDO EFFETTUO LA RICERCA PER COGNOME LUI VA SUL COGNOME
ESEMPIO : CERCO rossi LUI LO TROVA MA SE IO HO DUE rOSSI LUI TROVA SOLO IL PRIMO

poI SE MI DAI UNA FORMULA PER ABBINARE AL PULSANTE ORDINE ALFABETICO.
Grazie

Sei tu che devi trovare il modo per gestire eventuali omonimie.

Per l'ordinamento fai l'operazione manualmente attivando il registratore di macro ed al termine avrai il codice da abbinare ad un altro pulsante.

Vedi se cerco rossi lui non trova tutti i rossi ma si ferma al primo
dove sbaglio?

Ma è normale che la macro funzioni così

Io non ho capito qual è il risultato che vuoi raggiungere.

Se ci sono tre Rossi che deve succedere?

Sub trova()
Dim cog As String
cog = InputBox("Inserire il cognome")
With Sheets("ELENCO GENERALE AGGIORNATO").Range("D:D")
Set Rng = .Find(What:=cog, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Rng.Select
Else
MsgBox "Nominativo non trovato"
End If
End With
End Sub

Non leggi bene quello che scrivo.

alfrimpa, 31/07/2017 17.40:

---

P.S. Guarda che il foglio "ELENCO GENERALE AGGIORNATO" ha uno spazio in più nel nome; lo devi togliere.

---

Fatto Grazie

Scusami visto che mi trovo posso creare un pulsante per stampare ?
hai per caso una formula da inserire, Grazie di cuore

Usa il registratore di macro.

Io non ho nessuna "formula"

E comincia a studiare un po' di vba; a questo mondo nessuno nasce "imparato".

OK