Moderatori: Anthony47, Flash30005
=CONTA.SE(V$1:V$50;AL9)
=CONTA.SE(V$1:V$50;">4")
STEFANO TRENTINI ha scritto:in foglio 3 mettere un numero da 1 2 3 4 5 6 7
Sub CompilaF3()
Set ws1 = Worksheets("Foglio1")
Set Ws3 = Worksheets("Foglio3")
Ws3.Columns("B").ClearContents
UR1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
MyS1 = Array(0, 1, 0, 3, 0, 5, 0, 7, 0, 9, 0, 0, 12, 0, 14, 0, 16, 0, 18, 19, 0, 21, 0, 23, 0, 25, 0, 27, 0, 0, 30, 0, 32, 0, 34, 0, 36)
For RR1 = 1 To UR1
NV1 = MyS1(ws1.Range("B" & RR1).Value)
If NV1 > 0 Then
CS2 = 10
CS1 = CS1 + 1
Else
CS1 = 0
CS2 = CS2 + 1
End If
MIoC = CS1
If NV1 = 0 Then MIoC = CS2
Ws3.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = MIoC
Next RR1
End Sub
Set ws1 = Worksheets("Foglio2")
Set Ws3 = Worksheets("Foglio6")
Sub CompilaF3()
Set ws1 = Worksheets("DNDRPNPR") '<<<< eventualmente modifica questo nome foglio
Set ws3 = Worksheets("Consecutivi")
ws3.Columns(2).ClearContents
UR1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
MyS1 = Array(0, 1, 0, 3, 0, 5, 0, 7, 0, 9, 0, 0, 12, 0, 14, 0, 16, 0, 18, 19, 0, 21, 0, 23, 0, 25, 0, 27, 0, 0, 30, 0, 32, 0, 34, 0, 36, 0)
For RR1 = 1 To UR1
NV1 = MyS1(ws1.Range("B" & RR1 + 1).Value)
If NV1 > 0 Then
CS2 = 10
CS1 = CS1 + 1
Else
CS1 = 0
CS2 = CS2 + 1
End If
MioC = CS1
If NV1 = 0 Then MioC = CS2
ws3.Cells(RR1, 2).Value = MioC
Next RR1
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 6 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: systemcrack e 63 ospiti