Inserimento dati in archivio.

[ahidai]

Allora confermo che la macro di Anthony a volte la dicitura "Orario - Antiorario" è corretta e a volte no.
Per Flash chiedo se è possibile contare la distanza dal numero successivo e inserire un'altro testo "UGUALE" quando i 2 numeri consecutivi sono uguali.
Ciao.

[Flash30005]

Supponendo che esce due volte di seguito il 5
nella riga distanza (col D) va scritto 1
e nella colonna F va scritto Uguale?

Fai sapere
ciao

[Flash30005]

Ti avevo fatto delle domande ma credo che sia così

Codice: Seleziona tutto

Sub OrarioAnti()
Application.ScreenUpdating = False
Application.Calculation = xlManual
UR = Worksheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Row
Dim VettO(74) As Integer
VettO(1) = 32
VettO(2) = 15
VettO(3) = 19
VettO(4) = 4
VettO(5) = 21
VettO(6) = 2
VettO(7) = 25
VettO(8) = 17
VettO(9) = 34
VettO(10) = 6
VettO(11) = 27
VettO(12) = 13
VettO(13) = 36
VettO(14) = 11
VettO(15) = 30
VettO(16) = 8
VettO(17) = 23
VettO(18) = 10
VettO(19) = 5
VettO(20) = 24
VettO(21) = 16
VettO(22) = 33
VettO(23) = 1
VettO(24) = 20
VettO(25) = 14
VettO(26) = 31
VettO(27) = 9
VettO(28) = 22
VettO(29) = 18
VettO(30) = 29
VettO(31) = 7
VettO(32) = 28
VettO(33) = 12
VettO(34) = 35
VettO(35) = 3
VettO(36) = 26
VettO(37) = 0
For RR = 2 To UR - 1
    Num1 = Worksheets("Foglio2").Range("B" & RR).Value
    Num2 = Worksheets("Foglio2").Range("B" & RR + 1).Value
    ORiE = ""
NI = -1
NF = -1
For VN = 1 To 37
    If VettO(VN) = Num1 Then
        If NI = -1 Then NI = VN
    End If
    If VettO(VN) = Num2 Then
        If NF = -1 Then NF = VN
    End If
Next VN
If NF - NI < 0 Then NF = 37 + Abs(NF)
esci:
ORiE = "ORARIO"
ValD = (NF - NI) + 1
If ValD = 1 Then
    ORiE = "UGUALE"
Else
    If NF - NI >= 19 Then
        ValD = 38 + (NI - NF)
        ORiE = "ANTIORARIO"
    End If
End If
Worksheets("Foglio2").Range("D" & RR).Value = ValD
Worksheets("Foglio2").Range("F" & RR).Value = ORiE
Next RR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

La macro in caso di uscita dello stesso numero fornisce 1 perché da tutti gli esempi fatti da te conteggi sempre
il numero di partenza

12 - 13 -....orario”
17 - 24 - la distanza doveva essere 15 ... antiorario ...
7 - 13 - ... antiorario ”
2 - 28 - la distanza doveva essere 11 ...antiorario ...
12

Altrimenti non potresti ottenere i risultati da te citati

ciao

[ahidai]

Ti avevo fatto delle domande ma credo che sia così

La macro in caso di uscita dello stesso numero fornisce 1 perché da tutti gli esempi fatti da te conteggi sempre
il numero di partenza

12 - 13 -....orario”
17 - 24 - la distanza doveva essere 15 ... antiorario ...
7 - 13 - ... antiorario ”
2 - 28 - la distanza doveva essere 11 ...antiorario ...
12

Altrimenti non potresti ottenere i risultati da te citati
ciao

Ciao Flash si in effetti hai ragione, gli esempi fatti da me dicevano questo, grazie per l'aggiunta di "uguale", comunque se è possibile avere "0" per me è meglio altrimenti va bene lo stesso.
Ti ringrazio di nuovo per la pazienza che hai.
Ciao.
PS come si utilizza la formula "prodotto" in una colonna con un filtro. Cioè devo avere il prodotto solo dei numeri filtrati. Grazie

[Flash30005]

Ok per zero
ma tutti gli esempi riportati poi avranno un numero in meno


Fai sapere

[ahidai]

Ok per zero
ma tutti gli esempi riportati poi avranno un numero in meno


Fai sapere

Ok va bene che hanno un numero in meno.
PS come si utilizza la formula "prodotto" in una colonna con un filtro. Cioè devo avere il prodotto solo dei numeri filtrati. Grazie
Ciao.

[Flash30005]

Questa è l'ultima versione della macro

Codice: Seleziona tutto

Sub OrarioAnti()
Application.ScreenUpdating = False
Application.Calculation = xlManual
UR = Worksheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Row
Dim VettO(74) As Integer
VettO(1) = 32
VettO(2) = 15
VettO(3) = 19
VettO(4) = 4
VettO(5) = 21
VettO(6) = 2
VettO(7) = 25
VettO(8) = 17
VettO(9) = 34
VettO(10) = 6
VettO(11) = 27
VettO(12) = 13
VettO(13) = 36
VettO(14) = 11
VettO(15) = 30
VettO(16) = 8
VettO(17) = 23
VettO(18) = 10
VettO(19) = 5
VettO(20) = 24
VettO(21) = 16
VettO(22) = 33
VettO(23) = 1
VettO(24) = 20
VettO(25) = 14
VettO(26) = 31
VettO(27) = 9
VettO(28) = 22
VettO(29) = 18
VettO(30) = 29
VettO(31) = 7
VettO(32) = 28
VettO(33) = 12
VettO(34) = 35
VettO(35) = 3
VettO(36) = 26
VettO(37) = 0
For RR = 2 To UR - 1
    Num1 = Worksheets("Foglio2").Range("B" & RR).Value
    Num2 = Worksheets("Foglio2").Range("B" & RR + 1).Value
    ORiE = ""
