Risultati da 1 a 21 di 21

Discussione: Inserimento dati su più Fogli.......



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Inserimento dati su più Fogli.......

    Ciao a tutti gli amici del Forum

    Penso che sono arrivato in fondo al file che mi avete aiutato a creare e penso sia la parte più "complicata"........

    Vorrei una volta inserito incontro Con il tasto "Inserisci incontro torneo".....Poter scegliere le partite da inserire anche nei fogli successivi

    Juniores "A".....
    Juniores "B"........
    Allievi 2000.........
    Giovanissimi 2001.........

    Il risultato che vorrei Si trova già Nei fogli Allievi 2000 e Giovanissimi 2001 magari tramite il tasto che ho già preparato"Inserisci incontro alla categoria"

    In poche parole alcune partite vorrei inserirle anche nei fogli categorie inserendole
    nella categoria giusta e nella data corrispondente cosi come ho scritto i risultati a mano..


    Grazie davvero per tutto aiuto dato......
    File Allegati File Allegati
    windows 10
    Excel 2016

  2. #2
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    Fatto quasi bene, mà la prima volta che lo vedo.
    Cosa intendi?
    Esempio sul foglio Incontri ci sono 4 righe, vorresti che queste siano scritte nei vari fogli alla data giusta?
    Se nel stesso giorno trova un'altra partita, dovrebbbe avvisarti ?

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ciao Raffaele.......e grazie

    Nel Foglio incontri verranno popolati di Partite ma non tutte devono essere scritte nei vari fogli
    Solo Quelle con la Scritta "Aglianese"..........
    chiaramente in corrispondenza della categoria giusta e della data giusta...
    come gia scritto manualmente nei fogli degli Allievi 2000 e Giovanissimi 2001 quello sarebbe il risulato che ho bisogno

    Grazie

    ----------Post unito in automatico----------

    dimenticavo una cosa importante che nello stesso giorno ci possono essere anche più Partite...........
    una non deve sovrascrivere l'altra
    windows 10
    Excel 2016

  4. #4
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    Prima di tutto, più lo vedo e più diventa brutto.
    Potevi farlo perpetuo, comunque le date in colonna G= formatto personalizzato??? (sono brutte)
    Sono fermo alla faccenda che trovo la colonna del mese, mà non trovo la data dove scrivere (domani rivedo).

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ciao Raffaele se pensi magari di poter fare dei cambiamenti per una migliore realizzazione del file fai pure
    Ma non ho capito se innon ti piace il foglio incontri oppure i calendari nei fogli delle categorie
    o entrambi.............
    windows 10
    Excel 2016

  6. #6
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    Sicuramente mi sono spiegato male
    Adesso siamo nel 2016, tutte le celle nei vari mesi riportano giorno/mese/2016
    La Tua società = Aglianese, se qualcuno prende questo file dovrà modificare il codice

    Invece nella Home page, una cella che dichiara la società + una che dichiara l'anno
    Fare che nei vari fogli la data sia xy + anno del foglio Home page cella xxxyyy
    Comunque da mettere il codice in foglio incontri ed assegnarlo al bottone
    Ps. Il fatto che nello stesso giorno ci siano più partite, fà si che con Autofit allargo la riga. Significa che l'anno prossimo ci vuole un vba che pulisca il tutto e rimetta le righe in altezza uguale
    Pps. Usa l'accortezza d'usare delle convalide_dati per inserire i vari nomi (nel caso di Aglianese, fosse spazioAglianese o Aglianesespazio non funziona
    Ppps. Sopratutto in colonna A, se Allievi 2000 fosse scritto male
    Codice: 
    Option Compare Text
    Sub Trascivi()
    Dim X, Ur, R, C, DD As Date, Rg As Object, Cg As Object, sh As Worksheet
    Application.ScreenUpdating = False
    Ur = Range("A" & Rows.Count).End(xlUp).Row
    For X = Ur To 11 Step -1
        If Cells(X, 4) = "Aglianese" Or Cells(X, 5) = "Aglianese" Then
            Set sh = Worksheets(Cells(X, 1).Value)
            Set Cg = sh.Range("A6:T6").Find(MonthName(Month(Cells(X, 7))), LookIn:=xlValues, LookAt:=xlWhole)
                If Not Cg Is Nothing Then
                    C = Cg.Column
                    If sh.Cells(Day(Cells(X, 7)) + 6, C + 1) = "" Then
                    sh.Cells(Day(Cells(X, 7)) + 6, C + 1) = sh.Cells(Day(Cells(X, 7)), C + 1) & Cells(X, 4) & " - " & Cells(X, 5) & " (" & Cells(X, 2) & ") " & Cells(X, 8)
                    Else
                    sh.Cells(Day(Cells(X, 7)) + 6, C + 1) = sh.Cells(Day(Cells(X, 7) + 6), C + 1) & vbCrLf & Cells(X, 4) & " - " & Cells(X, 5) & " (" & Cells(X, 2) & ") " & Cells(X, 8)
                    sh.Rows(Day(Cells(X, 7)) + 6 & ":" & Day(Cells(X, 7)) + 6).AutoFit
                    End If
                End If
        End If
        Rows(X & ":" & X) = ""
    Next X
    Application.ScreenUpdating = True
    End Sub

  7. #7
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ciao Raffaele........
    Quindi conviene mettere dei riferimenti esterni, nei casi in cui si possa cambiare la
    Squadra di riferimento e anno.........
    e il codice sopra dove va' inserito?
    windows 10
    Excel 2016

  8. #8
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    >>>Comunque da mettere il codice in foglio incontri ed assegnarlo al bottone
    Aggiungi queste due righe prima di end sub
    Codice: 
    Set sh = Nothing
    Set Cg = Nothing
    End Sub

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ho provato ma mi da' questo errore...........
    File Allegati File Allegati
    windows 10
    Excel 2016

  10. #10
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    >>>Option Compare Text
    Và messo in alto in 1° riga
    Dato che lo inserisci in Private Sub CommandButton3_Click(), al codice va tolto 1 e ultima riga
    Sub Trascivi()
    End Sub

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    scusa sro facendo delle prove ma non mi viene niente.........
    windows 10
    Excel 2016

  12. #12
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    Ho messo nome squadra e data in home page
    In Juniores "A" c'è l'esempio di come scrivere le date (devi farlo in tutti i fogli e colonne)
    In Modulo 3 un codice che cancella e ripristina l'altezza delle righe, se casomai inserisci altri fogli e non desideri che il codice ci lavora sopra li devi escludere mettendo aggiungendo ex And ws.Name <> "Partecipazioni"
    Codice: 
    Sub Altezza()
    Dim ws As Worksheet, X
      For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Home Page" And ws.Name <> "Partecipazioni" And ws.Name <> "Incontri" And ws.Name <> "Squadre" Then ''qui il nome
          With ws
            For X = 2 To 20
                ws.Range(ws.Cells(7, X), ws.Cells(37, X)) = ""
                X = X + 1
            Next X
            ws.Rows("7:37").RowHeight = 26.25
          End With
        End If
      Next ws
      MsgBox "Fatto"
    End Sub
    File Allegati File Allegati

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ciao Raffele e grazie

    si comincia a vedere un bel lavoro....

    però non sono stato molto chiaro io sul fatto che quando si inserisce incontro alla categoria
    la partita non deve sparire dalla tabella.

    Non so ,magari trovare un modo per dire di inserire ad esempio ultimo incontro aglianese che trova per evitare
    che gli inserisca nuovamente tutti o qualcosa del genere
    e poi ho notato che non inserisce orario.........

    ----------Post unito in automatico----------

    un altro idea se più fattibile può essere magari se invece che inserire ultima partita Aglianese
    meglio magari se inserisce la partita della cella dove si trova il cursore

    cosi ad esempio se cambio giorno o ora me la inserisce al posto giusto....

    Intanto mille grazie per aiuto..........
    File Allegati File Allegati
    windows 10
    Excel 2016

  14. #14
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    L'orario errore mio, adesso mi sembra a posto
    Non cancella più le partite, però quando inserisci una partita in colonna I appare la scritta OK
    Questo fà che ripremendo nuovamente il bottone NON le aggiunga nuovamente.
    Naturale che in caso di cambio Data o Orario delle partite devi andare prima a cancellare
    Se al posto del OK Metti una E Maiuscola premendo il bottone Elimina la cancella, In colonna I sparisce la E
    Modificando adesso la data o l'orario, la riscrive nuovamente
    Siccome non posso usare "accapo" ho messo un'aggiunta di tot spazi per farle diventare tutte di 60 caratteri, sta a te trovare la giusta larghezza delle colonne (casomai fammelo presente).
    In Home ho aggiunto il bottone che ripulisce tutte le righe e le ripristina in altezza e larghezza
    Nb Secondo il mio punto di vista in Home Page ci dovrebbe essere una sezione che spiega come funziona
    Esempio in C10 Ditare il nome della propria squadra
    Esempio in C11 Ditare AnnospaziotrattinospazioAnno (ex 2016 - 2017), oppure le formule non funzionano
    Esempio metti una E Maiuscola
    + tutto il resto che conosci solo Tu
    Codice: 
    Sub Pulisce_Altezza()
    Dim ws As Worksheet, X
      For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Home Page" And ws.Name <> "Partecipazioni" And ws.Name <> "Incontri" And ws.Name <> "Squadre" Then ''qui il nome
          With ws
            For X = 2 To 20
                ws.Range(ws.Cells(7, X), ws.Cells(37, X)) = ""
                X = X + 1
            Next X
            ws.Rows("7:37").RowHeight = 26
            ActiveWindow.SmallScroll ToRight:=2
            Range("B:B,D:D,F:F,H:H,J:J,L:L,N:N,P:P,R:R,T:T").ColumnWidth = 50
          End With
        End If
      Next ws
      MsgBox "Fatto"
    End Sub
    File Allegati File Allegati

  15. I seguenti utenti hanno dato un "Like"


  16. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Solo dalla spiegazione mi sembra un gran bel lavoro quello che hai fatto.......
    proverò il tutto con calma e ti faccio sapere come và

    Di sicuro bene...

    sei stato fantastico mi sembra abbastanza complesso ma se funziona è alla grande

    Grazie mille.................
    windows 10
    Excel 2016

  17. #16
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ciao Raffaele......
    penso di aver fatto tutte le prove possibili

    e penso che sia perfetto se si vuole trovare un piccolo neo da perfezionare sarebbe:
    1) Quando si azzera tutti gli incontri con il tasto nel Home Page magari un messaggio di conferma prima della cancellazione
    2) e quando azzera tutto scorrono le pagine che azzera e bisogna riportarsi in cima al home page


    Per il resto e perfetto............
    File Allegati File Allegati
    windows 10
    Excel 2016

  18. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Il punto 2 penso di averlo risolto in questa maniera.........
    eliminado il brillio del video e riposizionandosi sulla parte iniziale della pagina
    Codice HTML: 
    Sub Pulisce_Altezza()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, X
      For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Home Page" And ws.Name <> "Partecipazioni" And ws.Name <> "Incontri" And ws.Name <> "Squadre" Then ''qui il nome
               
            With ws
            For X = 2 To 20
                ws.Range(ws.Cells(7, X), ws.Cells(37, X)) = ""
                X = X + 1
            Next X
            ws.Rows("7:37").RowHeight = 26
            ActiveWindow.SmallScroll ToRight:=2
            Range("B:B,D:D,F:F,H:H,J:J,L:L,N:N,P:P,R:R,T:T").ColumnWidth = 50
          End With
        End If
      Next ws
      MsgBox "Fatto"
         Application.ScreenUpdating = True
         Range("A1").Select
    End Sub
    ----------Post unito in automatico----------

    In questa Macro non riesco a mettere un messaggio di conferma prima che si attiva.........
    per evitare che mi vada in esecuzione in caso che si prema accidentalmente il tasto

    Codice HTML: 
    Sub Pulisce_Altezza()
    Dim ws As Worksheet, X
      For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Home Page" And ws.Name <> "Partecipazioni" And ws.Name <> "Incontri" And ws.Name <> "Squadre" Then ''qui il nome
          With ws
            For X = 2 To 20
                ws.Range(ws.Cells(7, X), ws.Cells(37, X)) = ""
                X = X + 1
            Next X
            ws.Rows("7:37").RowHeight = 26
            ActiveWindow.SmallScroll ToRight:=2
            Range("B:B,D:D,F:F,H:H,J:J,L:L,N:N,P:P,R:R,T:T").ColumnWidth = 50
          End With
        End If
      Next ws
      MsgBox "Fatto"
    End Sub
    windows 10
    Excel 2016

  19. #18
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    Questa fà le due cose insieme
    Codice: 
    Option Explicit
    Sub Pulisce_Altezza_Larghezza()
    Dim ws As Worksheet, X, Risposta As Integer, Msg As String
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Home Page" And ws.Name <> "Partecipazioni" And ws.Name <> "Incontri" And ws.Name <> "Squadre" Then ''qui il nome dei fogli esclusi
            Msg = Msg & vbCrLf & ws.Name
        End If
    Next ws
    Risposta = MsgBox(prompt:="Cosa devo fare? Eliminare ripristinare tutti i fogli" & Msg, Buttons:=vbYesNo)
    If Risposta = vbYes Then
      For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Home Page" And ws.Name <> "Partecipazioni" And ws.Name <> "Incontri" And ws.Name <> "Squadre" Then ''qui il nome dei fogli esclusi
          With ws
            For X = 2 To 20
                ws.Range(ws.Cells(7, X), ws.Cells(37, X)) = ""
                X = X + 1
            Next X
            ws.Rows("7:37").RowHeight = 26
            ActiveWindow.SmallScroll ToRight:=2
            ws.Range("B:B,D:D,F:F,H:H,J:J,L:L,N:N,P:P,R:R,T:T").ColumnWidth = 50
          End With
        End If
      Next ws
      MsgBox "Fatto"
    Else
      MsgBox "Non eseguito"
    End If
    Sheets("Home Page").Activate
    Application.ScreenUpdating = True
    Set ws = Nothing
    End Sub

  20. #19
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Ciao Raffaele.......
    mi da errore

    mi dice impossibile eseguire la macro

    ----------Post unito in automatico----------

    tutto a posto non mi ero accorto che avevi cambiato nome alla macro..

    ----------Post unito in automatico----------

    Scusa Raffele

    Allora per correttezza la macro dovrebbe cancellare anche

    nel foglio incontri tutto il Range della colonna da I11 in poi..

    Giusto????????
    windows 10
    Excel 2016

  21. #20
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Inserimento dati su più Fogli.......

    Aggiungi queste tre righe sopra la riga >>>MsgBox "Fatto"

    Dim Ur
    Ur = Sheets("Incontri").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Incontri").Range("A11:I" & Ur).ClearContents

  22. #21
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Inserimento dati su più Fogli.......

    Perfetto...........
    era scappato un piccolo errore mi cancellava tutta la riga
    l'ho corretta...........con


    Veramente Un grosso grazie........

    Codice HTML: 
    Dim Ur
    Ur = Sheets("Incontri").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Incontri").Range("I11:I" & Ur).ClearContents
    windows 10
    Excel 2016

Discussioni Simili

  1. [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
  2. [Risolto] Inserimento/richiamo automatico dati dopo inserimento voce da elenco
    Di Lithio nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 17/09/16, 15:40
  3. Creazione nuovi fogli in base ad inserimento dati
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 13/09/16, 15:38
  4. Problema confronto ed inserimento dati tra 2 fogli excel
    Di Eaco80 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 28/07/16, 19:06
  5. Inserimento dati
    Di medalplaza nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 08/12/15, 11:46

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
  •