Risultati da 1 a 25 di 25

Discussione: Pulsante Macro per cancellare tutti i dati che ci sono in 31 Fogli



  1. #1
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Pulsante Macro per cancellare tutti i dati che ci sono in 31 Fogli

    Ciao ragazzi
    Questo non è un quiz, ho creato un progetto per i miei colleghi del ricevimento del hotel dove lavoro, e per semplificargli un po la vita vorrei creargli una piccola MACRO che verrà poi eseguita da un pulsante, e la Macro mi permetterà di cancellare tutto il contenuto di tutti i fogli per ricominciare con il nuovo mese
    ragazzi, registrare una macro del genere non è affatto difficile, però il problema che dovendo cancellare i contenuto per 31 fogli la cosa mi sembra un po più complicata
    Credo che bisogna registrare la macro sul primo foglio e poi bisogna intervenire sul codice per cancellare anche gli altri fogli
    credo di aver capito la logica ma non saprei farlo perchè il VBA è ancoro troppo lontano.
    grazie per il Vostro prezioso aiuto

    Allego DROPBOX
    https://www.dropbox.com/s/wf670jpged...BRE1.xlsx?dl=0

    PS attenzione i fogli che son 31 come i giorni del mese sono protetti da password ma ovviamente questo non disturba perchè le celle da cancellare sono sbloccate.
    Ultima modifica fatta da:Gerardo Zuccalà; 17/09/15 alle 21:13

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Ciao Gerardo.
    C'è gia stata una soluzione per quanto chiedi, comunque ti allego il codice da utilizzare
    In pratica cancella il contenuto delle celle sbloccate di tutti i fogli a prescindere da quanti sono.

    Codice: 
    Public Sub CancellaCelleNonBloccateTuttiFogli() 
    Dim sh As Worksheet
    Dim lRisposta As Long
        
    lRisposta = MsgBox("Eliminare i dati dalle celle non pro*****?", _
    vbYesNo + vbQuestion, "Attenzione!")                                  ' chiede conferma della cancellazione
            
    If lRisposta = vbYes Then
    	Application.DisplayAlerts = False
    
    
            For Each sh In ThisWorkbook.Worksheets   ' per tutti i fogli (worksheets) della cartella (workbook)
    		On Error Resume Next
    		sh.UsedRange.Value = ""          ' cancella i dati sbloccati di tutti i foglio
            Next
           
            MsgBox "Operazione completata"
            Application.DisplayAlerts = True
    End If
        
    Set sh = Nothing
        
    End Sub
    spero ti sia risolva il tuo problema :299:

    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)

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ciao baloon
    Grazie per la risposta ottiama soluzione, pero il tuo codice non l'ho neache testato perchè non credo che farà il caso mio per due motivi

    1) In futuro qualche foglio potrebbe essere anche sbloccato, devo mettere a condizione di chi lo userà che se fa delle modifiche e dimentica di ri bloccare il foglio con password non incappi in spiacevoli inconvenienti cioè mi cancella tutto.

    2) Se hai notato i fogli che vanno dal 1 al 31 hanno all'interno tante piccole tabelle e io ho sbloccato (per fare veloce) anche il numero delle camere e ovviamente la tua MACRO andrebbe a cancellare anche il numero di camera (perchè appunto non'è bloccata), a questo punto tu mi chiederai perchè non hai bloccato anche i numeri di camera? lo so troppo tardi non ho la pazienza di risbloccare anche il numero di camera x 31 fogli...:235:

    io credo che la strada da percorrere (secondo la mia logica) e registrare un macro su un foglio, esempio Foglio1 e poi quel codice VBA incollarlo 31 volte e cambiando solo i riferimenti
    Non so se mi sono spiegato
    a disposizione Grazie!
    Ultima modifica fatta da:Gerardo Zuccalà; 17/09/15 alle 21:50

  5. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Gerardo e ciao Baloon_50
    Prova con il codice seguente (non hai bisogno di sproteggere e riproteggere nulla.
    Codice: 
    Option Explicit
    Sub CancNonPro()
    Dim sh As Worksheet, i As Long, fine As Long
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets   ' per tutti i fogli (worksheets) della cartella (workbook)
        fine = 11
        For i = 2 To 85 Step 12
            Range("B" & i & ":U" & fine).ClearContents
            fine = fine + 12
        Next i
    Next
    Application.ScreenUpdating = True
    MsgBox "Operazione completata"
    End Sub
    Questa macro va associata ad un pulsante Modulo che puoi mettere ovunque. Prova e fammi sapere.
    Ciao,
    Mario

  6. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    io credo che la strada da percorrere (secondo la mia logica) e registrare un macro su un foglio, esempio Foglio1 e poi quel codice VBA incollarlo 31 volte e cambiando solo i riferimenti
    Non so se mi sono spiegato
    a disposizione Grazie!
    allora usa questo, poi per ogni foglio crei un bottone che richiami sempre questo codice

    Codice: 
    Public Sub CancellaCelleNonBloccate()
    
    Dim sh As Worksheet
    Dim lRisposta As Long
        
    lRisposta = MsgBox("Eliminare i dati dalle celle non pro*****?", _
    vbYesNo + vbQuestion, "Attenzione!")                                  ' chiede conferma della cancellazione
            
    If lRisposta = vbYes Then
        Application.DisplayAlerts = False
    
    
            On Error Resume Next
            ActiveSheet.UsedRange.Value = ""          ' cancella i dati sbloccati di tutti i foglio
            MsgBox "Operazione completata"
            Application.DisplayAlerts = True
    End If
        
    Set sh = Nothing
        
    End Sub
    :299:

    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)

  7. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Scusa Baloon_50, ci siamo accavallati.
    Tenete presente che il mio codice va scritto su un Modulo standard UNA SOLA VOLTA ed associato ad un pulsante. Ovviamente può anche essere associato ad un pulsante in ogni foglio, ma il codice è sempre quello.
    Ciao,
    Mario

  8. #7
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    @baloon_50 Grazie mille tuttavia
    ho testato la tua Formula che potrebbe andare bene solo che mi cancella anche i numeri di stanza (perchè ovviamente non sono protetti) e ovviamente riscriverli non sarebbe il massimo, perchè da un lato guadagno tempo e dall'altro lo perdo.....
    per i numeri di stanza intendo quei che vedi in questa immagine che arrivano fino alla stanza 1708




    @Mariuss44 la tua formula funziona benissimo ed è poca pericolosa perche non va a vedere se il foglio è protetto o meno
    solo che vorrei estendere questa tua formula per tutti e 31 fogli...
    pensi che sia possibile?
    Grazie

  9. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Scusa Baloon_50, ci siamo accavallati.
    Tenete presente che il mio codice va scritto su un Modulo standard UNA SOLA VOLTA ed associato ad un pulsante. Ovviamente può anche essere associato ad un pulsante in ogni foglio, ma il codice è sempre quello.
    Ciao,
    Mario
    Woooww!! funziona alla grande!!!
    Si può creare un solo pulsante che mi cancella tutti i contenuti dei 31 fogli?
    grazie

  10. #9
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    47
    Messaggi
    171
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    11
    Un'alternativa alla macro di Mario... (ciao)

    Sub PulisciGG()
    Dim arr(1 To 31), i As Byte
    Dim Strg As String
    Strg = "$B$2:$U$11,$B$14:$U$23,$B$26:$U$35,$B$38:$U$47,$B$50:$U$59,$B$62:$U$71,$B$74:$U$83,$B$86:$U$95"

    For i = 1 To 31
    arr(i) = i
    Next

    Sheets(arr).Select
    Range(Strg).ClearContents

    Foglio32.Select

    MsgBox "Tutto pulito!!"

    End Sub

    Anche questa macro è valida per tutti i 31 fogli e viene creata una sola volta. Poi lanciata all'occorrenza.

  11. #10

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1015
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Puoi provare questo codice, però il foglio "15" ha tutte le celle pro*****, quindi prima devi sporteggerle come negli altri fogli:

    Codice: 
    Public Sub PulisciTutti()
    
    
      On Error GoTo PulisciTutti_Error
    
    
      Dim wb As Workbook
      Dim ws As Worksheet
      Dim rng As Range
      Dim rngToClr As Range
      Dim j As Integer
      Dim k As Integer
    
    
      Set wb = ThisWorkbook
      
      For k = 1 To 31
        Set ws = wb.Worksheets(CStr(k))
        With ws
          Set rng = .Range("$B$2:$U$11")
          Set rngToClr = rng
          For j = 1 To 7
            Set rng = rng.Offset(12)
            Set rngToClr = Union(rngToClr, rng)
          Next j
          rngToClr.ClearContents
        End With
      Next k
    
    
      On Error GoTo 0
      'Exit Sub
    
    
    PulisciTutti_Error:
      If Err.Number <> 0 Then
        MsgBox "Error: " & Err.Description, vbCritical, "ERRORE"
      End If
      Set rngToClr = Nothing
      Set rng = Nothing
      Set ws = Nothing
      Set wb = Nothing
    End Sub
    Edit: ma non si può eliminare la censura sulla parola "protett_", almeno mettere nelle parole censurate " tet_e" (con uno spazio davanti), suvvia!
    Ultima modifica fatta da:scossa; 17/09/15 alle 23:37
    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)

  12. I seguenti utenti hanno dato un "Like"


  13. #11
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Textomb Visualizza Messaggio
    Un'alternativa alla macro di Mario... (ciao)

    Sub PulisciGG()
    Dim arr(1 To 31), i As Byte
    Dim Strg As String
    Strg = "$B$2:$U$11,$B$14:$U$23,$B$26:$U$35,$B$38:$U$47,$B$50:$U$59,$B$62:$U$71,$B$74:$U$83,$B$86:$U$95"

    For i = 1 To 31
    arr(i) = i
    Next

    Sheets(arr).Select
    Range(Strg).ClearContents

    Foglio32.Select

    MsgBox "Tutto pulito!!"

    End Sub

    Anche questa macro è valida per tutti i 31 fogli e viene creata una sola volta. Poi lanciata all'occorrenza.
    Ciao TextTomb
    Purtroppo non funziona non cancella neanche un dato
    mi esce solo il msgBoox "tutto pulito" ma in realtà non ha pulito niente
    Prova a mettere il tuo allegato, vediamo magari sbaglio io

  14. #12

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1015
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Citazione Originariamente Scritto da Textomb Visualizza Messaggio
    Un'alternativa alla macro di Mario... (ciao)
    Ops, non avevo visto la tua risposta.
    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)

  15. #13
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Puoi provare questo codice, però il foglio "15" ha tutte le celle pro*****, quindi prima devi sporteggerle come negli altri fogli:

    Edit: ma non si può eliminare la censura sulla parola "protett_", almeno mettere nelle parole censurate " tet_e" (con uno spazio davanti), suvvia!
    Ciao Scossa
    grazie per la risposta
    Puoi provare questo codice, però il foglio "15" ha tutte le celle pro*****,
    sbloccate come le altre

    non ho capito la logica della tua formula credo che anche tu come ballon voglia lavorare su fogli protetti, ma questo potrebbe essere una operazione pericolosa perche a volte i fogli vengono sprotetti.
    Poi ho incollato la tua formula su un modulo stadrart e quando cerco di eseguire la macro con il tasto ALT+F8 non vedo nessuna macro nel wizard e quindi non posso creare il bottone che mi servirà ad eliminare tutto il contenuto di tutti e 31 fogli
    Scossa tieni presente che questa cartella di lavoro passa dalle mani di decine di persone e vorrei metterli a condizione che con un semplice click acncella tutto il contenuto ..
    grazie

  16. #14
    L'avatar di Pagero
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano
    Età
    36
    Messaggi
    18
    Versione Office
    Excel 2013
    Likes ricevuti
    6
    Likes dati
    1
    Se i fogli da 1 a 31 sono tutti uguali direi di fare una macro molto semplice:

    file:
    https://www.dropbox.com/s/d5m6sgaajj...BRE1.xlsm?dl=0

    Codice:

    'Seleziona i fogli da 1 a 31 (escluso il foglio 15 in quanto è protetto da password)
    Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")).Select

    'Seleziona le celle interessate
    Range("B2:U11,B14:U23,B26:U35,B38:U47,B50:U59,B62:U71,B74:U83,B86:U95").Select
    'Elimina il contenuto
    Selection.ClearContents


    Oppure senza VBA:

    selezionare un foglio qualsiasi -> tasto destro del mouse -> "seleziona tutti i fogli" -> CTRL + tasto sinistro del mouse sui fogli da deselezionare (TotMeseCamera - TotMese)

    Una volta che sono stati selezionati i fogli da 1 a 31 l'operazione effettuata su un foglio avrà effetto su tutti gli altri.

    N.B.: necessariamente i fogli da 1 a 31 devo essere uguali e le celle da eliminare non devono essere pro*****.

  17. I seguenti utenti hanno dato un "Like"


  18. #15
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Comunque se vi serve
    la password per bloccare e sbloccare è
    qqqq

  19. #16
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Pagero Visualizza Messaggio
    Se i fogli da 1 a 31 sono tutti uguali direi di fare una macro molto semplice:

    file:
    https://www.dropbox.com/s/d5m6sgaajj...BRE1.xlsm?dl=0

    Codice:

    'Seleziona i fogli da 1 a 31 (escluso il foglio 15 in quanto è protetto da password)
    Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")).Select

    'Seleziona le celle interessate
    Range("B2:U11,B14:U23,B26:U35,B38:U47,B50:U59,B62:U71,B74:U83,B86:U95").Select
    'Elimina il contenuto
    Selection.ClearContents


    Oppure senza VBA:

    selezionare un foglio qualsiasi -> tasto destro del mouse -> "seleziona tutti i fogli" -> CTRL + tasto sinistro del mouse sui fogli da deselezionare (TotMeseCamera - TotMese)

    Una volta che sono stati selezionati i fogli da 1 a 31 l'operazione effettuata su un foglio avrà effetto su tutti gli altri.

    N.B.: necessariamente i fogli da 1 a 31 devo essere uguali e le celle da eliminare non devono essere pro*****.
    Wooowww! Pagero!!!
    Ci siamo quasi
    per completare il tuo codice mi servirebbe che il cursore si posizionasse nella cella B2 del foglio 1, e poi mi venisse fuori il msgBox che dice tutto pulito!
    è possibile?
    Grazie

  20. #17
    L'avatar di Pagero
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano
    Età
    36
    Messaggi
    18
    Versione Office
    Excel 2013
    Likes ricevuti
    6
    Likes dati
    1
    ok

    Ho aggiunto anche un msgbox per confermare l'elimazione dei dati

    Sub CancellaDati()

    domanda = MsgBox("Eliminare i dati?", vbYesNo + vbQuestion, "Attenzione!")

    If domanda = vbYes Then
    'Seleziona i fogli da 1 a 31 (escluso il foglio 15 in quanto è protetto da password
    Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")).Select

    'Seleziona le celle interessate
    Range("B2:U11,B14:U23,B26:U35,B38:U47,B50:U59,B62:U71,B74:U83,B86:U95").Select
    'Elimina il contenuto
    Selection.ClearContents

    Sheets("1").Select
    range("b2").select

    MsgBox "Tutto pulito!!"

    End If


    End Sub

  21. I seguenti 2 utenti hanno dato un "Like" a Pagero per questo post:


  22. #18

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1015
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio

    non ho capito la logica della tua formula credo che anche tu come ballon voglia lavorare su fogli protetti, ma questo potrebbe essere una operazione pericolosa perche a volte i fogli vengono sprotetti.
    La mia macro funziona con i fogli protetti, ma le celle da pulire non devono essere bloccate. Sul foglio 15 erano bloccate.

    Ti allego il file:
    SETTEMBRE1.xlsm
    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)

  23. #19
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    47
    Messaggi
    171
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    11
    la macro funziona bene. Ma il foglio 15 era protetto e quindi non andava,
    Lo rimetto completo.

    Sub PulisciGG()
    Dim arr(1 To 31), i As Byte
    Dim Strg As String
    Strg = "$B$2:$U$11,$B$14:$U$23,$B$26:$U$35,$B$38:$U$47,$B$50:$U$59,$B$62:$U$71,$B$74:$U$83,$B$86:$U$95"

    For i = 1 To 31
    arr(i) = i
    Next

    Sheets(arr).Select
    Range(Strg).Select
    Selection.ClearContents

    Foglio32.Select
    Foglio1.select
    Range("b2").select

    MsgBox "Tutto pulito!!"

    End Sub

  24. #20
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Pagero Visualizza Messaggio
    ok

    Ho aggiunto anche un msgbox per confermare l'elimazione dei dati

    Sub CancellaDati()

    domanda = MsgBox("Eliminare i dati?", vbYesNo + vbQuestion, "Attenzione!")

    If domanda = vbYes Then
    'Seleziona i fogli da 1 a 31 (escluso il foglio 15 in quanto è protetto da password
    Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")).Select

    'Seleziona le celle interessate
    Range("B2:U11,B14:U23,B26:U35,B38:U47,B50:U59,B62:U71,B74:U83,B86:U95").Select
    'Elimina il contenuto
    Selection.ClearContents

    Sheets("1").Select
    range("b2").select

    MsgBox "Tutto pulito!!"

    End If


    End Sub
    Grande Pagero!!!
    Fino adesso devo dire che funziona esattamente come volevo io e leggendo la tua formula è anche abbastanza comprensibile,
    Pagero un'ultima cosa, non so se è possibile, ti spiego:
    Questo file ogni mese bisogna crearne uno nuovo e bisognerebbe fare Prima un "Salva con Nome" prima di Svuotare tutto, perchè il problema che se gli operatoti del ricevimento mi cliccano il pulsante "CANCELLA DATI" ineviatbilmente mi perdono tutto, ed io vorrei una sorta di buckup, cioè fare in modo che mi si apre la finestra "Salva con Nome" e cosi siamo in una botte di ferro e i dati non vanno persi
    Credo che bisognerebbe mettere un piccolo codice VBA all'inizio dei quella bellissima formula che hai fatto che mi apre la finestra del "salava con Nome"
    è possibile
    grazie

  25. #21
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    47
    Messaggi
    171
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    11
    non avevo visto... scusami.

  26. #22
    L'avatar di Pagero
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano
    Età
    36
    Messaggi
    18
    Versione Office
    Excel 2013
    Likes ricevuti
    6
    Likes dati
    1
    Il codice:

    Sub CancellaDati()

    'Salva File (percorso predefinito -> "c:\" si può personalizzare)
    Application.Dialogs(xlDialogSaveAs).Show ("c:\")


    domanda = MsgBox("Eliminare i dati?", vbYesNo + vbQuestion, "Attenzione!")

    If domanda = vbYes Then
    'Seleziona i fogli da 1 a 31 (escluso il foglio 15 in quanto è protetto da password
    Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")).Select

    'Seleziona le celle interessate
    Range("B2:U11,B14:U23,B26:U35,B38:U47,B50:U59,B62:U71,B74:U83,B86:U95").Select
    'Elimina il contenuto
    Selection.ClearContents

    Sheets("1").Select
    range("b2").select

    MsgBox "Tutto pulito!!"

    End If


    End Sub

  27. I seguenti 3 utenti hanno dato un "Like" a Pagero per questo post:


  28. #23
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Pagero, Baloon_50, scossa, textomb, Mariuss44 che team che siete!!!! :255:the Best team on-line che io possa conoscere,
    mancava Cromagno e poi eravamo al completo "full house".

    Ok anche la formula di scossa, textomb le ho testate e funzionano benissimo ma preferisco usare la formula di Pagero perchè è l'unica che ho capito, anche se non saprei dirvi qual' è la migliore in termini di risparmio risorse e velocità, solo che io mi avvicino (fino quando è possibile) a ciò che mi è più comprensibile.


    [EDIT]
    'Salva File (percorso predefinito -> "c:\" si può personalizzare)
    Application.Dialogs(xlDialogSaveAs).Show ("c:\")
    Pagero anche questo ultimo pezzettino funziona benissimo.
    Pagero una piccola domanda..
    hai fatto tutto con il regisratore di Macro o hai usato dei codici VBA presi qua e la?
    Grazie a tutti e buona notte!!
    Ultima modifica fatta da:Gerardo Zuccalà; 18/09/15 alle 00:36

  29. #24
    L'avatar di Pagero
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano
    Età
    36
    Messaggi
    18
    Versione Office
    Excel 2013
    Likes ricevuti
    6
    Likes dati
    1
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    hai fatto tutto con il regisratore di Macro o hai usato dei codici VBA presi qua e la?
    Grazie a tutti e buona notte!!
    Tutto con il registratore ad eccezione di "Application.Dialogs(xlDialogSaveAs).Show ("c:\")" che ho travato su internet.

  30. #25
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Pagero Visualizza Messaggio
    Tutto con il registratore ad eccezione di "Application.Dialogs(xlDialogSaveAs).Show ("c:\")" che ho travato su internet.
    Grazie Pagero e a tutti quelli che hanno contribuito in questa discussione,
    grazie di aver reso contento i miei colleghi i quali quando hanno visto la cartella di lavoro non hanno nascosto la loro contentezza
    Ciao:168:

Discussioni Simili

  1. [Risolto] Formula per estrarre dati da 2 fogli e metterli tutti in un foglio
    Di Caronte1980 nel forum Domande su Excel in generale
    Risposte: 18
    Ultimo Messaggio: 12/10/16, 22:59
  2. Macro per cancellare check box su più righr
    Di max72 nel forum Domande su Excel VBA e MACRO
    Risposte: 30
    Ultimo Messaggio: 13/09/16, 11:08
  3. Cancellare i fogli in eccesso
    Di Keishusan nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 09/09/16, 00:54
  4. Inserire tramite intestazione pie' di pagina immagine su tutti i fogli
    Di marco72 nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 21/08/16, 17:51
  5. ciao a tutti, sono nuovo
    Di robert123 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 21/10/15, 11:33

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
  •