| | Post: 37 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
  30/10/2020 22:20 | |
buona sera avrei bisogno di aiuto per modificare il tipo di filtro,
nel foglio modulo ce una ricerca con i criteri della data e per nome mi servirebbe aggiungere la possibilità di filtrare anche per tipo di materiale spero di essermi spiegato allego file Grazie |
|
| | Post: 1.004 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
| 30/10/2020 22:59 | |
Forse è il caso di spiegarti meglio, oppure sono io che non ho capito la richiesta, perché nome (Dipendente) è solamente un 'Elenco a discesa' mentre le colonne/celle 'Data di consegna' e 'Materiale consegnato' hanno già i Filtri attivati. [Modificato da rollis13 30/10/2020 23:00]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 37 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
| 30/10/2020 23:20 | |
Nel foglio modulo ho aggiunto nella cella c6 altri criteri di ricerca, quello che mi servirebbe e che se nella c5 non e selezionato nessun dipendente utilizzi il criterio della cella c6 mentre se c5 e c6 ce inserito il criterio deve fare la ricerca con tutti e due i criteri utilizzando anche le date in g3 g4 |
| | Post: 38 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
| 30/10/2020 23:20 | |
|
|
| 31/10/2020 13:03 | |
Seleziona in REGISTRO le celle B8:D8 e attiva il filtro
In teoria questo codice funziona, mà hai solo 10 righe da filtrare
NB. Puoi non scrivere il dipendente o il Materiale, mà le due date sono obligatorie
Ps. Se vuoi filtrare in MODULO devi aggiungere la colonna dipendente e modificare il codice Option Explicit
Sub Filtra_Righe()
Dim Ur, D1, D2, DData1 As Date, DData2 As Date
Sheets("REGISTRO").Activate
Sheets("REGISTRO").Unprotect
If Sheets("MODULO").Cells(3, 7) <> "" Then DData1 = Sheets("MODULO").Cells(3, 7) Else MsgBox "Manca DATA INIZIO"
If Sheets("MODULO").Cells(4, 7) <> "" Then DData2 = Sheets("MODULO").Cells(4, 7) Else MsgBox "Manca DATA FINE"
If Not IsDate(Sheets("MODULO").Cells(3, 7)) Then MsgBox "DATA INIZIO non valida": Exit Sub
If Not IsDate(Sheets("MODULO").Cells(4, 7)) Then MsgBox "DATA FINE non valida": Exit Sub
Ur = Range("B" & Rows.Count).End(xlUp).Row
D1 = ">=" & CDbl(DData1)
D2 = "<=" & CDbl(DData2)
Sheets("REGISTRO").Range("$B$8:$D$" & Ur).AutoFilter Field:=3, Criteria1:=D1, Operator:=xlAnd, Criteria2:=D2
If Sheets("MODULO").Cells(5, 3) <> "" Then Sheets("REGISTRO").Range("$B$8:$D$" & Ur).AutoFilter Field:=1, Criteria1:=Sheets("MODULO").Cells(5, 3)
If Sheets("MODULO").Cells(6, 3) <> "" Then Sheets("REGISTRO").Range("$B$8:$D$" & Ur).AutoFilter Field:=2, Criteria1:=Sheets("MODULO").Cells(6, 3)
Range("$B$4:$D$" & Ur).SpecialCells(xlCellTypeVisible)(1).Select
Sheets("REGISTRO").Protect
End Sub
Sub Scopri_Righe()
Dim Ur, X
Sheets("REGISTRO").Unprotect
Sheets("REGISTRO").Activate
Ur = Range("B" & Rows.Count).End(xlUp).Row
For X = 1 To 3
ActiveSheet.Range("$B$8:$D$" & Ur).AutoFilter Field:=X
Next
Sheets("REGISTRO").Protect
End Sub
[Modificato da ABCDEF@Excel 31/10/2020 17:17] |
| | Post: 39 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
| 31/10/2020 13:41 | |
ciao ABCDEF@Excel sicuramente sbaglio io qualcosa quando faccio il filtro mi va alla riga 1562 senza vedere niente ripeto sicuramente sbaglio io il procedimento |
|
| 31/10/2020 17:13 | |
Va alla riga 1562 perchè non ci sono record da visualizzare
Togli il "Caschetto con calotta di protezione " e vedrai le righe presenti col dipendente
Comunque ho sbagliato era "$B$8:$D$" |
| | Post: 40 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
| 31/10/2020 17:41 | |
volevo ringraziarti per quello che hai fatto ma volevo chiederti che il dipendente e le date devono essere sempre inserite mentre io avrei avuto bisogno di filtrare anche con solo il tipo di Materiale consegnato |
|
| 31/10/2020 20:50 | |
Infatti con "Caschetto con calotta di protezione" non esistono record
Se cambi e metti "Casco per saldatura" ne trova uno |
| | Post: 41 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
| 01/11/2020 09:54 | |
ok hai perfettamente ragione funziona
vorrei chiederti se e possibile che il filtro copiasse il tutto nel foglio MODULO con inizio riga B11 GRAZIE di tutto |
|
| 01/11/2020 15:29 | |
Il problema che hai creato un foglio per stampare con sotto la cella della Firma.
Ammettiamo che un domani ci siano 200 righe, dove si inseriscono?
Col VBA non si deve mai unire le celle., a furia di "pezze" è un brutto codice |
| | Post: 42 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
| 01/11/2020 15:53 | |
grazie di tutto |
|
|
|
|