Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ambi con ritardo superiore a....

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

Re: Ambi con ritardo superiore a....

Postdi papiriof » 13/07/16 17:21

Grazie Anthony purtroppo con l'ultima macro non ci siamo meglio la penultima che in qualche modo con l'aiuto con questa marcro che
ho fatto con il registratore (ancora un po lacunosa perchè devo intervenire direttamente) te la metto con tutte le sipegazioni possibili
in modo che riesca a spiegarmi in modo definitivo
Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'questa macro la metto in funzione con un clic mediante bottone sul foglio

Range("AQ4:AR4").Select ' si posiziona in cima dove ci sono i 2 num del primo ambo della lista formata dalla tua macro
'( la penultima macro non l'ultima )
    Selection.Copy 'copia l'ambo suddetto.....
    Range("AT1").Select ' si posiziona nella cella AT1 denonimata cip
    ActiveSheet.Paste ' incolla i due num dell'ambo in AT1:AU1  per sottoporli alla fomula:
    '=SE(O(CONTA.SE(I3:Z3;cip)>1;CONTA.SE(I3:Z3;ciop)>1;E(CONTA.SE(I3:Z3;cip)>0;CONTA.SE(I3:Z3;ciop)>0));252-RIF.RIGA(3:3);"")
    'questa formunla essendo ripetuta da AZ3:AZ252 mi farà vedere in quale delle 250 è presente l'ambo suddetto nella sua forma
    'allargata cioè es: dell'ambo 7 e 22 mi scriverà ilnumero di riga (252-RIF.RIGA(3:3);"")sia che esce 7 e 22 o 7 e 7 o 22 e 22
    'quindi avrò più uscite nella colonna AZ3:AZ252 , nella cella("AZ1")ho la formula MIN AZ3:AZ252 che ho formattato
    'in sfondo rosso se il num min che trova è sup a 100
    Application.CutCopyMode = False
    If Range("AZ1") < 101 Then 'se trova in ("AZ1")un numero + piccolo di 101...
    Range("AQ4:AS4").Select 'si trasferisce sull'ambo che non ha i requisiti e elimina
     Selection.Delete Shift:=xlUp 'la selez e mi mette in 1^ posizione l'ambo successivo fino a quando
     Else: Exit Sub 'trova un numero super a 100 al che lo taglio  e lo metto in un elenco che poi sarà quello desiderato
    End If
End Sub
Win 7+Office 2007... ma preferisco convertire in Office 2003
papiriof
Utente Senior
 
Post: 152
Iscritto il: 16/02/10 13:23

Sponsor
 

Re: Ambi con ritardo superiore a....

Postdi Anthony47 » 14/07/16 00:14

Grazie Anthony purtroppo con l'ultima macro non ci siamo

Questo e' il risultato che ottengo con la modifica che ho descritto:
Immaginefree image hosting

Mi sembrava "molto simile" al risultato che volevi ottenere:
04.82 Ritardo 111
12.32 Ritardo 103
15.40 Ritardo 110
15.44 Ritardo 110
15.49 Ritardo 110
19.85 Ritardo 132
26.70 Ritardo 116
28.70 Ritardo 113
30.85 Ritardo 109
31.68 Ritardo 121
40.68 Ritardo 136
42.85 Ritardo 127

Pero' se risolvi gia' con la macro registrata va bene lo stesso.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Ambi con ritardo superiore a....":

media ritardo
Autore: giorgioa
Forum: Applicazioni Office Windows
Risposte: 11

Chi c’è in linea

Visitano il forum: alfrimpa e 63 ospiti