Ordinamento Celle



  • Ordinamento Celle
    di Iocchi (utente non iscritto) data: 24/12/2015 17:23:18

    Salve,
    Ho provato a buttare giu una piccola macro. Praticamente seleziona delle colonne e le cancella in questo modo:
    Columns("A:F").Select
    Selection.Delete
    E' possibile selezionare oltre ad A e F altre colonne e poi cancellarle tutte, perche altrimenti seleziono le colonne, le cancello, poi riseleziono altre colonne e le cancello ancora?

    Una volta che ho le colonne rimaste, ho provato (ho praticamente "rubato" da Internet) a scrivere qualcosa per ordinare le colonne. L'unica cosa che non riesco a capire è questa: perchè mettendo With Range("A1") funziona, mentre se invece metto With Range("A:A") mi ordina la prima colonna ed anche la seconda?

    Ciao e grazie a tutti.

     
    Sub Macro1()
    Columns("A:F").Select
    Selection.Delete
    Columns("B:F").Select
    Selection.Delete
    Columns("D:F").Select
    Selection.Delete
    Selection.Delete
    Cells.Columns.AutoFit
    
    With Range("A1")
    .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    End With
    End Sub
    



  • di Raffaele_53 (utente non iscritto) data: 24/12/2015 23:20:43

    Il comando delete, significa che le elimini
    Pertanto Columns("A:F").Delete .............casomai clearcontents
    Significa che dopo averle eliminate, la cella G1 diventa A1 ecc ecc
    Allega un file e vediamo come procedere



  • di Iocchi (utente non iscritto) data: 24/12/2015 23:37:13

    Ciao, è proprio quello che volevo fare:
    Se ho COLONNA A,B,C,D,E,F e voglio cancellare le colonne A,B ed E faccio:
    Columns("A:B").Select
    Selection.Delete
    poi devo cancellare E che è diventata C, quindi faccio
    Columns("C").Select
    Selection.Delete
    Chiedevo se era possibile selezionare subito A,B ed E e cancellare con una sola procedura, tipo
    Columns("A:B";"E").Select
    Selection.Delete



  • di alfrimpa data: 25/12/2015 00:22:54

    Ciao

    Prova a fare le operazioni manualmente registrandole con il registratore macro e poi guarda il codice risultante

    Alfredo






  • di Raffaele_53 (utente non iscritto) data: 25/12/2015 02:29:22

    Sub cancella()
    Range("A:B,E:E").ClearContents 'oppure clear oppure delete
    End Sub



  • di Oscar (utente non iscritto) data: 25/12/2015 02:43:38

    Questo è il codice per cancellare la colonna A,B,E tutte e 3 le colonne in una sola volta
     
    Range("A:B,E:E").Delete



  • di Iocchi (utente non iscritto) data: 27/12/2015 12:00:06

    Perfetto! E grazie per il suggerimento del registratore macro, onestamente non ne ero al corrente.