Risultati da 1 a 21 di 21

Discussione: errore esecuzione macro su excel 2010



  1. #1
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    errore esecuzione macro su excel 2010

    Salve, ho riprovato a scrivere il codice del mio script precedente, su excel 2013 gira mentre su excel 2010 mi dà il seguente errore: "metodo Cells dell'oggetto _Worksheet non riuscito". Non capisco dove sbaglio, il codice è molto semplice. Vi allego il file.
    https://www.dropbox.com/s/8yx4ji2o5x...ev.1.xlsm?dl=0
    Grazie in anticipo

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2760
    Versione Office
    2013 PC
    Likes ricevuti
    449
    Likes dati
    46

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da ratner Visualizza Messaggio
    Salve, ho riprovato a scrivere il codice del mio script precedente, su excel 2013 gira mentre su excel 2010 mi dà il seguente errore: "metodo Cells dell'oggetto _Worksheet non riuscito". Non capisco dove sbaglio, il codice è molto semplice. Vi allego il file.
    https://www.dropbox.com/s/8yx4ji2o5x...ev.1.xlsm?dl=0
    Grazie in anticipo
    Forse sarebbe il caso di specificare su quale riga ti da l'errore visto che il codice è ben lungo. Prova a mettere un'interruzione verso l'inizio e prosegui col debug (F8) riga per riga finchè ti da l'errore.

    ciao

    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. #3
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    brevemente, quando l'operatore seleziona dal menù a tendina della colonna descrizione, lo script va a fare un check nel foglio di lavoro listino e cerca il codice che corrisponde a quella descrizione. L'errore avviene a questa riga, quando assegno il valore.

    Worksheets("quote").Cells(35, "B") = Worksheets("listino").Cells(i, "F")

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    3411
    Versione Office
    2013
    Likes ricevuti
    1020
    Likes dati
    814

    Re: errore esecuzione macro su excel 2010

    Ciao a tutti,
    sto provando ma non mi da nessun errore (uso excel 2016).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  5. #5
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Questo errore, compare solo su excel 2010.
    Non mi capacito del perchè. Colgo l'occasione per ringraziarvi per la celerità nelle risposte ed il supporto.

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    3411
    Versione Office
    2013
    Likes ricevuti
    1020
    Likes dati
    814

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da ratner Visualizza Messaggio
    Questo errore, compare solo su excel 2010.
    Non mi capacito del perchè. Colgo l'occasione per ringraziarvi per la celerità nelle risposte ed il supporto.
    Solo una cosa...
    invece di ripetere lo stesso codice per ogni riga, non puoi usare un ciclo For...Next con Step +3 ???

    [EDIT]
    oppure intercettare direttamente il range J35:J76 e prendere come riga di riferimento quella del target (Target.Row)

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  7. #7
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2760
    Versione Office
    2013 PC
    Likes ricevuti
    449
    Likes dati
    46

    Re: errore esecuzione macro su excel 2010

    Ciao ratner, non ho, purtroppo, modo di verificare su excel 2010 ma credo che il problema sia dovuto alle celle unite sia in altezza (35-36-37) che in larghezza (J....AN)


    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)

  8. #8
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    ottimo suggerimento

  9. #9
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ciao ratner, non ho, purtroppo, modo di verificare su excel 2010 ma credo che il problema sia dovuto alle celle unite sia in altezza (35-36-37) che in larghezza (J....AN)

    Qualche idea su come risolvere?

  10. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    3411
    Versione Office
    2013
    Likes ricevuti
    1020
    Likes dati
    814

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da ratner Visualizza Messaggio
    Qualche idea su come risolvere?
    Difficile cercare di rimediare ad un errore che non si presenta....
    Tanto per verificare la teoria di Baloon ( ) sulle celle unite, prova a scegliere una voce dal menu a tendina della cella J35 (dal file che ti allego) e vedi se funziona (con excel 2010).

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    'prima riga
    
    
    Application.ScreenUpdating = False
    
    
    If Intersect(Target, Range("j35:j74")) Is Nothing Then Exit Sub
    
    
    For a = 35 To 74 Step 3
        If Target.Address = Worksheets("quote").Cells(a, "J").Address Then
            For i = 1 To 5145
                If Worksheets("quote").Cells(a, "J") = Worksheets("listino").Cells(i, "A") Then
                    Worksheets("quote").Cells(a, "B") = Worksheets("listino").Cells(i, "F")
                    Worksheets("quote").Cells(a, "AR") = Worksheets("listino").Cells(i, "C")
                    Exit For
                End If
            Next i
        End If
    
    
        If Target.Address = Worksheets("quote").Cells(35, "B").Address Then
            For j = 1 To 5145
                If Worksheets("quote").Cells(a, "B") = Worksheets("listino").Cells(j, "F") Then
                    Worksheets("quote").Cells(a, "J") = Worksheets("listino").Cells(j, "A")
                    Worksheets("quote").Cells(a, "AR") = Worksheets("listino").Cells(j, "C")
                    Exit For
                End If
            Next j
        End If
    Next
    
    
    If Target.Address = Worksheets("quote").Cells(146, "AP").Address Then
        
        If Worksheets("quote").Cells(146, "AP") <> "" Then
        Worksheets("quote").Cells(35, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(38, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(41, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(44, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(47, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(50, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(53, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(56, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(59, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(62, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(65, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(68, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(71, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(74, "B").NumberFormat = "000000000"
        End If
        
        
        If Worksheets("quote").Cells(146, "AP") = "" Then
        Worksheets("quote").Cells(35, "B").NumberFormat = "0"
        Worksheets("quote").Cells(38, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(41, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(44, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(47, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(50, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(53, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(56, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(59, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(62, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(65, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(68, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(71, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(74, "B").NumberFormat = "000000000"
        End If
        
    Application.ScreenUpdating = True
    
    
    End If
    End Sub
    Ultima modifica fatta da:ges; 29/09/16 alle 18:47

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. #11
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Difficile cercare di rimediare ad un errore che non si presenta....
    Tanto per verificare la teoria di Baloon ( ) sulle celle unite, prova a scegliere una voce dal menu a tendina della cella J35 (dal file che ti allego) e vedi se funziona (con excel 2010).
    stesso errore

  12. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    3411
    Versione Office
    2013
    Likes ricevuti
    1020
    Likes dati
    814

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da ratner Visualizza Messaggio
    stesso errore
    Mi sa che dovremmo aspettare qualcuno che utilizzi excel 2010...

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  13. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2760
    Versione Office
    2013 PC
    Likes ricevuti
    449
    Likes dati
    46

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da ratner Visualizza Messaggio
    stesso errore
    Ciao ho fatto una modifica al codice eliminando (come ha suggerito Cromagno) il superfluo in pratica ho fatto un ciclo for...next step 3

    prova a vedere se funziona sul 2010
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    'prima riga
    
    
    Application.ScreenUpdating = False
    
    
    If Intersect(Target, Range("j35:j74")) Is Nothing Then Exit Sub
    
    
    For a = 35 To 74 Step 3
        If Target.Address = Worksheets("quote").Cells(a, "J").Address Then
            For i = 1 To 5145
                If Worksheets("quote").Cells(a, "J") = Worksheets("listino").Cells(i, "A") Then
                    Worksheets("quote").Cells(a, "B") = Worksheets("listino").Cells(i, "F")
                    Worksheets("quote").Cells(a, "AR") = Worksheets("listino").Cells(i, "C")
                    Exit For
                End If
            Next i
        End If
    
    
        If Target.Address = Worksheets("quote").Cells(35, "B").Address Then
            For j = 1 To 5145
                If Worksheets("quote").Cells(a, "B") = Worksheets("listino").Cells(j, "F") Then
                    Worksheets("quote").Cells(a, "J") = Worksheets("listino").Cells(j, "A")
                    Worksheets("quote").Cells(a, "AR") = Worksheets("listino").Cells(j, "C")
                    Exit For
                End If
            Next j
        End If
    Next
    
    
    If Target.Address = Worksheets("quote").Cells(146, "AP").Address Then
        
        If Worksheets("quote").Cells(146, "AP") <> "" Then
        Worksheets("quote").Cells(35, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(38, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(41, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(44, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(47, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(50, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(53, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(56, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(59, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(62, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(65, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(68, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(71, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(74, "B").NumberFormat = "000000000"
        End If
        
        
        If Worksheets("quote").Cells(146, "AP") = "" Then
        Worksheets("quote").Cells(35, "B").NumberFormat = "0"
        Worksheets("quote").Cells(38, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(41, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(44, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(47, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(50, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(53, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(56, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(59, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(62, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(65, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(68, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(71, "B").NumberFormat = "000000000"
        Worksheets("quote").Cells(74, "B").NumberFormat = "000000000"
        End If
        
    Application.ScreenUpdating = True
    
    
    End If
    End Sub
    Ultima modifica fatta da:ges; 29/09/16 alle 18:45

    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)

  14. #14
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ciao ho fatto una modifica al codice eliminando (come ha suggerito Cromagno) il superfluo in pratica ho fatto un ciclo for...next step 3

    prova a vedere se funziona sul 2010
    Adesso però se selezione il codice non mi aggiorna più la descrizione...

  15. #15

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    3411
    Versione Office
    2013
    Likes ricevuti
    1020
    Likes dati
    814

    Re: errore esecuzione macro su excel 2010

    A me l'ultimo file allegato da Baloon funziona a dovere...
    Una cosa semplice che potresti provare è quella di disinstallare completamente office e re-installarlo, perchè non mi sembra un problema di VBA.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  16. #16
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2760
    Versione Office
    2013 PC
    Likes ricevuti
    449
    Likes dati
    46

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da ratner Visualizza Messaggio
    Adesso però se selezione il codice non mi aggiorna più la descrizione...
    ma a te interessa selezionare il codice o la descrizione?

    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)

  17. #17
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Risolto problema codice, adesso provo su excel 2010.

  18. #18
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    ma a te interessa selezionare il codice o la descrizione?
    Entrambi. Ho modificato questa riga aggiungendo al range la colonna b If Intersect(Target, Range("j35:j74", "b35:b74")) Is Nothing Then Exit Sub

  19. #19
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    ma a te interessa selezionare il codice o la descrizione?
    Il codice così come è scritto funziona su excel 2010 ti ringrazio molto per la pazienza ed il tuo tempo.
    Ad essere pignoli ho notato soltanto che se si selezionano le ultime righe dell'elenco codice o descrizione è un pò lento nel riempire i campi. Hai qualche idea per renderlo più veloce?

  20. #20
    L'avatar di Anthony
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ivrea (TO)
    Messaggi
    499
    Versione Office
    2003-2010-2016
    Likes ricevuti
    298
    Likes dati
    39

    Re: errore esecuzione macro su excel 2010

    Questa versione di WorksheetChange non usa il loop, e in piu' contiene un salutare Application.EnableEvents = False /True (che e' poi quanto mancava nella macro iniziale per renderla funzionante, anche se alquanto disottimizzata):
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myArea As String, cRValue, cCol As Long, myMatch
    Dim dRange As Range, pRange As Range, cRange As Range
    '
    myArea = "B35:J74"
    If Application.Intersect(Range(myArea), Target) Is Nothing Or Target.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        cRValue = Target.Cells(1, 1).Value
        cCol = Target.Cells(1, 1).Column
            Set cRange = Worksheets("listino").Range("F:F")
            Set dRange = Worksheets("listino").Range("A:A")
            Set pRange = Worksheets("listino").Range("C:C")
        '
        If cCol = 10 Then
            myMatch = Application.Match(Target.Value, dRange, 0)
        Else
            myMatch = Application.Match(Target.Value, cRange, 0)
        End If
        '
        If Not IsError(myMatch) Then
            If cCol = 10 Then
                Cells(Target.Row, "B") = Application.WorksheetFunction.Index(cRange, myMatch)
                Cells(Target.Row, "AR") = Application.WorksheetFunction.Index(pRange, myMatch)
            Else
                Cells(Target.Row, "J") = Application.WorksheetFunction.Index(dRange, myMatch)
                Cells(Target.Row, "AR") = Application.WorksheetFunction.Index(pRange, myMatch)
            End If
        Range("B35:B74").NumberFormat = "000000000"
    End If
    Application.EnableEvents = True
    End Sub
    Non ho capito la logica che c'e' dietro quel "If Target.Address = Worksheets("quote").Cells(146, "AP").Address Then" quindi ho semplificato la chiusura della macro con quel "Range("B35:B74").NumberFormat = "000000000", che tra l'altro dovrebbe essere inutile visto che basta applicare inizialmente la formattazione alla colonna B e poi viene mantenuta, salvo che qualcuno la cambi di proposito.

    Ciao a tutti.

  21. #21
    L'avatar di ratner
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ancona
    Messaggi
    13
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: errore esecuzione macro su excel 2010

    Citazione Originariamente Scritto da Anthony Visualizza Messaggio
    Questa versione di WorksheetChange non usa il loop, e in piu' contiene un salutare Application.EnableEvents = False /True (che e' poi quanto mancava nella macro iniziale per renderla funzionante, anche se alquanto disottimizzata):
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myArea As String, cRValue, cCol As Long, myMatch
    Dim dRange As Range, pRange As Range, cRange As Range
    '
    myArea = "B35:J74"
    If Application.Intersect(Range(myArea), Target) Is Nothing Or Target.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        cRValue = Target.Cells(1, 1).Value
        cCol = Target.Cells(1, 1).Column
            Set cRange = Worksheets("listino").Range("F:F")
            Set dRange = Worksheets("listino").Range("A:A")
            Set pRange = Worksheets("listino").Range("C:C")
        '
        If cCol = 10 Then
            myMatch = Application.Match(Target.Value, dRange, 0)
        Else
            myMatch = Application.Match(Target.Value, cRange, 0)
        End If
        '
        If Not IsError(myMatch) Then
            If cCol = 10 Then
                Cells(Target.Row, "B") = Application.WorksheetFunction.Index(cRange, myMatch)
                Cells(Target.Row, "AR") = Application.WorksheetFunction.Index(pRange, myMatch)
            Else
                Cells(Target.Row, "J") = Application.WorksheetFunction.Index(dRange, myMatch)
                Cells(Target.Row, "AR") = Application.WorksheetFunction.Index(pRange, myMatch)
            End If
        Range("B35:B74").NumberFormat = "000000000"
    End If
    Application.EnableEvents = True
    End Sub
    Non ho capito la logica che c'e' dietro quel "If Target.Address = Worksheets("quote").Cells(146, "AP").Address Then" quindi ho semplificato la chiusura della macro con quel "Range("B35:B74").NumberFormat = "000000000", che tra l'altro dovrebbe essere inutile visto che basta applicare inizialmente la formattazione alla colonna B e poi viene mantenuta, salvo che qualcuno la cambi di proposito.

    Ciao a tutti.
    Eccezionale! Ti ringrazio molto. Adesso mi studio un pò il codice che hai suggerito.

Discussioni Simili

  1. Macro cerca valore in un file e copia riga (excel 2010)
    Di SALVO_88 nel forum Domande su Excel VBA e MACRO
    Risposte: 22
    Ultimo Messaggio: 15/05/17, 18:50
  2. [Excel 2010] Macro non più funzionante
    Di Daniele.Caso nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 14/03/17, 15:20
  3. tasto per esecuzione macro in outlook
    Di mb63 nel forum Domande su Outlook
    Risposte: 1
    Ultimo Messaggio: 21/02/17, 15:23
  4. Problema macro inserimento immagini excel 2010
    Di Mr.Troy nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 06/09/16, 19:31
  5. Errore all'apertura Excel 2010
    Di zio_tom nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 05/11/15, 14:50

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
  •