Condividi:        

distinta calciatori

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

distinta calciatori

Postdi raimea » 02/07/10 07:04

ciao a tutti
con la pausa vacanze sto sistemando un file
che mi serve a compilare la "distinta" da consegnare all'arbitro prima della partita.
il file e' abbastanza -grezzo- ma funziona.... ;)

ora il problema dove mi sono fermato...: :undecided:

ho aggiunto un foglio -ordine nascita-
vorrei compilare questo foglio in base alla data che scrivo in M3
cioe' mi prenda tutti i calciatori nati da quell' anno in poi , e mi compili i relativi campi (colonne)
prendendo naturalmente fonte dal fgl - generale-

mentre continuo a provarci vi ringrazio
(ovviam allego file)

http://rapidshare.com/files/404424903/distinta.zip.html
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: distinta calciatori

Postdi Flash30005 » 02/07/10 09:23

Prova questa macro
Codice: Seleziona tutto
Sub OrdData()
URG = Worksheets("Generale").Cells(Rows.Count, 4).End(xlUp).Row
URO = Worksheets("odine.nascita").Cells(Rows.Count, 4).End(xlUp).Row
Worksheets("odine.nascita").Range("D2:K" & URO).ClearContents
For RR = 2 To URG
If Worksheets("Generale").Range("E" & RR).Value >= Worksheets("odine.nascita").Range("M3").Value Then
 Worksheets("Generale").Range("D" & RR & ":K" & RR).Copy Destination:=Sheets("odine.nascita").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
End If
Next RR
Call Formatta
End Sub
Sub Formatta()
    Sheets("odine.nascita").Select
    Range("D2:K35").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlDash
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
        Range("D2:K35").Select
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("A1").Select
End Sub


Fai sapere
Ciao

P.s. C'è un errore nel nome del foglio "odine.nascita" :?: non l'ho corretto
(se cambi quel nome, cambia anche in tutte le righe della macro dove viene menzionato)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: distinta calciatori

Postdi raimea » 02/07/10 09:54

okk ;)
grazie
funziona tutto
ho corretto anche l'errore del nome - foglio-
appena ho sistemato un po' tutto metto disponibile il file..
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi raimea » 05/07/10 17:20

ora ho una richiesta che non e' una formula.. :idea:

sul pc ho "configurato" una stampante - virtuale - dopdf

http://www.lelugarine.eu/downloads.asp?id=416

e' una stampante virtuale che serve a trasformare (quando selezionata) , ogni stampa in un file .pdf

ora io vorrei poter stampare il foglio - stampa -
con questa stampante anzicche' la stampante tradizionale vera.
in modo d'avere il file in .pdf da poter spedire.

mi sarebbe sufficente poter - scegliere - ogni volta quale delle stampanti usare x la stampa.
in attesa di idee ringrazio

http://rapidshare.com/files/405117885/distinta.zip
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi Anthony47 » 05/07/10 23:03

Se il tuo problema e' impostare da macro una stampante:
-ti registri una macro mentre scegli la stampante che preferisci e lanci la stampa; poi adatti il codice ottenuto alla tua macro
OPPURE
-guarda qui per un esempio di come si puo' proporre all' utente la scelta della stampante: viewtopic.php?p=486881
OPPURE
-imposti la stampante dopdf come stampante di default e lanci le stampe direttamente.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: distinta calciatori

Postdi raimea » 06/07/10 06:29

ottimo - ottimo 8)
era cio che cercavo
ho usato-adattato la macro suggerita


Codice: Seleziona tutto
Sub stampa2()

SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'stampa il range impostato in U1
If [U1] <= 0 Then Exit Sub
    ActiveSheet.PageSetup.PrintArea = "$A$1:$h$" & 52 * [U1]
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    Range("J7").Select
End Sub


ringrazio
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi raimea » 10/07/10 12:16

V 1.8

questo il file della versione finale
nel casoc possa servire a qualcuno.
ciao

http://rapidshare.com/files/406111909/distinta.zip
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

distinta calciatori

Postdi raimea » 17/09/10 21:30

aiuto :-?
una macro mi fa i capricci.
la macro che mi filtra i calciatori x data di nascita, " ordata"
non mi funziona piu correttamente, ma non riesco a trovare dove sia l'errore,
premetto che prima funzionava bene.
tale macro mi deve creare il foglio ordine.nascita prendendo i dati dal foglio generale
in base alla data scritta in M3 (fgl ordine nascita), e riportare i nati da quel giorno in poi.

questa la macro incriminata

Codice: Seleziona tutto
Sub OrdData()


URG = Worksheets("Generale").Cells(Rows.Count, 4).End(xlUp).Row

URO = Worksheets("ordine.nascita").Cells(Rows.Count, 4).End(xlUp).Row
ActiveSheet.Unprotect
   
Worksheets("ordine.nascita").Range("D2:K" & URO).ClearContents
For RR = 2 To URG
If Worksheets("Generale").Range("E" & RR).Value >= Worksheets("ordine.nascita").Range("M3").Value Then
Worksheets("Generale").Range("D" & RR & ":K" & RR).Copy Destination:=Sheets("ordine.nascita").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
End If
Next RR
Call Formatta
End Sub
Sub Formatta()

    Sheets("ordine.nascita").Select
    Range("D2:K35").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlDash
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
        Range("D2:K35").Select
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
       
        ActiveWindow.DisplayGridlines = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
    Range("B2").Select
       
