+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

Creazione foglio di lavoro da valore cella

  1. #1
    Ganasina non è in linea Novello
    Ciao a tutti,
    ho bisogno di risolvere un grosso problema vista la mia scarsa conoscenza di VBA.

    Dovrei definire una macro che partendo da una tabella padre cliccando su una cella di questa mi genera un nuovo foglio con il nome della cella, impostato come il foglio padre e che mi utilizza alcuni valori della tabella.

    esempio:

    parto da una tabella in cui inserisco una serie di valute e per ogni valuta mi serve che inserendola si crea un foglio di lavoro con il nome della valuta, che prende in considerazione il cambio valuta e che sia strutturato secondo un piano standard per tutti i fogli.

    Che cosa complicata!!!

    Spero di essere stato chiaro

    grazie a tutti

  2. #2
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Potresti sfruttare l'evento Change del foglio di lavoro (per esempio del foglio1). Ipotizziamo che il nome delle valute sia compreso tra B2 e B10, e che a fianco di ciascuna valuta tu abbia il relativo cambio.

    La seguente istruzione fa eseguire una macro ogni volta che cambia una cella in quel range:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Me.Range("$B$2:$B$10"), Target) Is Nothing Then
    
    ' qui inserisci le istruzioni per vedere se il foglio da creare non esiste già,
    ' qualcosa tipo (con le dovute rettifiche):
    
    Dim foglio As Worksheet
    Dim trovato As String
    trovato = "Il foglio non esiste"
    For Each foglio In Worksheets
        If foglio.Name = Target.Value Then
            trovato = "Il foglio esiste"
        End If
    Next foglio
    MsgBox trovato
    '....esci o quel che ti pare
    'MA PRESTA ATTENZIONE, perchè qualsiasi cosa scrivi ti crea un foglio con quel nome, 
    ' a meno che il nome contenga caratteri riservati (*, /, ecc).
    'TI CONVIENE inserire un MsgBox con richiesta di conferma.
    
    ' poi, aiutandoti con il registratore di macro, inserisci le istruzioni per duplicare
    ' il foglio attivo (come se facessi Modifica > Sposta o Copia foglio > ecc.
    ' assegnadogli il nome della cella dove hai inserito la valuta:
    
    nome= Target.Address
    
    ' A questo punto selezioni il nuovo foglio e cancelli quello che non serve, o
    ' cancelli tutto e inserisci quel che serve: dipende dalla quantità di dati che devi
    ' lasciare/cancellare.
    
    End If
    End Sub
    
    Ciao

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 1
    Ultimo Post: 06-08-2014, 21:56
  2. Valore Item di un Foglio di lavoro.
    Da GiuseppeMN nel forum Microsoft Excel
    Risposte: 10
    Ultimo Post: 16-09-2013, 10:31
  3. Risposte: 19
    Ultimo Post: 08-07-2011, 17:16
  4. [VB6-Excel] Ricerca valore in foglio di lavoro
    Da licetinsanire nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 01-02-2010, 12:45
  5. [EXCEL] Creazione dinamina hyperlink a foglio di lavoro
    Da xmapix nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 02-10-2008, 15:40