Risultati da 1 a 5 di 5

Discussione: Cancellare tutto lasciando solo alcune celle prima riga



  1. #1
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7

    Cancellare tutto lasciando solo alcune celle prima riga

    Buongiorno a tutti.

    Ho questa macro che utilizzo per cancellare, desideravo modificarla in modo che mi cancella tutto lasciandomi solo l'intestazione e i dati presenti nella seconda riga. Per quando riguarda la seconda riga desidero che non cancelli i dati presenti nei seguenti range (da E2 a J2) da (L2 a Q2) da (S2 a Z2).

    Come posso modificare la seguente macro?

    Codice: 
    Sub cancella()
       Dim uriga As Long
       Mes = MagBox("Stai per cancellare i dati! Vuoi procede?", vbYesNo)
       If Mes = vbYes Then
       uriga = Range("A" & Rows.Count).End(xlDown).Row
       Range("A2:AH" & uriga).ClearContents
       EndIf
    End Sub
    Vi ringrazio per l'attenzione

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    modifica la riga:
    Codice: 
    Range("A3:AH" & uriga).ClearContents 'cancella da A3:AH3 in giù
    Range("A2:D2").ClearContents 'Cancella da A2:D2
    Range("F2:I2").ClearContents 'Cancella da F2:I2
    e procedi a cancellare le celle che ti interessano

    P.S. Potresti fare anche un unica "selezione" range e cancellare es Range("A2:D2, F2:I2, ecc").ClearContents

  3. #3
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    Grazie Rubik ma non mi funziona correttamente, comunque mi cancella tutta la riga 2. Posto il codice che ho implementato, forse ho scritto male qualcosa?

    Codice: 
    Sub Cancella()
        Dim uriga As Long
        Dim Mes As String
        Mes = MsgBox("Sta per cancellare! Vuoi prodcere", vbYesNo)
        If Mes = vbYes Then
        uriga = Range("A" & Rows.Count).End(xlDown).Row
        Range("A3:AH" & uriga).ClearContents
        Range("A2":D2", "AA2:AH2").ClearContents
        End IF
    End Sub
    Inoltre dovrei inserire due singole celle K2 e R2, come posso inserirle?

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    prova così:
    Codice: 
    Sub Cancella()
    Dim uRiga As Long
    Dim Mes As String
    
    
    Mes = MsgBox("Sta per cancellare! Vuoi prodcere", vbYesNo)
    If Mes = vbYes Then
        uRiga = Range("K" & Rows.Count).End(xlUp).Row
        Range("A3:AH" & uRiga).ClearContents
        Range("A2:D2, K2, R2, AA2:AH2").ClearContents
    End If
    
    
    End Sub

  5. #5
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    Perfetto come sempre. Grazie mille Rubik72. Ti auguro una buona giornata.

Discussioni Simili

  1. [Risolto] cancellare riga in base a valori celle
    Di alex_drastic nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 18/02/17, 17:08
  2. DatePicker attivo solo su celle vuote di alcune colonne
    Di AiaceT nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 26/01/17, 03:31
  3. [Risolto] Selezionare solo alcune celle da menù a tendina
    Di ceskonet13 nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 03/01/17, 22:50
  4. cancellare solo una parte di riga
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 19/04/16, 12:47
  5. Risposte: 2
    Ultimo Messaggio: 02/02/16, 15:54

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •