Copia immagine



  • Copia immagine
    di Lele (utente non iscritto) data: 13/04/2017 18:56:17

    Ciao a tutti! Non sono molto ferrato di VBA ... diciamo pure per nulla... vi chiedo un aiuto per risolvere questo mio quesito. Ho una tabella di 19 colonne e 10 righe e vorrei creare un codice che nella prima riga se il valore della prima cella colonna 3 (cella C9) sia >0 nella colonna 19 stessa riga (cella S9) , appaia un'immagine già presente in una cella qualsiasi(differente da quelle della tabella), per poi estendere il codice alle restanti 9 righe. Sempre con le stesse caratteristiche create per la riga 1.
    Se la cella C10 ha un valore >0 nella cella S10 appare l'immagine.
    Come posso procedere?
    Scopiazzando in internet ho iniziato il codice ... ma poi mi son smarrito...
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    (le celle che devono avere un valore >0 sono dalla T9 alla T18)
    If Intersect(Range([C9], [C18]), Target) Is Nothing Then Exit Sub
    If Target.Value > 0 Then
    Me.Shapes("finestra").DrawingObject.Formula = "$AQ$100" & Target.Value
    End If
    End Sub



  • di patel data: 14/04/2017 13:24:27

    allega un file di esempio e spiega meglio cosa vuoi ottenere