NI = -1
NF = -1
For VN = 1 To 37
    If VettO(VN) = Num1 Then
        If NI = -1 Then NI = VN
    End If
    If VettO(VN) = Num2 Then
        If NF = -1 Then NF = VN
    End If
Next VN
If NF - NI < 0 Then NF = 37 + Abs(NF)
esci:
ORiE = "ORARIO"
ValD = (NF - NI)
If ValD = 0 Then
    ORiE = "UGUALE"
Else
    If NF - NI >= 19 Then
        ValD = 37 + (NI - NF)
        ORiE = "ANTIORARIO"
    End If
End If
Worksheets("Foglio2").Range("D" & RR).Value = ValD
Worksheets("Foglio2").Range("F" & RR).Value = ORiE
Next RR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Che intendi per prodotto di colonna filtrata?

[Flash30005]

Secondo me una volta filtrati i numeri devi copiare quelli visibili e incollarli in un altro foglio oppure nelle rughe non filtrate dello stesso foglio
e poi fai il prodotto selezionando i numeri incollati
altrimenti avrai il prodotto di tutti i numeri nascosti dal filtro

ciao

[ahidai]

Secondo me una volta filtrati i numeri devi copiare quelli visibili e incollarli in un altro foglio oppure nelle rughe non filtrate dello stesso foglio
e poi fai il prodotto selezionando i numeri incollati
altrimenti avrai il prodotto di tutti i numeri nascosti dal filtro

ciao

grazie Flash la macro adesso è perfetta, comunque per quanto riguarda la formula "prodotto" pensavo che ci fosse un'alternativa tipo "subtotale" o se è possibile una macro con lettura dati della colonna A2:A100 e li copia sulla colonna G includendo la formula prodotto.
Grazie di nuovo.
Ciao.

[Flash30005]

Mi devi spiegare perché per avere un filtro hai un codice di filtratura, giusto?
pertanto puoi applicare una formula che quando trova quel codice fa il prodotto del numero corrispondente
Oppure usi la tabella Pivot nella quale imposti il prodotto invece che somma

Ciao

P.s. si può fare anche con macro chiaramente, ma come sai occorrono più informazioni

[ahidai]

Mi devi spiegare perché per avere un filtro hai un codice di filtratura, giusto?
pertanto puoi applicare una formula che quando trova quel codice fa il prodotto del numero corrispondente
Oppure usi la tabella Pivot nella quale imposti il prodotto invece che somma

Ciao

P.s. si può fare anche con macro chiaramente, ma come sai occorrono più informazioni

Allora, ho copiato dei dati (quote snai) su un foglio excel, metto il filtro dati da menù e filtro le delle quote (di solito le più basse) quindi possono stare sia in col. A segno 1; in col. B segno X; in col. C segno 2; in col. D segno 1X; in col. E segno X2 e in col. F segno 12, quindi una volta filtrate volevo vedere il prodotto finale usciva.
Spero di essermi spiegato, ciao e grazie.

[Flash30005]

Prova con i subtotali
Selezioni il range e segui la procedura
ad ogni cambiamento di...
spunti la colonna valori e selezioni Prodotto
es.:

Codice: Seleziona tutto

=SUBTOTALE(6;C2:C40)

ciao

[Anthony47]

L' argomento mi pare ampiamente risolto, pero' vorrei evitare di lasciare online la mia macro sbagliata (posting.php?mode=reply&f=26&t=94328#pr539979); la "penultima" versione, ritengo funzionante, e' questa:

Codice: Seleziona tutto

    Sub myscost11()
    Dim VettO As Variant
    ColD = "D" '<<< Colonne in cui inserire distanza e Verso
    ColV = "E" '<<<
    '
    UR = Worksheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Row
    '
    VettO = Array(0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, _
            5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29, 7, 28, 12, 35, 3, 26)
    For I = 2 To UR - 1
        wDist = Abs(Application.Match(Cells(I, 2).Value, VettO, 0) - _
            Application.Match(Cells(I + 1, 2).Value, VettO, 0))
                   
Verso = Application.Match(Cells(I, 2).Value, VettO, 0) > Application.Match(Cells(I + 1, 2).Value, VettO, 0)
                   
    Select Case wDist
    Case 19 To 40
    Cells(I, ColD) = 37 - wDist: If Verso = True Then Cells(I, ColV) = "ORAR" _
        Else Cells(I, ColV) = "AntiORAR"
    Case 1 To 18
    Cells(I, ColD) = wDist: If Verso = True Then Cells(I, ColV) = "AntiORAR" _
        Else Cells(I, ColV) = "ORAR"
    Case 0
    Cells(I, ColD) = 0: Cells(I, ColV) = ""
    End Select
    Next I
    End Sub

Come detto da ahidai era sbagliato il calcolo di Orario/Antiorario.

Ciao a tutti

[ahidai]

Ciao Anthony, in effetti l'argomento è stato chiuso con l'aiuto brillante di Flash e nonostante ciò ho provato anche la tua macro e confermo anche se non c'era bisogno che la macro da te proposta è funzionante.
Ciao a tutti.