Moderatori: Anthony47, Flash30005
Sub PrePrint()
'parametri chiave
ColSoc = "C" '<< Colonna Societa'
PrimaDati = 2 '<< Prima riga di dati
Spazio = 2 '<< N° di interlinee al cambio Societa'
ColonneDati = "A:F" '<< .. come da nome
'
'
PrimaCo = ColSoc & PrimaDati
Sheets("Print").Select
Cells.Select
Selection.Clear
Sheets("Database").Select
Range(ColonneDati).Copy
Sheets("Print").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Ordina per Compagnia/Assicurato/Data
Columns(ColonneDati).Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A1").Select
'Formatta per spaziature
LastRow = Range(ColSoc & 65536).End(xlUp).Row
OldCo = Range(PrimaCo).Value
I = 0
Cicla:
Range(PrimaCo).Offset(I, 0).Select
CurrCo = ActiveCell.Value
If OldCo <> CurrCo Then
If CurrCo <> "" Then
CurRiga = ActiveCell.Row
Rows(CurRiga & ":" & (CurRiga + Spazio - 1)).Select
Selection.Insert Shift:=xlDown
OldCo = CurrCo
I = I + Spazio
LastRow = LastRow + Spazio
End If
End If
I = I + 1
If I <= LastRow - PrimaDati Then GoTo Cicla
End Sub
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 22 ospiti