Contatore automatico apertura File

Hai un problema con Excel?

Nuova discussione

Contatore automatico apertura File
di Andrea (utente non iscritto) data: 24/01/2017 17:43:35
Buon pomeriggio a tutti!!!
sono nuovo del forum!!! ho smanettato un pochino ma non sono riuscito ad ottenere quello che voglio!(allego codice).
Avrei bisogno di una vostri aiutino in quanto non sono molto esperto!
vorrei avere su un file Excel un contatore automatico che si incrementa ogni volta che apro il file.
(il contatore sarebbe il numero di ordini che lancio) sarebbe anche utile aggiungere una stringa di carattere a tale contatore.
in fine vorrei che questo contatore, all'apertura del file, mi chiede se voglio incrementare il contatore oppure no

Sub Auto_Open()
Dim y As String

y = MsgBox("Vuoi generare un numero progressivo?", vbInformation + vbYesNo, "Numerazione Progressiva")

If y = vbYes Then

Sheets("Foglio1").Range("A1").Value = ""
    Sheets("Foglio1").Range("A1").Value = ""
End If

Sheets("Foglio1").Range("A1").Value = Sheets("Foglio1").Range("A1").Value + 1

ActiveWorkbook.Save

End Sub

di Albatros54 data: 24/01/2017 17:56:01
prova cosi.

Sub Auto_Open()
Dim y As String

y = MsgBox("Vuoi generare un numero progressivo?", vbInformation + vbYesNo, "Numerazione Progressiva")

If y = vbYes Then
Sheets("Foglio1").Range("A1").Value = Sheets("Foglio1").Range("A1").Value + 1
end if
ActiveWorkbook.Save

End Sub

di andrea (utente non iscritto) data: 24/01/2017 19:02:37
Fantastico adesso funziona perfettamente!!!!è possible aggiungere il testo al contatore?
di mabolsie data: 24/01/2017 20:24:59
Ciao Andrea non sei molto chiaro però prova cosi. (allegato file Andrea1)

Ciao Max
Contatore automatico apertura File
di andrea (utente non iscritto) data: 26/01/2017 14:36:09
Mi scuso se non sono stato molto chiaro. grazie mabolsie per avermi risposto.
il file che mi hai postato non è quello che cerco!
Provo a spiegarmi meglio!!!
mi servirebbe un file che ad ogni apertura mi aggiorni un progressivo e sarebbe più utile se prima di aggiornare ci fosse un poup di conferma oppure no!!!!
E FINO QUI CI SIAMO!!!!!!
Adesso vorrei riuscire ad inserire dei caratteri!! mi spiego meglio!!
ho un campo ordini che è il seguente: 500/17/RM mi piacerebbe che ad incrementarsi sia solo il numero 500 è fattibile una cosa del genere??
mi scuso ancora!!!!
grazie a tutti!!!

di zsadist data: 26/01/2017 15:09:39
quella che ti posto è una soluzione banalissima..
ve ne sono di migliori, con la ricerca del carattere ad esempio...

comunque..
perdonami, ma per ora sono oberato...

gli altri ti sapranno dire soluzioni più efficienti e migliori

Sub Auto_Open()
Dim y, R, L As String
Dim Num As Long
y = MsgBox("Vuoi generare un numero progressivo?", vbInformation + vbYesNo, "Numerazione Progressiva")
If y = vbYes Then
Sheets("Foglio1").Range("A2").Value = "=LEFT(A1,LEN(A1)-LEN(MID(A1,FIND(""/"",A1,1),100)))+1"
R = Right(Range("A1"), Len(Range("A1")) - Len(Range("A2")))
L = Range("A2")

Sheets("Foglio1").Range("A1").Value = L & R
Sheets("Foglio1").Range("A2") = ""
End If
End Sub

di zsadist data: 26/01/2017 15:26:07
oppure così...
ma sono sempre soluzioni dettate dalla fretta e da uno inesperto...

ti consiglierei di attendere voci più esperte

Sub Auto_Open()
Dim y, R, L As String
Dim Num As Long
y = MsgBox("Vuoi generare un numero progressivo?", vbInformation + vbYesNo, "Numerazione Progressiva")
If y = vbYes Then
L = InStr(Sheets("Foglio1").Range("A1"), "/")
Num = CDbl(Left(Sheets("Foglio1").Range("A1"), Len(Sheets("Foglio1").Range("A1")) - Len(Mid(Sheets("Foglio1").Range("A1"), L, 100))) + 1)
R = Right(Range("A1"), Len(Range("A1")) - Len(Num) + 1)
Sheets("Foglio1").Range("A1").Value = Num & R
End If
End Sub

di Albatros54 data: 26/01/2017 18:42:22
Prova il codice sotto .
ciao
albatros54

Sub m()
valore = Split([a1], "/")
aumenta = valore(0)
totale = aumenta + 1
valore(0) = totale
totale1 = Join(valore, "/")
[a1]=totale1
End Sub

di zsadist data: 26/01/2017 18:46:50
Io non posso provarlo al momento.. Ma sono certo che funzionerà alla grande..
Lo avevo detto io di attendere

grazie albatros.. Ne farò tesoro anch'io

Vuoi Approfondire?