Userform in VBA

Hai un problema con Excel?

User form di apoben64

Ho realizzato un form per introdurre i dati in un foglio di excel, nella colonna B ho scritto una funzione =SE per far sì che ogni volta che nella colonna C5 viene inserita ad esempio una data viene attribuito nella colonna B un numero progressivo e questo per ogni dato inserito . Vorrei che questo numero progressivo fosse attribuito automaticamente dalla user form e come gli altri dati incolatto nel foglio di lavoro . Mi potete aiutare ? Un sincero grazie !!!
Ciao Luca

di Mauro

Questa routine associata all'evento click di un pulsante inserito in una Userform verifica se la cella contiene una data, la estrae, la elabora e restituisce il risultato in una cella del foglio attivo.
X elaborare + celle può essere inserito un ciclo Do o For.

Private Sub CommandButton1_Click()
NumRiga = 5
If IsDate(Cells(NumRiga, 3).Text) Then
DataInp = CDate(Cells(NumRiga, 3).Text)
'elaborazione di ProgressOut in base a DataInp
Cells(NumRiga, 2) = ProgressOut
End If
End Sub

di apoben64

Grazie,metto in atto subito il tuo suggerimento, però inceve che vincolare il tutto con una data , che ne pensi se all'apertura della user form gli dò questa istruzione che mi và a leggere l'ultimo progressivo e mi aggiunge 1, visto che vorrei che il numero progressivo si visualizzi direttamente anche nella maschera. Può funzionare ?
l'istruzione potrebbe essere se il progressivo e nella colonna B :
Private sub Userform_Activate()
With Worksheets("foglio1")
Textbox.text=.Range("B65536").End(xlUp).value+1
End with
End sub
Fammi sapere .

di Mauro

La routine va bene... poi tu sai quali sono le tue esigenze.
Cmq se nella userform non devi modificare il progressivo forse ti va meglio un controllo etichetta.
Ovvero:
Label1.Caption = .Range("B65536").End(xlUp).Value + 1

di apoben64

Grazie , ottimo suggerimento , ti faccio sapere .Ciao Luca

Vuoi approfondire questo argomento?