Allora l' ultima descrizione non c' entra niente con quanto avevo capito nei messaggi precedenti, quindi ripartiamo da zero.
Supponiamo che il fatidico J tu lo scriva in foglio Riepilogo cella F1;
1) Vuoi riportare in foglio Riepilogo, diciamo da A2 verso il basso
1a- il nome dei Fogli che in qualsiasi cella di colonna A contengano almeno un valore pari o superiore al valore J
1b- e poi, accodati, i valori della colonna A che soddisfano il confronto "ValoreDellaCella>=J"
2) Ripetendo l' operazione per tutti i fogli presenti eccetto ovviamente il foglio Riepilogo
Per questo prova una macro come questa:
- Codice: Seleziona tutto
Sub talett()
myJ = "F1" '<<< La cella che contiene il valore da sondare
'
Sheets("Riepilogo").Select
JJ = Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
If .Name <> "Riepilogo" Then
If Application.WorksheetFunction.Max(.Range("A:A")) >= Range(myJ) Then
Cells(JJ, 1).Value = .Name: JJ = JJ + 1
For K = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(K, 1) >= Range(myJ) Then
Cells(JJ, 1).Value = .Cells(K, 1).Value
JJ = JJ + 1
End If
Next K
End If
End If
End With
Next I
End Sub
Inseriscila in un Modulo standard dell' editor delle macro, poi compila F1 su foglio Riepilogo e lancia la macro talett.
Se vuoi escludere altri fogli dalla ricerca, allora sostituisci la riga
If.Name <> "Riepilogo" Then
con
in If.Name <> "Riepilogo" And .Name <> "pippo" Then '<<< il nome reale del FoglioSe ancora non ci abbiamo preso allora fai un punto fermo e prova e descrivere piu' analiticamente cosa avresti bisogno di fare.
Ciao