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 SubSet 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 SubTorna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
| Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 50 ospiti