Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Creare una macro che al cliccare di un pulsante ........

  • Messaggi
  • OFFLINE
    Sylwester
    Post: 5
    Registrato il: 12/04/2020
    Età: 43
    Utente Junior
    excel 2016
    00 19/04/2020 21:19
    Buon sera

    Mi servirebbe una macro che facesse queste funzioni

    Al cliccare di un pulsante:
    i valori delle celle del "foglio 1" ad esempio D4,,
    vengano messi nel "foglio 2" nelle colonne "A"
    naturalmente ogni volta che spingo il pulsante i valori del "foglio 1" devono essere riportati nel "foglio 2" in forma di colonna (uno sotto l'altro)

    esempio:
    valori della cella D4 del "foglio 1":
    4, 30, 200 ,50

    dopo ogni volta che faccio eseguire la macro con il pulsante

    nel "foglio 2" nella colonna "A" i valori devono essere in colonna

    A
    4
    30
    200
    50

    Spero di essere stato chiaro, e scusate per il linguaggio non proprio tecnico ma e da poco che mi diletto con excel e vba.

    Grazie mille in anticipo a tutti quanti.
  • OFFLINE
    rollis13
    Post: 928
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Senior
    Excel 2016-32bit Win11
    00 19/04/2020 23:14
    Puoi usare questa mia macro come base di partenza per realizzare quello che chiedi. Mettila in un modulo e creati il pulsante ed assegnaci la macro.
    Option Explicit

Sub suddividi()

    Dim x, ContaVirgole, cella
    
    cella = Sheets(1).Range("D4")
    For x = 1 To Len(cella)
        If Mid(cella, x, 1) = "," Then ContaVirgole = ContaVirgole + 1
    Next x
    Sheets(2).Columns("A:A").ClearContents
    For x = 0 To ContaVirgole
        Sheets(2).Range("A" & x + 1) = Split(cella, ",")(x)
    Next x
    
End Sub
    [Modificato da rollis13 19/04/2020 23:15]

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • OFFLINE
    Sylwester
    Post: 6
    Registrato il: 12/04/2020
    Età: 43
    Utente Junior
    excel 2016
    00 19/04/2020 23:44
    grazie mille

    Adesso provo ad andare avanti .......


Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima