Colorare una cartina

Excel e gli applicativi Office
  • Colorare una cartina (2010) di daniGe (utente non iscritto) data: 11/04/2013 15:10:36

    Buongiorno a tutti,
    avrei un problema con il funzionamento di una macro.
    In pratica la macro mi colora le regioni d'Italia a seconda del valore che metto affianco alle regioni con un colore forte o meno forte a seconda della grandezza. Il problema risiede nel fatto che su alcuni pc mi funziona correttamente mentre su altri mi restituisce solo la cartina con i valori senza colore.
    Qualcuno mi può aiutare?
    Grazie,
    Daniele
  • di Zasso data: 11/04/2013 15:18:38

    Domanda stupida....sui pc dove non funziona dei sicuro che le macro siano abilitate?
  • di daniGe (utente non iscritto) data: 11/04/2013 15:20:36

    tranquillo...si sono attivate, mi era già capitato già sul pc di casa mia, e avevo risolto utilizzando poi quello di mio padre dove funzionava correttamente. Ora sul pc del lavoro mi si ripresenta lo stesso problema
  • di totygno71 data: 11/04/2013 15:28:01

    Ciao Daniele
    sarebbe interessante vedere il file...
    hai verificato la compatibilità tra le versioni di excel installate sui vari pc?

    Facci sapere!
    ciao
  • di Zasso data: 11/04/2013 15:28:31

    Io ho notato che quando utilizzo i file creati a lavoro (con excel in inglese) sul mio pc a casa (excel italiano) le formule in vba non mi funzionano più.....potrebbe essere questo il caso?

    Altrimenti attendi gli altri (molto) più esperti di me che sapranno sicuramente consigliarti
  • di daniGe (utente non iscritto) data: 11/04/2013 15:30:10

    Ho allegato il file per capire meglio
  • selezione celle di soul13 (utente non iscritto) data: 11/04/2013 15:33:57

    Ciao a tutti.. Un piccolo aiutino a chi si sta esaurendo cercando di ricordare nozioni di secoli fa?!?!
    Ho la seguente tabella in excel che indica i paesi con le zone di riferimento (DA COLONNA A A COLONNA B),mentre dalla F ALLA P ci sono i pesi con i costi relativi alle varie zone:
    A B C D E F G H I L M N O P
    1 ZONE EXP STD FEDEX DHL PESO 2 3 4 5 6 7 A B
    2 ITALIA 2 3 5 7 0.5 20.5 25 12 14 16 16 17 22
    3 FRANCIA 6 6 2 4 1 40.5 25 23 16 18 16 16 15
    4 GERMAN 2 4 A 6 1.5 10 8 26 35 14 18 19 20
    5 USA 4 1 B 9 2 25 24 60 68 45 85 12 13

    Ho caricato in due combo box i pesi e le zone, quando seleziono un paese dalla combo in delle label mi compaiono le zone di di riferimento per ogni vettore:
    EXP 2
    STD 3
    FEDEX A
    DHL 6

    Vorrei che una volta selezionato anche il peso mi compaia in altre label la tariffa corrispondente
    esempio paese italia peso 0.5
    EXP 2 20.5
    STD 3 40.5
    FEDEX A 10
    DHL 6 25

    In poche parole deve andarmi a selezionare il valore con le coordinate riga (corrisponde al peso selezionato), colonna corrisponde alla zona del paese selezionato.

    Spero di essere stato chiaro e grazie anticipatamente per eventuali risposte!!!!






     
    'carico nelle combobox i paesi inseriti lungo la colonna A e i pesi della colonna f
    Private Sub UserForm_Activate()
        Dim peso As Variant
        Dim zona As Variant
        Dim ur As Integer, i As Integer, p As Integer, s As Integer
        
        ur = Foglio1.Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To ur
            Me.ComboBox1.AddItem (Foglio1.Cells(i, 1))
            zona = ComboBox1.Value
        Next
        
        p = Foglio1.Cells(Rows.Count, 1).End(xlUp).Row
        For s = 2 To p
            Me.ComboBoxpeso.AddItem (Foglio1.Cells(s, 7))
            peso = ComboBoxpeso.Object
        Next
          
    End Sub
    
    'in base al paese selezionato, lo cerco lungo la colonna A
    'e riporto le celle vicine nelle label
    Private Sub ComboBox1_Change()
        Dim r As Integer
        With Me
            zona = Columns(1).Find(.ComboBox1).Row
            .lblExp = Foglio1.Cells(zona, 2)
            .lblStd = Foglio1.Cells(zona, 3)
            .lblexpedited = Foglio1.Cells(zona, 4)
            .lblfedex = Foglio1.Cells(zona, 5)
            .lbldhl = Foglio1.Cells(zona, 6)
        End With
    End Sub
    
    
    
  • di totygno71 data: 11/04/2013 15:44:30

    @ Marco
    Sul mio PC excel 2007 funziona tutto!

    @Soul13
    dovresti aprire una nuova discussione !!! ^_^
  • di daniGe (utente non iscritto) data: 11/04/2013 15:45:44

    è il problema che riscontro è proprio questo...su alcuni pc va...su altri no
  • di totygno71 data: 11/04/2013 15:47:10

    Ma ti è capitato il problema su stesse versioni di escel?
  • di Zasso data: 11/04/2013 15:50:46

    Sul mio Office Professional 2010 (Inglese) non va
  • di daniGe (utente non iscritto) data: 11/04/2013 15:52:16

    su alcuni 2007 mi andava su quello che avevo a casa no
  • di daniGE data: 11/04/2013 15:58:06

    che poi non da un errore "semplicemente"non colora le regioni
  • di Vecchio Frac data: 11/04/2013 16:19:22

    Excel 2003
    Ho notato che solo inserendo una nuova cartina (con InserisciCartina) tutto funziona alla perfezione (variando i parametri, cambiando i colori, e lanciando UpdateContent).
    Variando i parametri e scegliendo InserisciCartina tutto funziona regolarmente.

    Invece appena lanciata, la cartina non ha un indice corretto e semplicemente non colora niente.
    La shape dell'Italia ha nome "Italia5" mentre la macro si aspetta un indice pari a zero e quindi non trova "Italia5", non svolge nessuna azione (anzi si blocca proprio).
  • Colorare una cartina di Vecchio Frac data: 11/04/2013 16:21:58

    Faccio anche notare che il titolo originario della discussione, "Problema macro", è del tutto inutile e non esplicativo.
    Siete pregati di dare alle discussioni dei titoli adeguati, come da regolamento.