Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

Numerazione in automatico di una colonna excel

Ultimo Aggiornamento: 28/06/2017 15:16
Ennio.63
Post: 1
Registrato il: 27/06/2017
Città: LATINA
Età: 60
Utente Junior
2010
OFFLINE
27/06/2017 17:12
00#1
Creazione di un tasto o formula
Buona sera , mi occorrerebbe una formula o un macro che funzioni in automatico, mi spiego

ho un elenco di persone in ordine alfabetico nella colonna C:

nella colonna B ho la numerazione da 1 a 1000 , nel modo clasico quando inserisco un nominativo in mezzo o su o giù all' elenco per numerare uso il metodo classico tirando giù e si numera tutto.


La mia domanda è questa esiste una formula che faccia tutto in automatico o un macro?
inserendo un tasto di comando che ogni volta che inserisco un nomnativo mi numera in automatico.

allego file di esempio

se esiste siete cosi gentili di postarmela, grazie
[Modificato da Ennio.63 27/06/2017 17:50]
dodo47
Post: 1.431
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
27/06/2017 17:47
00#2
Ciao
supponendo che i nomi partano da A1 e la sequenza numerica da 1, nel vb del foglio interessato puoi utilizzare l'evento change: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1) = "" Then Exit Sub
If Cells(Target.Row, 2) <> "" Then Exit Sub
Application.EnableEvents = False
ur = Range("A" & Rows.Count).End(xlUp).Row
Range("B1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "2"
Cells(2, 2).AutoFill Destination:=Range("B2:B" & ur), Type:=xlFillSeries
Application.EnableEvents = True
End Sub



Saluti
Domenico
Win 10 - Excel 2016
Ennio.63
Post: 1
Registrato il: 27/06/2017
Città: LATINA
Età: 60
Utente Junior
2010
OFFLINE
27/06/2017 17:54
00#3
cusami non sono tant pratic ho inserito un file in excel come esempio puoi cortesemente aggiggermi la forula?
Ennio.63
Post: 2
Registrato il: 27/06/2017
Città: LATINA
Età: 60
Utente Junior
2010
OFFLINE
27/06/2017 17:55
00#4
Si può creare un tasto di funzione?
dodo47
Post: 1.433
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
27/06/2017 18:23
00#5
Ciao
Se lo vuoi sotto pulsante al posto di quello che hai scritto nella sub Riempi, ci scrivi: 
Sub Riempi()
ur = Range("B" & Rows.Count).End(xlUp).Row
Range("B12").Select
ActiveCell.FormulaR1C1 = "1"
Range("B13").Select
ActiveCell.FormulaR1C1 = "2"
Cells(12, 2).AutoFill Destination:=Range("B12:B" & ur), Type:=xlFillSeries
End Sub


E la colleghi ad un pulsante.

saluti
Domenico
Win 10 - Excel 2016
Ennio.63
Post: 3
Registrato il: 27/06/2017
Città: LATINA
Età: 60
Utente Junior
2010
OFFLINE
28/06/2017 12:56
00#6
Grazie
Provo e ti faccio sapere
Ciao
Ennio
Ennio.63
Post: 4
Registrato il: 27/06/2017
Città: LATINA
Età: 60
Utente Junior
2010
OFFLINE
28/06/2017 13:41
00#7
mi da errore
incollo la formula ma mi da errore

Impossibile eseguire la macro "Elenco del personale 222.xls'!Numera'. E' Possibile che tale macro non sia disponibile nella cartella di lavoro o che tutte le macro siano disattivate.
Ennio.63
Post: 5
Registrato il: 27/06/2017
Città: LATINA
Età: 60
Utente Junior
2010
OFFLINE
28/06/2017 15:16
00#8
Ci sono riuscito
Grazie di cuore ci sono riuscito , ho applicato la prima formula che mi hai dato e funziona sia con il tasto e con il comando rapido.
Grazie e buona giornata
[SM=x423028]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Cerca
nei titoli, nei messaggi, con Google
Tag discussione
automatico una excel
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 02:21. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima