Sulle UserForm |
|
|
Storico discussioni |
|
| 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 |
|
| |