Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum2 -- CercaGlobale -- Informativa su Cookie e Privacy

Questo Forum1 è in sola lettura -- Usa il Forum2


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Aiuto per formule excel
#1
Ho già creato un calendario con dei risultati che si sommano in automatico per le varie squadre come debbo fare per far sì che le squadre si posizionano nel giusto  ordine allego una bozza del calendario
 

 


Allegati
.xlsx   Prova Biliardo.xlsx (Dimensione: 10,28 KB / Download: 12)
Cita messaggio
#2
Non ci ho capito niente
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#3
riprovo a spiegare ho messo sei squadre con dei risultati e ho creato una classica sommando i punti delle varie squadre non riesco a metterle in ordine di punteggio
 
Cita messaggio
#4
Per prima cosa devi selezionare J8:13 e fare un copia incolla valori o numeri, poi selezioni I8:J13 e vai sulla barra, dati, ordina.
Giuseppe
Cita messaggio
#5
Sposto in ufficio-openoffice.
Giuseppe
Cita messaggio
#6
Ciao Giuseppe così come hai detto tu funziona ma se tu guardi il file che ho inviato nelle caselle j8-j13 ho la somma automatica e si cancella
 

 


Allegati
.xlsx   Prova Biliardo.xlsx (Dimensione: 10,28 KB / Download: 3)
Cita messaggio
#7
ciao Giuseppe con la formula che mi hai mandato funziona ma io nelle caselle da j8 a j13 ho la somma dei risultati e quelli si azzerano
 
Cita messaggio
#8
nessuno mi sa aiutare su quello che ho richiesto
Cita messaggio
#9
è ovvio che la somma automatica si cancella dopo aver fatto un copia-incolla valori, però potresti fare copia e incolla valori su L8 e poi fare l'ordinamento in L8:M13

oppure, dopo aver scritto bene i nomi delle squadre nella colonna I prova questa macro

Codice:
Option Compare Text
Sub a()
LR = Cells(Rows.Count, "B").End(xlUp).Row
Set Rng = Range("B1:E" & LR)
LR = Cells(Rows.Count, "I").End(xlUp).Row
drow = 10
For r = 8 To LR
  squadra = Cells(r, "I")
  With Rng
    Set c = .Find(squadra)
    If Not c Is Nothing Then
      firstAdd = c.Address
      Do
        Set c = .FindNext(c)
        cadd = c.Address
        punti = punti + c.Offset(, 1)
      Loop While Not c Is Nothing And cadd <> firstAdd
    End If
  End With
  Cells(r, "J") = punti
  punti = 0
Next
End Sub

 
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#10
Ottimo, segui le indicazioni di Patel.
Giuseppe
Cita messaggio


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)