Previous page | 1 | Next page
Facebook  

Spostare i numeri in verticale e orizzontale con pulsante macro

Last Update: 9/5/2019 8:27 PM
Author
Print | Email Notification    
Post: 24
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/2/2019 7:13 PM
 
Modify
 
Delete
 
Quote

Spostare i numeri delle righe attraverso pulsante macro
Salve a tutti, vorrei poter spostare i numeri delle righe attraverso pulsanti con le macro.

Allego file di esempio.
Grazie mille.
[Edited by cico777 9/2/2019 7:38 PM]
Confronto automatico tra più righe di terni.numeri10/14/2019 10:11 AM by cico777
Elenchi Registi con più Film Degni di NotaAnkie & Friends - L&#...con10/6/2019 9:34 AM by anklelock89
Excel registrazione macromacro10/9/2019 3:08 PM by satos
Post: 719
Registered in: 6/24/2015
Location: CATANIA
Age: 75
Senior User
Excel2010
OFFLINE
9/2/2019 10:16 PM
 
Modify
 
Delete
 
Quote

Ciao
Non ho visionate il file ma ti consiglio di cercare

Trasporre (ruotare) dati da righe a colonne o viceversa

nella Guida di Excel.

Ciao,
Mrio
Post: 24
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/3/2019 2:02 PM
 
Modify
 
Delete
 
Quote

La ringrazio per l'interesse ma probabilmente mi sono espresso male, non è quello che volevo il titolo è ingannevole, ho cercato di correggerlo ma non ci sono riuscito; il file fa capire cosa sto cercando.
Vorrei poter spostare i numeri da sinistra a destra col pulsante tramite macro.
Grazie.
Post: 1,284
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
9/3/2019 3:34 PM
 
Modify
 
Delete
 
Quote

Re:
ciao a tutti [SM=x423028]

cico777, 03/09/2019 14.02:


il file fa capire cosa sto cercando.
Vorrei poter spostare i numeri da sinistra a destra col pulsante tramite macro.




Da quello che dici, dovrebbe essere un taglia/incolla.
Prova con il registratore di macro.

Ma dubito che sia solo questo ciò che stai cercando.............

Ciao
Frank
Excel 2007

1 - Per "prodotti finiti", ricordo l'esistenza di apposite Software House a pagamento. Questo è un Forum
2 per cortesia, leggi questa e questa discussione.
3 - allega SUL FORUM un file di esempio, chi ti vuole aiutare risparmia tempo, e tu forse hai una soluzione prima di quello che ti aspetti :-)
Usa siti di hosting SOLO in estrema necessità: in caso il server del forum abbia problemi.
4 - Ricordati di condividere le soluzioni che trovi da solo: potrebbero essere utili anche per le persone a cui chiedi aiuto.
Post: 3,448
Registered in: 4/3/2013
Master User
Excel 2000 - 2013
OFFLINE
9/3/2019 3:40 PM
 
Modify
 
Delete
 
Quote

Buon pomeriggio, @cico777;
mi perdoni ma non mi è perfettamente chiaro ciò che desidera ottenere.

Potrebbe, cortesemente, esplicitare il risultato che desidera ottenere nel Foglio2 ?

Grazie.



A disposizione.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 25
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/4/2019 1:12 PM
 
Modify
 
Delete
 
Quote

Chiedo scusa ricarico il file corretto senza il foglio 2.

Con i pulsanti vengono spostati i numeri in modo che premendo la prima volta nella riga 3 l' 1 va al posto del 2, il 2 al posto del 3,
l' 11 al posto del 1 e così via.
Grazie.
Post: 720
Registered in: 6/24/2015
Location: CATANIA
Age: 75
Senior User
Excel2010
OFFLINE
9/4/2019 4:07 PM
 
Modify
 
Delete
 
Quote

Ciao
Nel tuo file ho inserito, nel Modulo di Foglio1, questa macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim num(1 To 11)
If Not Intersect(Target, Range("L:L")) Is Nothing Then
  r = Target.Row
  If Cells(Target.Row, 1) <> "" Then
    If r >= 3 And r <= 6 Then
      For i = 1 To 11
        num(i) = Cells(r, i)
      Next i
      For i = 1 To 10
        temp = num(i)
        num(i) = num(i + 1)
        num(i + 1) = temp
        Cells(r, i + 12) = num(i)
      Next i
      Cells(r, 23) = num(11)
    ElseIf r >= 12 And r <= 15 Then
      For i = 1 To 11
        num(i) = Cells(r, i)
      Next i
      For i = 1 To 10
        temp = num(i)
        num(i) = num(i + 1)
        num(i + 1) = temp
        Cells(r, i + 12) = num(i)
      Next i
      Cells(r, 23) = 1 + num(10)
    End If
  End If
End If
End Sub


Ci sono due tipi di spostamento perchè credo che nella tua richiesta ci sia un errore.
Ti allego il file (basta selezionare una cella della colonna L)
Fai sapere. Ciao,
Mario
Post: 2,363
Registered in: 4/6/2013
Location: ROMA
Age: 72
Veteran User
2010
OFFLINE
9/4/2019 4:37 PM
 
Modify
 
Delete
 
Quote

Re:
cico777, 04/09/2019 13.12:

....premendo la prima volta ....



tre curiosità:
- e premendo la seconda volta etc etc ??

- devi creare una nuova tabella o sovrascrivere l'esistente?

