ho realizzato la seguente macro per copiare i valori dispoti su colonne adiacenti ma su righe discontinue, 1 riga piena ogni 2 righe vuote, ed incollarli in altre celle aventi la stessa disposizione del range di partenza:
- Codice: Seleziona tutto
Sub INCOLLA_VAL()
'evita saltellamenti (scrolling) a schermo
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.Cursor = xlWait
'dichiarazioni delle variabili come Range
Dim R1, R2, R3, R4, R5, R6, R7, R8, R9
Dim C1, C2, C3, C4, C5, C6, C7, C8, C9
Dim Intervallo1 As Range, Intervallo2 As Range
With Sheets("Foglio1")
Set R1 = Range("C4:N4")
Set R2 = Range("C7:N7")
Set R3 = Range("C10:N10")
Set R4 = Range("C13:N13")
Set R5 = Range("C16:N16")
Set R6 = Range("C19:N19")
Set R7 = Range("C22:N22")
Set R8 = Range("C25:N25")
Set R9 = Range("C28:G28")
Set C1 = Range("Q4:AB4")
Set C2 = Range("Q7:AB7")
Set C3 = Range("Q10:AB10")
Set C4 = Range("Q13:AB13")
Set C5 = Range("Q16:AB16")
Set C6 = Range("Q19:AB19")
Set C7 = Range("Q22:AB22")
Set C8 = Range("Q25:AB25")
Set C9 = Range("Q28:U28")
End With
Set Intervallo1 = Union(R1, R2, R3, R4, R5, R6, R7, R8, R9)
Set Intervallo2 = Union(C1, C2, C3, C4, C5, C6, C7, C8, C9)
Intervallo1.Select
Selection.Copy ********************
Intervallo2.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.Cursor = xlDefault
Range("A1").Select
End Sub
la macro si blocca in corrispondenza della linea asteriscata.
quali sono le modifiche da apportare per ottenere il copia-incolla?
ciao grazie