Ciao a tutti,ho quasi finito,volevo ringraziare anche Ricky43 per il suo contributo.
Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 81 ospiti