Moderatori: Anthony47, Flash30005
Sub CercaX()
Set Fb = Sheets("LISTA") '<<<< adattare il nome foglio dove sarà riportata la "X"
Set F2 = Sheets("Foglio2") '<<<< adattare il nome foglio dove effettuare la ricerca condizionata
Fb.Range("I4").ClearContents
For RR2 = 3 To 150
If UCase(F2.Range("R" & RR2).Value) = "X" And F2.Range("E" & RR2).Value > 0 Then
Fb.Range("I4").Value = "X"
End If
Next RR2
End Sub
=SE(SOMMA((INDIRETTO("'"&K4&"'!"&"E$3:E$150")>0)*(INDIRETTO("'"&K4&"'!"&"R$3:R$150")<>"x"))=0;"OK";"")
Sub listash()
'Crea elenco Fogli
via = "K4" '<<< La riga da cui l'elenco comincera'
For i = 2 To Worksheets.Count
Range(via).Offset(i - 2, 0) = Worksheets(i).Name
Next i
End Sub
Torna a Applicazioni Office Windows
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
inserisci valore in celle a seguito di condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 10 |
Aumenta altezza riga in base valore cella Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 47 |
Visitano il forum: Nessuno e 32 ospiti