End Sub

allego il file
http://rapidshare.com/files/419667936/DISTINTA-calcio2.zip
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi Flash30005 » 18/09/10 01:55

Il problema è sempre l'interpretazione delle date (sistema americano e europeo)
E' sufficiente cambiare un paio di righe ma invio l'intera macro

Codice: Seleziona tutto
Sub OrdData()


URG = Worksheets("Generale").Cells(Rows.Count, 4).End(xlUp).Row

URO = Worksheets("ordine.nascita").Cells(Rows.Count, 4).End(xlUp).Row
ActiveSheet.Unprotect
   
Worksheets("ordine.nascita").Range("D2:K" & URO).ClearContents
For RR = 2 To URG
dataini = DateSerial(Year(Worksheets("ordine.nascita").Range("M3").Value), Month(Worksheets("ordine.nascita").Range("M3").Value), Day(Worksheets("ordine.nascita").Range("M3").Value))
dataGen = DateSerial(Year(Worksheets("Generale").Range("E" & RR).Value), Month(Worksheets("Generale").Range("E" & RR).Value), Day(Worksheets("Generale").Range("E" & RR).Value))
If dataGen >= dataini Then
Worksheets("Generale").Range("D" & RR & ":K" & RR).Copy Destination:=Sheets("ordine.nascita").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
End If
Next RR
Call Formatta
End Sub


Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

distinta calciatori

Postdi raimea » 18/09/10 06:08

ok, grazie.
ora nel foglio ordine.nascita mi riporta correttamente le date richieste.

mi rimane da sistemare l'ordinamento crescente in col E, che rimane "confuso"
ho provato a registrare una macro ed inserire il codice ma non so xche non lo fa. :undecided:
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi Flash30005 » 18/09/10 12:25

Una macro ordina funzionate è questa
Codice: Seleziona tutto
Sub OrdinaData()
ActiveSheet.Unprotect
URO = Worksheets("ordine.nascita").Cells(Rows.Count, 4).End(xlUp).Row + 1
    Range("D1:K" & URO).Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _
        DataOption2:=xlSortNormal
    ActiveSheet.Protect
End Sub

quindi dopo la chiamata alla macro Formatta
metterai un richiamo a questa macro (OrdinaData)

ma...
il problema non è l'ordinamento...
Hai dei campi "sporchi" nelle date del foglio Generale e quindi non funziona nemmeno così perché in effetti non sono date.
Quindi ridigita le date del foglio generale,
non è necessario digitare l'intera data ma solo l'ultima cifra dell'anno e premi invio.

A questo punto tutto quanto detto non è più necessario.
Puoi riutilizzare la versione originale che hai inviato nel tuo post,
questo spiega perché...

raimea ha scritto:aiuto :-?
...
non mi funziona piu correttamente, ma non riesco a trovare dove sia l'errore,
premetto che prima funzionava bene.


:evil:


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

distinta calciatori

Postdi raimea » 18/09/10 13:49

okk V 2.4
grazie delle risposte e del suggerimento...
ho scoperto cosa era che creava problemi,
era questo pezzo di macro che metteva Tutte le 1me lettere del foglio in maiuscolo,
cosicche' le date andavano in tilt...
Codice: Seleziona tutto
    Dim C As Object               '<<< metto maiuscola la 1ma lettera
Set zona = ActiveSheet.UsedRange
For Each C In zona
If C <> "" And IsNumeric(C) = False Then
C = UCase(Mid(C, 1, 1)) + LCase(Mid(C, 2))
End If
Next


ho risolto sistemando tale pezzo di macro cosi:
Codice: Seleziona tutto
     Dim CL As Range      ' <<< metto maiuscola la 1ma lettera
For Each CL In ActiveSheet.Range("d2:d35, i2:k35")
If CL.HasFormula = False Then
Trimma = Trim(CL.Value)
Iniziale = Left(Trimma, 1)
Resto = Mid(Trimma, 2)
CL.Value = UCase(Iniziale) & Resto
End If
Next CL


ora funziona tutto correttamente, GRAZIE.
metto disponibile il file.

http://rapidshare.com/files/419788792/Copia_di_DISTINTA-calcio.zip
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi datum » 05/10/14 14:18

per favore, potresti rimettere in download il file della distinta?
Grazie!
datum
Newbie
 
Post: 3
Iscritto il: 05/10/14 14:04

Re: distinta calciatori

Postdi raimea » 05/10/14 15:13

ciao
vedi se cio che cerchi e' questo.
io e' un po di tempo che non ci metto le mani
e non ho piu sentito "l'utilizzatore"....

http://www.lelugarine.eu/downloads.asp?id=555

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: distinta calciatori

Postdi datum » 05/10/14 20:55

grazie della risposta, mi dice accesso negato
datum
Newbie
 
Post: 3
Iscritto il: 05/10/14 14:04

Re: distinta calciatori

Postdi raimea » 05/10/14 21:25

ciao

forse basta registrarsi ???' :!: :!: :!: :!:

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "distinta calciatori":


Chi c’è in linea

Visitano il forum: Nessuno e 42 ospiti