You are here:---Rispondi a: [RISOLTO] Elenco creato da Macro. Ordinamento dei dati
Rispondi a: [RISOLTO] Elenco creato da Macro. Ordinamento dei dati 2018-08-30T09:15:19+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Elenco creato da Macro. Ordinamento dei dati Rispondi a: [RISOLTO] Elenco creato da Macro. Ordinamento dei dati

antinoantino
Partecipante
    Post totali: 25

    Ciao Bysal,

    E’ un programma alquanto complesso che è stato creato con il notevole aiuto di Sid ed inserito nel vecchio sito tra i “Vostri lavori Excel”.

    L’elenco che scaturisce dalla macro suddetta va a prendere i dati anche in una cartella al di fuori di quella in cui è inserita la macro.

    In realtà funziona tutto alla perfezione soltanto che ogni volta devo manualmente provvedere ad ordinarlo in forma crescente in base ai dati della colonna “A” (Clienti).

    Ciò dovrebbe avvenire dopo questa parte di codice e prima della chiusura del file

    'ADATTO LA LARGHEZZA DELLE COLONNE.
    'SELEZIONO IL TITOLO.
    'INSERISCO LA STRINGA "TOTALE" 2 RIGHE DOPO L'ULTIMA CELLA PIENA COL "A".
    'INSERISCO IL TOTALE DELLE DIFFERENZE IN FONDO ALLA COLONNA "D"
    'ADATTO I MARGINI DELLA PAGINA PER LA STAMPA
    
    With wb2.Sheets("Foglio1")
    .Columns("A:D").AutoFit
    .Range("A1:D1").Select
    .Range("A" & riga + 1).Value = "TOTALE"
    .Range("D" & riga + 1).Value = _
    Application.WorksheetFunction.Sum(.Range("D3:D" & riga - 1))
    End With
    With ActiveSheet.PageSetup
    .LeftMargin = Application.InchesToPoints(0.26)
    .RightMargin = Application.InchesToPoints(0.34)
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    
    End With

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi