Gestire valori con userform

Anonimo
2024-04-12T08:14:33+00:00

buongiorno a tutti,

avrei bisogno di un altro Vs. aiuto, ho creato una Useform4 che ha un Combobox dove c'è un elenco di valori (che corrisponderebe al Range K54:K90 presente nello stesso foglio) e come vedete nell'immagine, vorrei arrotondare i valori solo due cifre dopo la virgola ,è possibile?

Poi c'è un comandbutton1 che servirebbe per inserire ogni valore di quell'elenco (nello stesso foglio) a partire dalla cella X15 fino alla X50 (colonna SPEZZ.A-B)

ad esempio 306,34 dev'essere inserito nella cella X15 poi 541,53 dev'essere inserito nella cella X16 e così via....

Spero di essere stato chiaro

grazie 1000

[modificato titolo]

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Eleuterio Tedeschi 18,590 Punti di reputazione Moderatore volontario
2024-04-12T15:00:38+00:00

Intanto puoi eleminare dal codice della userform l'evento Change.

Poi l'Initialize lo puoi semplificare in:

Private Sub UserForm_Initialize() 

'VISUALIZZAZIONE SPEZZATE 

    Me.ComboBox1.List = Range("K54:K89").Value 

End Sub 

ed infine il codice che chiedi:

Private Sub CommandButton1_Click() 

Dim sh As Worksheet 

    Set sh = ThisWorkbook.Worksheets("SPEZZATA + PIEGHE") 

    With sh 

        .Unprotect Password:="****" 

        If Me.ComboBox1.Text <> "" Then 

            .Cells(.Cells(Rows.Count, 24).End(xlUp).Row + 1, 24).Value = --Me.ComboBox1.Value 

        End If 

        .Protect Password:="****" 

    End With 

    Set sh = Nothing 

End Sub

Ciao.

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Gianfranco55 25,190 Punti di reputazione Moderatore volontario
2024-04-12T14:10:43+00:00

ciao

per i due decimali cambia la formula così

=SE.ERRORE(ARROTONDA(SE(I15=0;"";SE(X15="";I15+($R$15*TAN(S15));""));2);"")

per l'inserimento aspettiamo i vbaisti

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

7 risposte aggiuntive

Ordina per: Più utili
  1. Gianfranco55 25,190 Punti di reputazione Moderatore volontario
    2024-04-12T09:57:58+00:00

    ciao

    se potessi allegare un file senza dati sensibili

    sarebbe ottimale

    e non guardare lo specialista sei nel forum esatto

    per risposte su macro e formule di excel

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2024-04-12T09:48:34+00:00

    ciao

    forse avevo scritto un titolo non idoneo, ho avuto tanti aiuti in Microsoft Answers per file excel, macro ecc.

    Spero non sia cambiato il sistema di confrontarci anche perchè non sono prorpio un' esperto :-)

    grazie

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2024-04-12T09:30:32+00:00

    La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

    Ciao, andrea70

    Benvenuto nella community Microsoft. 

    Comprendiamo il problema che stai riscontrando. Sfortunatamente, VBA non è supportato nel forum Microsoft Answers. È più adatto per la pubblicazione su Stack Overflow (solo in inglese).   Pubblica le domande di programmazione VBA su Stack Overflow utilizzando il   tag vba , insieme a qualsiasi altro tag pertinente.  

    Tieni presente che Stack Overflow ha linee guida come la richiesta di un titolo descrittivo, una dichiarazione completa e concisa del problema e dettagli sufficienti per riprodurre il problema. Le richieste di funzionalità o le domande troppo generiche sono considerate fuori tema.  

    Dichiarazione di non responsabilità: Microsoft non fornisce alcuna assicurazione e/o garanzia, implicita o di altro tipo, e non è responsabile delle informazioni ricevute dai siti collegati di terze parti o da qualsiasi supporto relativo alla tecnologia.   

    Spero sinceramente che la tua domanda venga trattata in modo appropriato dopo aver contattato il reparto corretto.

    Grazie per la vostra comprensione! 

    Migliori saluti

    Cece | Specialista del supporto della community Microsoft

    La risposta è stata utile?

    0 commenti Nessun commento