- ci sono spazi vuoti nelle colonne ?

saluti



[Edited by dodo47 9/4/2019 4:38 PM]
Domenico
Win 10 - Excel 2016
Post: 721
Registered in: 6/24/2015
Location: CATANIA
Age: 75
Senior User
Excel2010
OFFLINE
9/4/2019 6:20 PM
 
Modify
 
Delete
 
Quote

Ciao Domenico

cosa intendi? Non capisco!
Se selezioni una cella della colonna L, esegue - chiamiamola così per semplicità - la trasposizione dei dati (presenti o non presenti) nelle celle a fianco PURCHE' la cella della col.A relativa sia piena.

Ciao,
Mario
Post: 26
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/4/2019 7:25 PM
 
Modify
 
Delete
 
Quote

Grazie per l aiuto ma non e' quello che volevo.
Ogni volta che premo il pulsante i numeri si sovrascrivono e si spostano a destra di una cella e l'ultimo diventa primo.

Quando premo la seconda volta l'1 che passa a b3 ora si sposta su c3, il 2 che ha preso il posto di 3 in c3 ora passa a d3, il 3 passa a e4 ecc.. L'11 ora passa a a3 e cosi via.
Grazie.
Post: 722
Registered in: 6/24/2015
Location: CATANIA
Age: 75
Senior User
Excel2010
OFFLINE
9/4/2019 9:03 PM
 
Modify
 
Delete
 
Quote

Ciao
Guarda che è quello che fa la mia macro con la differenza che, per farti notare il lavoro, riporta i numeri dalla colonna K i poi. Ma basta sostituire qualcosa ed il gioco è fatto.

Ciao,
Mario
Post: 27
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/4/2019 9:52 PM
 
Modify
 
Delete
 
Quote

La ringrazio, i numeri devono stare all'interno delle righe da A a K non fuori.
Grazie tante.
Post: 2,364
Registered in: 4/6/2013
Location: ROMA
Age: 72
Veteran User
2010
OFFLINE
9/5/2019 9:49 AM
 
Modify
 
Delete
 
Quote

@Mario

"le curiosità" erano rivolte a cico non a te Mario....😉

cari saluti



Domenico
Win 10 - Excel 2016
Post: 3,449
Registered in: 4/3/2013
Master User
Excel 2000 - 2013
OFFLINE
9/5/2019 1:18 PM
 
Modify
 
Delete
 
Quote

Buon pomeriggio gentilissimo @cico777;
solo una domanda, la sequenza in A3:K3 deve essere:

2    3    4    5    6    7    8    9    10    11    1

oppure

2    3    4    5    6    7    8    9    10    11    12



Grazie dell'attenzione che potrà dedicarmi.



Buon pomeriggio.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 3,453
Registered in: 4/3/2013
Master User
Excel 2000 - 2013
OFFLINE
9/5/2019 3:22 PM
 
Modify
 
Delete
 
Quote

Buon pomeriggio, @cico777;
mi perdoni l'ardire, ma, considerando che molto difficilmente potrò seguire questa interessante discussione prima di Lunedì p.v. mi permetto di proporre un Codice VBA.

Preliminarmente è necessario posizionare il cursore su una Cella della Riga da analizzare, poi si può attivare questo Codice VBA.

 
Option Explicit

Sub Analizza()
Application.ScreenUpdating = False
Dim x As Byte
Dim Rcd(11) As Byte

    For x = 1 To 11
        Rcd(x) = Cells(ActiveCell.Row, x)
    Next x
        Cells(ActiveCell.Row, 1) = Rcd(11)
    For x = 2 To 11
        Cells(ActiveCell.Row, x) = Rcd(x - 1)
    Next x
Application.ScreenUpdating = True
End Sub

In buona sostanza, relativamente alla Riga 3, il risultato sarebbe:



11 1 2 3 4 5 6 7 8 9 10


Veda Lei se il risultato può essere soddisfacente.



Considerando che sarò assente da domani fino a Lunedì p.v., auguro a Tutti un buon fine settimana.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 28
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/5/2019 3:43 PM
 
Modify
 
Delete
 
Quote

La ringrazio per l'aiuto, non essendo esperto non ho capito come attivare il codice vba.
Ho messo il codice da lei creato nel modulo vba del foglio in esame ma non so come proseguire.
Grazie tante.
Post: 3,454
Registered in: 4/3/2013
Master User
Excel 2000 - 2013
OFFLINE
9/5/2019 4:37 PM
 
Modify
 
Delete
 
Quote

Buon pomeriggio, @cico777;
uno dei modi per attivare un Codice VBA potrebbe essere quello di attribuire ad un pulsante questo compito.
Voglio dire, premendo un "pulsante" al quale è stato legato un Codice VBA, è possibile attivarne l'esecuzione.

Per i miei Test ho delegato a questo scopo una delle "frecce" già presente nel Foglio1 del Suo esempio.

Nell'immagine in allegato ho cercato di spiegare i passaggi essenziali per ottenere quanto sopra esposto.

Nel caso in cui non sia stato esaustivo, Lunedì, posso allegare il File con il quale ho condotto i miei Test.



A disposizione.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 29
Registered in: 5/27/2019
Location: MILANO
Age: 52
Junior User
2016
OFFLINE
9/5/2019 8:27 PM
 
Modify
 
Delete
 
Quote

Grazie ancora e buon fine settimana anche a lei.
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 2:19 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com