PopAds.net - The Best Popunder Adnetwork

Userform in VBA

  • 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