FORMULA O MACRO PER COPIA DEI RECORD

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

stefy06

00venerdì 26 febbraio 2016 13:00

[RISOLTO]MACRO O FORMULA PER COPIA DEI RECORD

Buonasera,volevo chiedervi se riuscivate a risolvermi un problema che mi sta facendo scervellare da un po' di tempo. Ritengo che l'unico modo per essere chiaro nell'esposizione del problema sia allegarvi il file in questione.All'interno ho scritto dei commenti che chiariscono la problematica da affrontare.
Vi ringrazio anticipatamente per l'attenzione.

patel45

00venerdì 26 febbraio 2016 16:08

Sub a()
r = 3
rd = 3
Do
  cold = 21
  Range("K" & r).Copy Cells(rd, cold)
  Range("M" & r & ":P" & r).Copy Cells(rd, cold + 1)
  For c = 1 To 12
    Range("Q" & r & ":S" & r).Copy
    Range(Cells(rd, cold + 5), Cells(rd, cold + 9)).PasteSpecial (xlPasteValues)
    cold = cold + 3
    r = r + 1
  Next
  rd = rd + 1
  If Range("K" & r) = "" Then Exit Do
  Loop

End Sub

se elimini o aggiungi qualche colonna la macro dovrà essere modificata

locatevaresino

00venerdì 26 febbraio 2016 16:32

ciao

intanto che scrivevo la sub() ho visto che patel, che saluto , ti ha gia postato una soluzione
ti posto anche la mia soluzione in base ai tuoi dati

Option Explicit
Sub TrasponiValori()
Dim i As Long, Nriga As Long, Ncol As Long
Dim Vriga As Variant
Nriga = 3
Ncol = 26
For i = 3 To Cells(Rows.Count, "K").End(xlUp).Row
Vriga = Cells(i, "L")
If Vriga = 1 Then
Cells(Nriga, "U") = Cells(i, "K")
Cells(Nriga, "V") = Cells(i, "M")
Cells(Nriga, "W") = Cells(i, "N")
End If
Cells(Nriga, Ncol) = Cells(i, "Q")
Ncol = Ncol + 1
Cells(Nriga, Ncol) = Cells(i, "R")
Ncol = Ncol + 1
Cells(Nriga, Ncol) = Cells(i, "S")
Ncol = Ncol + 1
If Vriga = 12 Then
Nriga = Nriga + 1
Ncol = 26
End If
Next i
End Sub

stefy06

00venerdì 26 febbraio 2016 17:12

E' perfetto.
Patel non so come ringraziarti,sia per l'ottimo lavoro che per la grande tempestività.
Grazie ancora [SM=x423028]

stefy06

00venerdì 26 febbraio 2016 17:14

Grazie mille anche a te locatevaresino,funzionano entrambe benissimo

federico460

00venerdì 26 febbraio 2016 17:20

Ciao
ti posto anche il file
con le formule

mooooooooolto più lunghetto da costruire [SM=x423026]

gennaio e febbraio sono fatti per gli altri divertiti [SM=x423030]

almeno hai la panoramica [SM=g27828]

la colonna J ha CONCATENA ma ho messo il carattere dello stesso colore della cella

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 07:46.