spiego prima quello che vorrei fare poi posto la macro che ho creato raccattando qua e là tra i codici che ho..
Ho pensato di usare due celle per ottenere i dati che mi servono (filtrando Tabella2133)
- Cella D6 che utilizzo per inserire il Nome Cliente
- Cella D8 per inserire il Numero d'Ordine
prima condizione: modificando D6, Cella D8 deve ripulirsi e rimuovere Filtro4 e Filtro7 potenzialmente attivi che controllano rispettivamente Nome Cliente e Numero d'Ordine
- Compilando D6, si deve attivare Filtro4 con Criterio D6 appunto..(in questo modo ottengo tutti gli ordini di quel Cliente)
in seguito,
- Compilando D8 si deve attivare Filtro7 (per ottenere tutti i risultati collegati a quello specifico Numero d'Ordine)
sarebbe bello se questi filtri si attivassero senza bisogno di creare pulsanti, quindi avevo pensato di inserire questi comandi direttamente nel modulo di Foglio7
L'unico risultato ottenuto fin'ora è:
- pulizia di Cella D8 se modifico D6 ( ok )
- Si attiva correttamente Filtro4 se compilo D6 ( ok )
- Quando provo a reinserire un nuovo Nome Cliente in D6 la Tabella non si riarma con tutti gli elementi perchè i Filtri restano inseriti
più avanti di così però non riesco ad andare...
Grazie per l'aiuto
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Area As String, inArea As Range, myC As Range
'Se modifico la cella Cancella le altre celle di immissione dati
If Target.Address = "$D$6" Then
Range("D8").ClearContents
If Cells(6, 4) = "" Then
ActiveSheet.ListObjects("Tabella2133").Range.AutoFilter Field:=4
ActiveSheet.ListObjects("Tabella2133").Range.AutoFilter Field:=7
End If
ActiveSheet.ListObjects("Tabella2133").Range.AutoFilter Field:=4, Criteria1 _
:=Cells(6, 4)
End If
End Sub
