righe colonne

Hai un problema con Excel?

Nuova discussione

righe colonne
di locked key (utente non iscritto) data: 13/11/2017 17:13:33
Ciao a tutti
potreste aiutarmi ad organizzare questi dati

faccio estrazione in excel e mi ritrovo i dati così organizzati
SET 2
N° 3
CODICE 120
IMPORTO 11
li vorrei invece per colonne su un 'unica riga così

SETTORE N° CODICE IMPORTO
2 3 120 11

ovviamente si trattasse di poche righe userei il copia speciale trasponi .............ma sono più di 500 record
come faccio?
grazie mille
di alfrimpa data: 13/11/2017 18:24:02
Puoi usare un ciclo for con step 4 all'interno del quale fai il trasponi.

Alfredo
di LOCKEDKEY data: 13/11/2017 18:50:07
grazie Alfredo per la risposta ............perdonami ma non sono così esperta com'è la formula del ciclo for step ....

di alfrimpa data: 13/11/2017 19:22:45
Ciao "Chiave bloccata"

Il ciclo For Next è un'istruzione di VBA (Visual Basic for Application) che è il linguaggio di programmazione incorporato in tutte le applicazioni Office (Word, Excel, Access etc) e consente di replicare per un determinato numero di volte delle operazioni (nel tuo caso Copia, Incolla speciale, Trasponi).

Prova la macro che vedi sotto che traspone da C2 in poi i dati della colonna A

Ma forse, se non sai nulla di macro, è meglio che alleghi il tuo file con un po' di dati.

Alfredo

Sub prova()
Dim i As Integer
Dim ur As Long
Dim lr As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To ur Step 4
lr = Cells(Rows.Count, 3).End(xlUp).Row
    Range(Cells(i, 1), Cells(i + 3, 1)).Copy
    Cells(lr + 1, "c").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Next i
