Vba e creazione nuovi fogli



  • Vba e creazione nuovi fogli
    di Vismart (utente non iscritto) data: 27/11/2009

    Salve a tutti,
    spero di non aver sbagliato a postare nella sezione del forum. vengo al dunque:
    ho un foglio di lavoro con all'interno un range di celle che và dalla a1 alla a10 contenenti dei codici.vorrei creare una macro che una volta eseguita mi dia la possibilità di poter creare un nuovo foglio di lavoro in base alla cella selezionata nel range: ad esempio seleziono la cella a3, e c'è un valore uguale a "testo123", il nuovo foglio di lavoro creato si dovrà chiamare "testo123" perchè ho selezionato la cella a3.
    spero di trovare qualche aiutino grazie a tutti



  • di Big ronnie (utente non iscritto) data: 28/11/2009

    Ciao vismart,

    copia questa macro nel foglio dove effettui la selezione delle celle.ho fatto in modo che tu possa creare un solo foglio con il nome della selezione altrimenti ti verrebbe segnalato un errore.inoltre potrai creare un nuovo foglio solo selezionando, come tu volevi, una cella nel range("a1:a10").

    ciao big
     
    Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then
      Exit Sub
    Else
      For Each Sh In ActiveWorkbook.Sheets
        If Sh.Name = Target Then Exit Sub
      Next
    End If
    Sheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Target
    End Sub