Moderatori: Anthony47, Flash30005
=Max(A1:A1000)
=MAX(SE(A2:A1000="";SE(A1:A999<>"";A1:A999;0);0))
Sub ContaGr()
Set Ws = Worksheets("Foglio1") '<<<<<<<<<<<< inserisci il nome del tuo foglio se diverso da "Foglio1"
UR = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws.Range("C2:C" & UR).ClearContents
For RR = 2 To UR
If Ws.Range("A" & RR).Value = 1 Then
RR1 = RR
NN = 0
End If
If Ws.Range("A" & RR).Value = "" Then
If NN = 0 Then Ws.Range("C" & RR1).Value = Ws.Range("A" & RR - 1).Value
NN = 1
End If
Next RR
End Sub
=SE(E(A2<>"";A1="");MAX(SCARTO($A$1;MAX(SE(B$1:B2="";RIF.RIGA(B$1:B2);""));0;MIN(SE(B2:B$1000="";RIF.RIGA(B2:B$1000);""))-MAX(SE(B$1:B2="";RIF.RIGA(B$1:B2);""));1));"")
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 8 ospiti