Range("a1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

di LOCKEDKEY data: 14/11/2017 18:00:39
Ciao Alfredo,

forse ho sbagliato forum il livello è troppo alto per me ..........cambio il nickname in cervello

no macro è troppo per me !!!!!

ho allegato il file con 4 record ....... se riesci a spiegarmelo te ne sarei infinitamente grata
buona serata
Donatella
di alfrimpa data: 14/11/2017 22:18:22
Perdonami Donatella ma l'esempio che hai fatto nel file allegato è completamente diverso da quello che hai indicato nel primo post.

Io avevo immaginato che i dati li avessi tutti in colonna A e su tale struttura avevo scritto la macro.

Puoi spiegare per favore?

P.S. Chi dovrebbe cambiare il nick in cervello?
di Zer0Kelvin data: 14/11/2017 23:51:21
Ciao.
...penso che intendesse "brain" al posto di "key"; chi è l'astuta mente criminale che ha organizzato così i record?
Scherzi a parte, credo che una macro sia indispensabile, ma serve un esempio di come vorresti che fossero disposti i dati nella riga.

di Luca73 data: 15/11/2017 09:20:28
Ciao
Senza usare macro la soluzione potrebbero essere le formule che ti indico sotto in un altro foglio.
Tali formule le copi in basso per ogni riga che ti serve.
Se vuoi poi solo del testo fai un solo copia incolla speciale...

in A1
=SCARTO(Foglio1!$A$1;INT(RIF.RIGA()*2);RIF.COLONNA())
in B1
=SCARTO(Foglio1!$A$1;RIF.RIGA()*2+1;RIF.COLONNA())
in C1
=SCARTO(Foglio1!$A$1;RIF.RIGA()*2;RIF.COLONNA()-1)	
in D1
=SCARTO(Foglio1!$A$1;RIF.RIGA()*2;RIF.COLONNA()-1)
in E1
=SCARTO(Foglio1!$A$1;RIF.RIGA()*2+1;RIF.COLONNA()-4)	
in F1
=SCARTO(Foglio1!$A$1;RIF.RIGA()*2;RIF.COLONNA()-2)

di LOCKEDKEY data: 15/11/2017 10:30:27
ciao ragazzi grazie a tutti per il supporto!

il primo esempio che ho mandato lo avevo un pò pulito per renderlo più semplice da ordinare , ora vi ho mandato l'origine dell'estrazione che faccio e quello che vorrei ottenere....

con la formula dello scarto mi restituisce alcuni valori a zero

ps: Alfredo intendevo il cambio del mio nickname in cervello bloccato
Buona giornata
Donatella

di alfrimpa data: 15/11/2017 12:01:11
Ciao Donatella

Ti ho allegato il tuo file (Donatella.xlsm) nel quale ho inserito la macro che vedi sotto.

Sul foglio ho inserito un pulsante che la esegue.

Tieni però presente che il codice è stato scritto esclusivamente sulla base della struttura dei dati che hai mostrato nel file di esempio; se dovesse cambiare non funzionerebbe più.

La macro funziona indipendentemente dal numero di celle piene in colonna B ma i dati devono partire da B5.

Poi, se vuoi, passeremo alle spiegazioni.

Fammi sapere.

Alfredo

Sub prova()
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Cells(Rows.Count, "B").End(xlUp).Row
Set rng = Range("B5:B" & ur)
Range("I5:l100").ClearContents
For Each cel In rng
lr = Cells(Rows.Count, "I").End(xlUp).Row
    If Left(cel.Value, 5) = "match" Then
        Cells(lr + 1, "I").Value = cel.Offset(0, 1).Value
        Cells(lr + 1, "J").Value = cel.Offset(0, 2).Value
        Cells(lr + 1, "K").Value = cel.Offset(1, 1).Value
        Cells(lr + 1, "l").Value = cel.Offset(0, 3).Value
    End If
Next cel
End Sub

di Luca73 data: 15/11/2017 13:09:34
Ciao
Nell'alternativa a formule ti ho preparato lo stesso esempio di Alfredo (che saluto).
Valgono le stesse ipotesi (cit: Tieni però presente che il codice è stato scritto esclusivamente sulla base della struttura dei dati che hai mostrato nel file di esempio; se dovesse cambiare non funzionerebbe più)

Bisogna solo copiare le formule in basso.
Ciao
Luca
di LOCKEDKEY data: 15/11/2017 15:14:45
grazie mille a tutti....

quindi se faccio un'altra estrazione non posso fare copia e incolla della macro giusto (tenete conto che non ho la vostra conoscenza di excel)

ps: fate dei corsi , se si quanto costano ?

grazie mille
Donatella
di alfrimpa data: 15/11/2017 15:37:28
Ciao Donatella

Se i dati partono sempre dalla cella B5 e per quattro colonne la mia macro (così come le formule di Luca) dovrebbe funzionare.

Quanto ai corsi (io non è ho mai fatti) se ce ne sono costicchiano.

A mio avviso dovresti munirti di un buon manuale di Excel (il più esaustivo possibile) e di VBA e poi tanto Internet; se vai su YouTube trovi una miriade di video che trattano l'argomento tutte le salse.

Questo è un link di uno fatto molto bene

h t t p://forum.wintricks.it/showthread.php?t=155252

Insomma devi munirti di un po' di volontà e passione e studiare un po'

Alfredo
di alfrimpa data: 15/11/2017 15:38:48
Anche su questo forum ne trovi uno

Alfredo

h t t p://www.excelvba.it/corso/
di LOCKEDKEY data: 15/11/2017 17:36:40
grazie mille alfredo proverò da autodidatta ma la vedo dura...........però ci provo

grazie mille per l'aiuto

buona serata
Donatella
di alfrimpa data: 15/11/2017 18:03:02
Ciao Donatella e grazie del riscontro (che non è così scontato)

Come in ogni cosa nella vita occorre impegno, passione e volontà.

Quindi non demordere e non lasciarti scoraggiare dalle prime difficoltà; certo mi rendo conto che tra famiglia, lavoro od altro è complicato trovare il tempo ma ti posso assicurare che, in termini di soddisfazione personale, ne vale assolutamente la pena.

Pensa che io fino a 3/4 anni fa non sapevo neppure dove stesse di casa il VBA.

Comunque per qualsiasi cosa siamo qua.

Alfredo

P.S. Ma poi alla fine quale soluzione hai preferito? Formule o macro?
di LOCKEDKEY data: 15/11/2017 18:22:14
Be dai mi dai coraggio se in 3 - 4 anni hai scoperto il vba ! ma ho davvero poco tempo anche se per il mio lavoro sarebbe fondamentale imparare il più possibile potrei ottimizzare il tempo al minimo

sicuro vi scriverò

uso la macro ma devo ancora fare delle prove ......perchè effettivamente faccio diversi export da differenti siti e le fonti ogni volta cambiano non ho vita facile quando devo fare analisi di vendita e tabelle pivot

grazie ancora
Donatella

Vuoi Approfondire?