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

Excel Forum

	Soluzioni Excel Domande e Risposte
		Creare una macro che al cliccare di un pulsante ........

Rispondi

Registrati

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

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

Ultimo Aggiornamento: 19/04/2020 23:44

Sylwester

Post: 5

Registrato il: 12/04/2020

Età: 43

Utente Junior

excel 2016

OFFLINE

19/04/2020 21:19

00#1

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.

rollis13

Post: 928

Registrato il: 16/08/2015

Città: CORDENONS

Età: 67

Utente Senior

Excel 2016-32bit Win11

OFFLINE

19/04/2020 23:14

00#2

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)

Sylwester

Post: 6

Registrato il: 12/04/2020

Età: 43

Utente Junior

excel 2016

OFFLINE

19/04/2020 23:44