Risultati da 1 a 15 di 15

Discussione: Macro cancella



  1. #1
    L'avatar di Ciro72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    45
    Messaggi
    30
    Versione Office
    2007 student
    Likes ricevuti
    1

    Macro cancella

    Buongiorno a tutti,

    vi chiedo se possibile una macro da applicare ad un foglio che cancelli tutti i dati contenuti nelle colonne sotto una specifica intestazione.
    Ho provato una manuale ma è lentissima.

    Ringrazio tutti e buona domenica.

  2. #2
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro cancella

    Usa range.find per trovare l'intestazione e range.delete oppure range.clearcontents per cancellare i dati.
    Saluti
    GG

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  3. #3
    L'avatar di Ciro72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    45
    Messaggi
    30
    Versione Office
    2007 student
    Likes ricevuti
    1

    Re: Macro cancella

    Grazie per aver risposto ma ti chiedo la cortesia di poter inviare un file di esempio........
    sono alle prime armi....

    grazie

  4. #4
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro cancella

    Certo che lo puoi inviare un file di esempio, cosi si capisce bene da dove parti e dove vuoi arrivare...

    Inserisci pure i tuoi tentativi...

    Saluti
    GG

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Macro cancella

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    Certo che lo puoi inviare un file di esempio, cosi si capisce bene da dove parti e dove vuoi arrivare...

    Inserisci pure i tuoi tentativi...

    Saluti
    GG
    ciao GG credo che il file di esempio lo voglia da te

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di Ciro72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    45
    Messaggi
    30
    Versione Office
    2007 student
    Likes ricevuti
    1

    Re: Macro cancella

    Si Baloon grazie...

  7. #7
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro cancella

    Citazione Originariamente Scritto da Ciro72 Visualizza Messaggio
    Si Baloon grazie...
    Ciro, volevo vedere i tuoi tentativi e la struttura del file su cui stavi lavorando, e se l'avevi già postata bastava un collegamento a quella discussione...
    comunque questo è la macro...

    Excel
    A
    B
    C
    D
    E
    F
    G
    H
    I
    J
    1
    campo1 campo2 campo3 campo4 campo5 campo6 campo7 campo8 campo5 campo10
    2
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    3
    2
    4
    6
    8
    10
    12
    14
    16
    18
    20
    4
    3
    6
    9
    12
    15
    18
    21
    24
    27
    30
    5
    4
    8
    12
    16
    20
    24
    28
    32
    36
    40
    6
    5
    10
    15
    20
    25
    30
    35
    40
    45
    50
    7
    6
    12
    18
    24
    30
    36
    42
    48
    54
    60
    8
    7
    14
    21
    28
    35
    42
    49
    56
    63
    70
    9
    8
    16
    24
    32
    40
    48
    56
    64
    72
    80
    10
    9
    18
    27
    36
    45
    54
    63
    72
    81
    90
    11
    10
    20
    30
    40
    50
    60
    70
    80
    90
    100
    Sheet: Foglio1

    Codice: 
    Sub CercaCancella()
    Dim C As Range
    Dim firstAddress As String
        With Range(Cells(1, 1), Cells(1, 1).End(xlToRight))
                Set C = .Find("campo5", LookIn:=xlValues)
                If Not C Is Nothing Then
                     firstAddress = C.Address
                    Do
                    Range(C, C.End(xlDown)).Resize(Range(C, C.End(xlDown)).Rows.Count - 1, 1).Offset(1, 0).ClearContents
                    Set C = .FindNext(C)
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
    End Sub
    Saluti
    GG

  8. I seguenti utenti hanno dato un "Like"


  9. #8
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro cancella

    scritta un po' meglio:
    Codice: 
    Sub CercaCancella()
    Dim C As Range
    Dim firstAddress As String
        With Range(Cells(1, 1), Cells(1, 1).End(xlToRight))
                Set C = .Find("campo5", LookIn:=xlValues)
                If Not C Is Nothing Then
                    firstAddress = C.Address
                    Do
                        With Range(C, C.End(xlDown))
                            .Resize(.Rows.Count - 1, 1).Offset(1, 0).ClearContents
                        End With
                        Set C = .FindNext(C)
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
    End Sub

  10. I seguenti utenti hanno dato un "Like"


  11. #9
    L'avatar di Ciro72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    45
    Messaggi
    30
    Versione Office
    2007 student
    Likes ricevuti
    1

    Re: Macro cancella

    Buonasera GG e grazie per la macro.
    Ti invio un esempio del file che necessito, io ho provato a registrare una rudimentale macro, ma dato che deve cancellare 25 blocchi( sul file di esempio che allego ce ne sono solo quattro), mi rallenta tanto.
    Ho provato ad inserire la tua....... ma non ci riesco....
    Puoi aiutarmi?
    Grazie e buona serata.
    File Allegati File Allegati

  12. #10
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro cancella

    ciao Ciro72,
    se avessi inviato subito il file o avessi messo il collegamento sin da subito avresti fatto priva
    ti ho modificato la macro 1 che hai registrato, così:
    Codice: 
    Sub Macro1()
    ' Macro1 Macro
    Application.ScreenUpdating = False
    Dim i As Long
    For i = 0 To (25 - 1)
            Range(Cells(7, 6 + 10 * i), Cells(647, 10 + 10 * i)).ClearContents
    Next i
    Application.ScreenUpdating = True
    End Sub
    la mia precedente, può diventare questa.
    Codice: 
    Sub CercaCancella()
    Dim C As Range
    Dim firstAddress As String
        With Rows("6:6")
                Set C = .Find("QUANTITA' PRELEVATA", LookIn:=xlValues)
                If Not C Is Nothing Then
                    firstAddress = C.Address
                    Do
                        With C
                            Range(.Offset(1, 0), .Offset(647, 0)).ClearContents
                        End With
                        Set C = .FindNext(C)
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
    End Sub
    saluti
    GG

  13. #11

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: Macro cancella

    Un paio di alternative, giusto per partecipare.

    Visto che le zone da pulire sono fisse basterebbe:

    Codice: 
    Sub CercaCancella_scossa()
      by scossa
      Application.ScreenUpdating = False
      Union(Range(Cells(7, 6), Cells(647, 10)), Range(Cells(7, 16), Cells(647, 20)), _
            Range(Cells(7, 26), Cells(647, 30)), Range(Cells(7, 36), Cells(647, 40))).ClearContents
      Application.ScreenUpdating = True
    End Sub
    Oppure, volendo mantenere la dinamicità come fatto da ggratis (ciao):

    Codice: 
    Sub CercaCancella_scossa2()
      'by scossa
      Dim aRng As Variant
      Dim i As Variant
      Application.ScreenUpdating = False
      aRng = Evaluate("--(F6:AN6=""QUANTITA' PRELEVATA"")*COLUMN(F6:AN6)")
      For Each i In aRng
        If i > 0 Then Range(Cells(7, i), Cells(647, i)).ClearContents
      Next
      Application.ScreenUpdating = True
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  14. #12
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro cancella

    ciao scossa,
    giusto per far presente a Ciro che le tue soluzioni vanno adattate per tener conto dei 25 blocchi cui faceva riferimento.
    Saluti GG

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  15. #13

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: Macro cancella

    Ciao,
    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    giusto per far presente a Ciro che le tue soluzioni vanno adattate per tener conto dei 25 blocchi cui faceva riferimento.
    per la prima sicuramente, per l'altra basta non limitare le colonne:

    Codice: 
    aRng = Evaluate("--(6:6=""QUANTITA' PRELEVATA"")*COLUMN(6:6)")
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  16. #14
    L'avatar di Ciro72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    45
    Messaggi
    30
    Versione Office
    2007 student
    Likes ricevuti
    1

    Re: Macro cancella

    Grazie GG per la macro, super funzionale, la prossima volta allegherò subito eventuali file da correggere.
    Grazie anche e te Scossa.

    Un buon proseguimento di giornata a tutti

  17. #15
    L'avatar di Ciro72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    45
    Messaggi
    30
    Versione Office
    2007 student
    Likes ricevuti
    1

    Re: Macro cancella

    Ciao a tutti,
    ho ancora bisogno di Voi.
    Nel file allegato necessito che là dove la colonna quantità restituisca una cella vuota, vengano cancellate le stringhe di testo delle 4 righe precedenti alla cella vuota. Ovvero le colonne "E;F;G;H". Il tutto per 15 blocchi (carichi).
    Spero di essere stato comprensibile.
    Un saluto a tutti.
    File Allegati File Allegati

Discussioni Simili

  1. [Risolto] Pulsante macro "cancella" che imposti il menù a tendina (convalida) a un valore default
    Di vittorio99 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 31/01/17, 17:04
  2. Macro cancella
    Di Ciro72 nel forum Domande su Excel VBA e MACRO
    Risposte: 28
    Ultimo Messaggio: 03/09/16, 21:40
  3. Cancella celle con una Macro
    Di Giovanni Sauk nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 07/04/16, 10:26
  4. Pulsante Macro Cancella ed esportazione in XML
    Di James nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 03/03/16, 11:08
  5. cancella riga
    Di avenuti nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 20/12/15, 06:30

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
  •