| | Post: 1 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
  27/11/2019 17:29 | |
grazie per l'eventuale contributo |
|
| | Post: 4.279 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 27/11/2019 18:12 | |
Devi spiegare bene la tua richiesta perchè io dal file non ho capito nulla.
La spiegazione la devi mettere nel post non solo nell'allegato.
Alfredo |
| | Post: 3.554 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 27/11/2019 18:59 | |
Buona sera, Giacomo;
potresti provare con un Codice VBA di questo tipo:
Option Explicit
Sub Filtra()
ActiveSheet.Range("$A$5:$I$4055").AutoFilter Field:=5, Criteria1:=Cells(1, 1).Value, Operator:=xlAnd
End Sub
Buona serata.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 1 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 08:10 | |
grazie Giuseppe , da me non funzione , perché non alleghi il file da te creato , grazie |
| | Post: 2 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 08:47 | |
ciao alfrimpa e grazie per l'interessamento , spiego meglio: nel foglio , che è inserito in una serie di fogli , ho necessita di far apparire nella colonna 5 solo gli impianti che contengono la esatta dicitura che appare nella cella A1. ovviamente , cambiando nome interno alla cella A1 deve cambiare in automatico anche la lista della colonna 5. spero di aver chiarito e grazie |
| | Post: 3.555 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 28/11/2019 08:48 | |
Buona giornata, Giacomo. @giacomo.1949, scrive:
Grazie Giuseppe , da me non funziona , perché non alleghi il file da te creato , grazie.
Per condurre i miei Test ho utilizzato il File che hai allegato in #1; l'unica cosa a cui posso pensare è il tipo d'estensione che deve essere necessariamente .xlsm e l'Opzione "Macro" deve essere attiva. Allego il File .xlsm nel quale ho aggiunto il Pulsante "Filtra" che attiva il Codice VBA ad esso collegato; poi, se lo ritieni utile e opportuno, possiamo evitare l'uso del Pulsante utilizzando la Funzione "Worksheet_Change" A disposizione. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 3 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 08:50 | |
Giuseppe mi si dice che devo creare l'evento, ma io non conosco VBA quindi se mi mandi il foglio completo mi fai un gran regalo . grazie
|
| | Post: 4 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 08:51 | |
grazie , si meglio senza pulsante grazie grazie
|
| | Post: 5 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 08:58 | |
Giuseppe , col pulsante funziona , ma se mi fai l'automatismo sarebbe ottimo . Grazie ancora e scusa il disturbo
|
| | Post: 3.556 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 28/11/2019 09:48 | |
Buona giornata, Giacomo; grazie del riscontro, non è sempre così scontato. Per facilitare la selezione del Comune da visualizzare, in Cella "A1", ho inserito una "Convalida dati" con l'elenco dei Comuni. In Colonna "I" ho inserito un elenco univoco dei "COMUNE IMPIANTO"; puoi modificare l'elenco aggiungendo o togliendo eventuali Comuni, "Convalida dati" si aggiornerà di conseguenza. Ho aggiunto il Pulsante "Visualizza tutti i Record" che facilita la visualizzazione di tutti i Record presenti nel DataSet qundo il filtro non è più necessario. Dovrebbe, il condizionale è sempre d'obbligo, funzionare. A disposizione. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 6 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 10:13 | |
perbacco , perfetto un grande GRAZIE👌👌👌👌 |
| | Post: 7 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 14:59 | |
alfrimpa: e se invece di dover selezionare nella tendina volessi collegare ( = monitor!C1) la cella A1 ad una cella di un altro foglio , che appunto si trova in monitor , come posso fare? |
| | Post: 8 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 16:01 | |
Giuseppe: e se invece di dover selezionare nella tendina volessi collegare ( = monitor!C1) la cella A1 ad una cella di un altro foglio , che appunto si trova in monitor , come posso fare? |
| | Post: 3.559 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 28/11/2019 21:24 | |
Buona sera, @giacomo.1949; credo potresti provare con l'evento "BeforeDoubleClick". Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 9 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 28/11/2019 22:23 | |
"BeforeDoubleClick" ? non so cosa sia , abbi pazienza sono davero inesperto grazie
|
| | Post: 3.560 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 29/11/2019 08:01 | |
Buona giornata, Giacomo; non voglio monopolizzare questa Discussione, lascio ad altri Utenti il proseguimento. Quello che posso suggerirti è di analizzare con attenzione tutti gli Eventi disponibili e scegliere quello più appropriato alle tue necessità. Il "BeforeDoubleClick" che avevo proposto in risposta #14 viene attivato con doppio click su una Cella del DataSet. Prova a condurre qualche Test in autonomia e, se hai dubbi, allega il tuo codice VBA. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 10 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 29/11/2019 10:02 | |
grazie Giuseppe , molto gentile |
| | Post: 11 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 10/12/2019 13:26 | |
buon giorno Giuseppe, ho capito che ho posto male la domanda leggendo un'altra domanda alla quale hai risposto, riformulo la domanda : ho un foglio sul quale con una tendina scelgo un impianto. il nome dell'impianto appare in più fogli. Ora vorrei che in un foglio , quello che Ti ho già inviato, nel quale, nelle cella A1, appare il nome dell'impianto il nome degli altri impianti scompaia e rimanga solo il nome scritto nella cella A1.
spero di essere stato più chiaro e se mi mandasi un esempio te ne sarei grato. cordialmente Giacomp |
| | Post: 3.595 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 10/12/2019 16:35 | |
Buon pomeriggio, Giacomo.
@giacomo.1949, scrive:
... il nome degli altri impianti scompaia ...
Quindi in tutti i Fogli di lavoro tutti i Record diversi da "Nome" devono essere nascosti?
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 12 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 10/12/2019 16:47 | |
ciao , no caro solo nel foglio che ti ho mandato , quindi riassumendo quando appare nella cella A1 ad esempio laconi deve apparire nella colonna 5 solo laconi. grazie [Modificato da giacomo.1949 10/12/2019 16:55] |
| | Post: 13 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 10/12/2019 16:54 | |
in questo caso il nome lo prende da "sceltaimpianto" [Modificato da giacomo.1949 10/12/2019 16:56] |
| | Post: 3.596 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 10/12/2019 17:47 | |
Buon pomeriggio, Giacomo.
@giacomo.1949, scrive:
... quindi riassumendo quando appare nella cella A1 ad esempio laconi deve apparire nella colonna 5 solo laconi ...
Perdonami, ma è quello che succede con il File che ti ho inviato in precedenza; il Codice VBA funziona in ogni Foglio di lavoro.
Dove sbaglio?
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 14 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 10/12/2019 17:59 | |
"sceltaimpianto" è un foglio del programma che ho fatto in excel , quindi in pratica quando dal foglio "sceltaimpianto" , scelgo l'impianto deve , nel foglio che mi hai mandato apparire solo l'impianto che ho scelto nel foglio "sceltaimpianto" . scusa il bisticcio di parole ahahah
grazie |
| | Post: 15 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 10/12/2019 18:03 | |
[Modificato da giacomo.1949 10/12/2019 18:07] |
| | Post: 3.597 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 10/12/2019 18:47 | |
Buon pomeriggio, Giacomo;
che ne dici di inviarmi il File, senza Dati sensibili, con alcuni Fogli di lavoro già inseriti?
Questo mi eviterebbe dover ricostruire una probabile struttura con il rischio di non centrare l'obiettivo.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
|
| 10/12/2019 19:55 | |
Personalmente eviterei, comunque in "Questa cartella di lavoro" Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ws As Worksheet
Set ws = ActiveSheet
If Range("A5:I5").AutoFilter = True Then
ActiveSheet.Range("$A$5:$I$50000").AutoFilter Field:=5, Criteria1:=Cells(1, 1)
End If
Set ws = Nothing
End Sub Salva ed inserisci in A1 (altro nome sui fogli in A1) [Modificato da ABCDEF@Excel 11/12/2019 04:43] |
| | Post: 3.598 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 10/12/2019 20:13 | |
Buona sera, Giacomo;
molto probabilmente è un mio limite ma, senza un File di riferimento, questo è veramente il massimo che riesco a prporti.
Personalmente mi fermo qui ma ti lascio in buone mani di Utenti più perspicaci.
Buona serata.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 17 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 11/12/2019 09:05 | |
Ciao Giuseppe, ho spurgato il file nella speranza di aver lasciato ciò che ti serve per la Tua prova. spero non ti chieda , all'apertura la password. grazie |
| | Post: 3.599 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
| 11/12/2019 09:11 | |
Non vedo il File.
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 18 | Registrato il: 27/11/2019
| Età: 74 | Utente Junior | office 365 | | OFFLINE | |
|
| 11/12/2019 09:15 | |
si forse è troppo grande lo riduco ancora
|
|
|
|
|