La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno a tutti,
sono nuovo nel forum e un neofita di excel, vengo subito alla mia richiesta.
Nel foglio allegato vorrei creare una cella dove inserire un "mese e anno" (Es. marzo 2022) quindi estrarre le righe dove compaiono solo le date di marzo 2022.
Allego anche due immagini di come vorrei il risultato.
Grazie
ciao
in O2 il mese.....gennaio-febbraio
in p2 l'anno 2021-2022
dove vuoi da tirare in giù
=SE.ERRORE(INDICE($A$3:$A$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/(ANNO($A$3:$A$1000)=$P$2)/(MESE($A$3:$A$1000)=MESE($O$2&1));RIF.RIGA($A1)));"")
Grazie per la veloce risposta ma il risultato non è quello che volevo.
Da questa situazione digitando da qualche parte la scelta del mese Es. marzo e dell'anno Es. 2022
dovrebbe darmi questo...
anche in un'altro foglio se possibile
Grazie per l'aiuto
Ciao
Credo che per ottenere quello che vuoi sia consigliabile il ricorso a VBA.
La macro seguente (da inserire nel Modulo del Foglio("Chiamate da fare") esegue il lavoro.
ATTENZIONE - E' necessario che la col.P sia vuota. Inserire mese e anno nella cella O2
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O2")) Is Nothing Then
Dim ur As Long, i As Long, j As Long, c As Range
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Application.EnableEvents = False
If Target = "" Or ur = 2 Then
Application.ScreenUpdating = False
ActiveSheet.Rows.EntireRow.Hidden = False
Range("P:P").ClearContents
GoTo Xit
End If
Application.ScreenUpdating = False
Range("P:P").ClearContents
ActiveSheet.Rows.EntireRow.Hidden = False
For i = 3 To ur
For j = 10 To 13
If Cells(i, j) <> "" Then
If Month(Cells(i, j)) = Month(Target) And Year(Cells(i, j)) = Year(Target) Then
Cells(i, 16) = True
Exit For
Else
Cells(i, 16) = False
End If
End If
Next j
Next i
'
For Each c In Range("P3:P" & ur)
If c = False Then
c.EntireRow.Hidden = True
End If
Next
Xit:
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
Ciao
Manca il file. Non riesco ad allegarlo ma è il tuo sul quale ho lavorato.
Ciao,
Mario
Grazie Marius44,
scusa la mia poca conoscenza di Excel+VBA ma non riesco ad inserire la tua macro nel mio foglio.
Puoi tentare di ricollegarlo al forum
Grazie
Ciao
C'è un problema nel sistema e non riesco ad allegarti il file con la macro. Comunque segui queste istruzioni
a) dopo che hai aperto il tuo file clicca contemporaneamente ALT + F11 e ti ritrovi nell'Editor di VBA
b) nella parte sinistra della finestra che si è aperta c'è l'elenco dei Fogli del file. Fai doppio clic su quello denominato Foglio2(Chiamate da fare)
c) nella parte destra si è aperta una finestra bianca. Copia il codice che ti ho suggerito e incollalo in detta finestra bianca.
d) clicca di nuovo contemporaneamente ALT + F11 e ti ritrovi di nuovo nel foglio excel. Vai nella cella O2 ed inserisci, per esempio, 3/2022
Dimmi cosa è successo.
Ciao,
Mario
Perfetto,
ora si che va!
Grazie
