Moderatori: Anthony47, Flash30005
Sub EliminaRigheContigue()
Call CercaComb308
'dopo aver calcolato con la macro di Anthony
'ripasso il tutto per eliminare quelle che
'hanno due o più numeri in righe contingue
uc = Cells(1, Columns.Count).End(xlToLeft).Column
ur = Cells(Rows.Count, 3).End(xlUp).Row
For J = 3 To uc
For I = 2 To ur - 4
If Cells(I, J) <> "" And Cells(I + 1, J) <> "" Then
Cells(1, J) = ""
Exit For
End If
Next I
Next J
End Sub
End If
If FlAvvia = True Then Exit Do
Loop
OB_UpTo = Foglio1.OB_FinoA.Value '<<< si blocca qui
myT0 = Timer
With UserForm2
If FlAvvia = True Then Exit Do
Loop
OB_UpTo = Sheets("LAVORO").OB_FinoA.Value '<<< si blocca
myT0 = Timer
With UserForm2
OB_UpTo = Foglio1.Range("A17")
=SE(A16>0;FALSO;SE(A16=0;VERO;"ERRORE!"))
"ESATTAMENTE";-#.##0;"FINO A";"Errore!"
Ma se apri un NUOVO file excel, riesci a inserire sul foglio un "Pulsante di Opzione" prelevandolo dalla casella Controlli ActiveX?
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 66 ospiti