Excel incolonnare dati

[Statix]

Ciao a tutti,ho quasi finito,volevo ringraziare anche Ricky43 per il suo contributo.

[ricky53]

Ciao,
mi ringrazi e mi dai 10 anni di più ... Uhm non mi piace proprio!!!
Eh, Eh ...

Ciao da Ricky53

[Statix]

Ciao Anthony
ti volevo chiedere se era possibile modificare la macro collax2
per estrapolare solo i numeri pari o dispari invece dei 90 numeri,
la macro dovrebbe avere 2 report uno in J1 per i numeri pari e uno in P1 per i numeri dispari,
è fattibile ? grazie.
P.S. con il vecchio programma in Qbasic avevo l'opzione di estrapolare o tutti i 90 numeri o i numeri che volevo.

[Anthony47]

Per questo modifica la macro come segue:

Codice: Seleziona tutto

Sub collaxEO()
CelleFree = "J1"    '<< Colonna in cui sara' scritto il report
TuArea = "B1:F300" '<< Area con i dati
'
Compen = Range(TuArea).Column: MaxR = 0
Application.ScreenUpdating = False
For Each Cella In Range(TuArea)
Set CFormArea = Range(TuArea).Offset(Cella.Row).Resize(Range(TuArea).Rows.Count - Cella.Row + 1)
If Int(Cella / 2) = Cella / 2 Then OddFl = 0 Else OddFl = 1
If Application.WorksheetFunction.CountIf(CFormArea, Cella.Value) = 0 Then
   Range(CelleFree).Offset(Rows.Count - 1, Cella.Column - Compen + 6 * OddFl).End(xlUp).Offset(1, 0) = Cella.Value
If Range(CelleFree).Offset(Rows.Count - 1, Cella.Column - Compen + 6 * OddFl).End(xlUp).Offset(1, 0).Row > MaxR Then _
   MaxR = Range(CelleFree).Offset(Rows.Count - 1, Cella.Column - Compen + 6 * OddFl).End(xlUp).Offset(1, 0).Row
End If
Next Cella
For Each Cella In Range(CelleFree).Resize(1, Range(TuArea).Columns.Count * 2 + 1)
 Range(Cella, Cells(Rows.Count, Cella.Column).End(xlUp)).Select
 Selection.Cut Destination:=Cella.Offset(MaxR - Selection.Rows.Count, 0)
Next Cella
Range(CelleFree).Select: Application.ScreenUpdating = False
End Sub


Ciao.

[Statix]

Ciao Anthony
tutto ok. grazie