Risultati da 1 a 5 di 5

Discussione: Creazione nuovi fogli in base ad inserimento dati



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Creazione nuovi fogli in base ad inserimento dati

    Ciao Amerigo

    Ho recuperato il file che ti riallego

    In pratica quando vai a compilare l'ultima colonna ossia Equipaggio viene creato un nuovo foglio con i dati del nominativo inserito.

    Questo il codice utilizzato

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("g4:g100")) Is Nothing Then
        If Target.Value = "" Then Exit Sub
        Call InserisciFoglio
        Call FormattaFoglio
        ActiveSheet.Name = Target & " " & Target.Offset(0, -5)
        ActiveSheet.Range("a1:k3").Value = Target & " " & Target.Offset(0, -6) & " " & Target.Offset(0, -5) & " " & Target.Offset(0, -3)
    Call FormattaFoglioDipendente
    End If
    ActiveSheet.Name = Target.Value
    Worksheets("database").Activate
    Range("a1").Select
    Application.ScreenUpdating = True
    End Sub
     Sub InserisciFoglio()
        Sheets.Add After:=Sheets(Sheets.Count)
    End Sub
    
    Sub CancellaFoglio()
        Sheets("Foglio1").Select
        ActiveWindow.SelectedSheets.Delete
    End Sub
    Sub FormattaFoglio()
        Range("A1:K3").Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Selection.Merge
    End Sub
    
    Sub FormattaFoglioDipendente()
        Range("A1:K3").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 12611584
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        With Selection.Font
            .Name = "Calibri"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontMinor
        End With
        With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
        Selection.Font.Bold = True
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = True
        End With
    End Sub
    Prova un po' e fai sapere.
    File Allegati File Allegati
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  2. #2
    L'avatar di Amerigo
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Salerno
    Età
    47
    Messaggi
    172
    Versione Office
    2016
    Likes ricevuti
    11
    Likes dati
    88

    Re: Creazione nuovi fogli in base ad inserimento dati

    Alfredo,

    Ho appena visionato il tuo file ed è quasi come lo cercavo.

    Il titolo delle celle in alto potrebbe non contenere il nome della nave, non è necessario e manca il Cognome e nome.
    La linguetta dei nuovi fogli dovrebbe avere Nome Cognome - Matricola, invece sono nominati progressivamente.
    Perché salta sempre a capo ogni volta che con la freccetta muovo la cela attiva? Un po fastidiosetto sto fatto, non trovi?
    Comunque siamo sulla strada giusta per il raggiungimento del risultato.

    P.S. : Non so se sarebbe meglio salvare il file del Nuovo Marittimo in un nuovo foglio o in un altro completamente separato in una cartella specifica.
    Tieni conto amico mio che i marittimi sono tanti.


    Grazie mille per il tuo interessamento
    Saluti
    Amerigo Fasolino
    Il sapere è il sale della vita, senza di esso non saremmo quelli che siamo!

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Creazione nuovi fogli in base ad inserimento dati

    Ciao Amerigo

    Crea manualmente un file di come vorresti che fosse la cartella di lavoro e allegalo.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  4. #4
    L'avatar di Amerigo
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Salerno
    Età
    47
    Messaggi
    172
    Versione Office
    2016
    Likes ricevuti
    11
    Likes dati
    88

    Re: Creazione nuovi fogli in base ad inserimento dati

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao Amerigo

    Crea manualmente un file di come vorresti che fosse la cartella di lavoro e allegalo.
    Grandeeeeee!
    Alfredo come al solito mi leggi nel pensiero, Grazie!

    A dire il vero ci sto lavorando già da un pò di tempo e spero di terminare prestissimo, del tipo un paio di giorni.

    Grazie di tutto, ciao
    Amerigo Fasolino
    Il sapere è il sale della vita, senza di esso non saremmo quelli che siamo!

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Creazione nuovi fogli in base ad inserimento dati

    Ciao Amerigo

    Vedi di far prima (non occorre una cosa complicata) perché da giovedì sono fuori e rientrerò domenica sera.

    Tra l'altro non credo che intervengano altri perché c'è già un "lavoro" già fatto
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

Discussioni Simili

  1. Creazione UserForm (maschera inserimento dati) con Excel
    Di cescobolla nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 10/03/17, 22:02
  2. [Risolto] cerca valore da due fogli in base inserimento nominativo
    Di Brivido.xls nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 08/03/17, 20:29
  3. Creazione fogli trasferimento dati dinamici
    Di melegnano nel forum Domande su Excel VBA e MACRO
    Risposte: 30
    Ultimo Messaggio: 25/11/16, 17:42
  4. [Risolto] Creazione di nuovi fogli in base al valore di una colonna
    Di Tremblet nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 17/11/16, 17:21
  5. Creazione menù a tendina con inserimento dati da file diverso
    Di riodip nel forum Domande su Excel in generale
    Risposte: 18
    Ultimo Messaggio: 31/03/16, 19:51

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
  •