Trasposizione dati....
 
Notifiche
Cancella tutti

La consultazione del forum è libera per tutti.

Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).

Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.

Trasposizione dati... intelligente

4 Post
2 Utenti
0 Reactions
947 Visualizzazioni
Forum 1
(@stefanoe)
Post: 0
New Member
Avviatore di Topic
 

Buongiorno esperti. Ho un file Excel nel quale ad ogni riga corrisponde un codice "membership" e 9 colonne con le annualità di quote pagate o da pagare. Quelle da pagare sono con fondo rosso. Ora: mi servirebbe ottenere un nuovo file Excel nel quale sia ripetuto il codice "membership" n volte dove n è il numero quote da pagare + quelle pagate. Allego esempio e mi affido a voi per la soluzione se ne esiste una. Grazie

 

Versione di Excel
Sistema operativo
 
Postato : 13/03/2021 10:44
Etichette discussione
Marius44
(@marius44)
Post: 0
Moderatore
 

 

Ciao

Ti propongo una soluzione con VBA (a che gradi di conoscenza sei di questo linguaggio?)

Innanzi tutto ho spostato le colonne del tuo esempio più a destra. Quindi ho inserito un pulsante a cui ho assegnato questo codice

Option Explicit

Sub Riporta()
Dim ur As Long, uc As Long, a As Long, i As Long, j As Long
Range("B11:D" & Cells(Rows.Count, 2).End(xlUp).Row + 1).ClearContents
ur = Cells(Rows.Count, 1).End(xlUp).Row
uc = Cells(1, Columns.Count).End(xlToLeft).Column
a = 10
For i = 2 To ur
  For j = 2 To uc
    If Cells(i, j) <> "" Then
      a = a + 1
      Cells(a, 2) = Cells(i, 1)
      Cells(a, 3) = Cells(1, j)
      Cells(a, 4) = Cells(i, j)
    End If
  Next j
Next i
End Sub

Poi ho messo le intestazioni in B10:D10. Clicca sul pulsante e vedi se è quello che chiedi.

Fai sapere. Ciao,

Mario

 
Postato : 13/03/2021 12:06
Forum 1
(@stefanoe)
Post: 0
New Member
Avviatore di Topic
 

@marius44 grazie mille. Allora: il mio grado di conoscenza VBA è tipo sottozero! Sto iniziando da zero.
Ho provato a inserire colonne vuote a sx (ora la colonna membership sta in E). Poi ho inserito un pulsante prendendolo da menu Sviluppo. Poi tasto desto e Assegna Macro. E qui... mi sono bloccato! 

 
Postato : 13/03/2021 14:23
Marius44
(@marius44)
Post: 0
Moderatore
 

Ciao

Ma ti ho allegato il tuo file col pulsante già inserito!!!

 

Per rispondere alla tua domanda: prima devi inserire il codice.

Fai così: ALT + F11 e ti si apre l'Editor di VBA. In alto clicca su Inserisci e, nella finestra che si apre, scegli Modulo. A questo punto nella parte destra vedrai una finestra completamente bianca. Copia il mio codice e incollalo nella finestra.

Adesso con la sequenza che hai descritto prima, quando arrivi a Tasto destro ti si apre la finestra col nome della macro. Cliccaci sopra e dai OK

 

Ciao,

Mario

 
Postato : 13/03/2021 16:00
Condividi:
My Agile Privacy
Questo sito utilizza cookie tecnici e di profilazione. Cliccando su accetta si autorizzano tutti i cookie di profilazione. Cliccando su rifiuta o la X si rifiutano tutti i cookie di profilazione. Cliccando su personalizza è possibile selezionare quali cookie di profilazione attivare.
Attenzione: alcune funzionalità di questa pagina potrebbero essere bloccate a seguito delle tue scelte privacy
     Scarica il nostro ebook gratuito     

Unisciti a oltre 35.000 professionisti
che hanno già scelto di semplificare il proprio lavoro
e aumentare la produttività con la nostra newsletter!

Scarica l’ebook con i
migliori trucchi e suggerimenti per Excel
selezionati per te da Excel Academy

Download