Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

pulsante con successive compilazioni

Vai
6 Anni 1 Mese fa #160 da ire.zazi
COM_KUNENA_MESSAGE_CREATED_NEW
Ciao ragazzi! io avrei bisogno di un aiutino.
Sto lavorando su un foglio che poi ti allego;che analizza giorno per giorno la parte finale del ciclo produttivo di una forgiatura.
Nel foglio compaiono delle date di alcune fasi, evidenziate in azzurrine, come per esempio
Data collaudo_data per distensione/taglio_data approntamento1_data approntamento_data consegna cliente.
Ora le mie date si compilano partendo dalla consegna al cliente, andando a sottrarre i giorni fino ad arrivare alla data del collaudo.
Ora mi servirebbe un consiglio perchè nel caso in cui il giorno di consegna al cliente sia passata rispetto alla data odierna (in R1), io inizio a compilare le date calcolando come giorno di partenza la data del collaudo che concide con il giorno stesso del programma e andando a sommare i giorni fino ad arrivare alla nuova data di consegna ( eventuale consegna). Pensavo ad un pulsante con la doppia scelta dato che il percorso da seguire per la compilazione è lo stesso, ma a senso inverso.
Non so se mi sono spiegata sufficientemente.
Vi allego comunque il file in analisi.
Aspetto vostre notizie!
GRAZIE!

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 1 Mese fa #163 da Rubik72
COM_KUNENA_MESSAGE_REPLIED_NEW
Non è ben chiaro. Proveró a scaricare il file e ti faccio sapere.

Inviato dal mio Nexus 7 usando Tapatalk 4

Follia è fare sempre la stessa cosa e aspettarsi risultati diversi.
Albert Einstein

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 1 Mese fa #164 da ire.zazi
COM_KUNENA_MESSAGE_REPLIED_NEW
Ciao... Ho rivisto il mio problema, o meglio, ragionando avrei pensato ad un'altra soluzione.
Mi servirebbe che al variare del contenuto di una cella, ovvero se una data fosse passata rispetto alla data odierna, mi si attivasse una macro, altrimenti la compilazione rimane come impostata precedentemente.
Vi ringrazio e scusate per il cambio di idea!

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 1 Mese fa - 6 Anni 1 Mese fa #169 da Alessandra
COM_KUNENA_MESSAGE_REPLIED_NEW
Per rilevare la variazione di una cella, puoi usare l'evento Worksheet Change e vedere il valore del suo Target.
Ammettiamo che la cella che contiene la data da controllare sia A1, puoi usare una routine come quella che segue

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("a1") Then
If Range("a1") < Date Then
'qui le azioni da compiere se la data è passata
End If
End If

End Sub

Fammi sapere come è andata!
Last edit: 6 Anni 1 Mese fa by Alessandra.

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 1 Mese fa #170 da ire.zazi
COM_KUNENA_MESSAGE_REPLIED_NEW
Nel mio caso; in cui, all'apertura del programma, la mia tabella si autocompila e quindi non c'è un effettivo change in corso d'opera, l'unica operazione da fare sarebbe quella di valutare i dati che sono già presenti in tabella.
Questo codice funziona anche in tal caso?
In più a me servirebbe che il codice funzioni per una colonna intera! Se sostituisco ad A1, il mio intervallo a1:a5 per esempio, il debug mi dà errore.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("a1:a5") Then
If Range("a1:a5") < Date Then
call macro1
End If
End If

End Sub

In più SE la data è passata chiamo la macro1, altrimenti chiamo la macro2. Per ciò devo aggiungere un ELSE?
Mi scuso per le domande banali che sto facendo, ma sono nuova di VBA!
Grazie mille!

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 1 Mese fa #171 da Alessandra
COM_KUNENA_MESSAGE_REPLIED_NEW

ire.zazi ha scritto: Nel mio caso; in cui, all'apertura del programma, la mia tabella si autocompila e quindi non c'è un effettivo change in corso d'opera, l'unica operazione da fare sarebbe quella di valutare i dati che sono già presenti in tabella.
Questo codice funziona anche in tal caso?
In più a me servirebbe che il codice funzioni per una colonna intera! Se sostituisco ad A1, il mio intervallo a1:a5 per esempio, il debug mi dà errore.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("a1:a5") Then
If Range("a1:a5") < Date Then
call macro1
End If
End If

End Sub


Questo avviene perchè Target è una cella soltanto. Se vuoi controllare più celle devi fare un ciclo su tutte le celle dell'interallo che ti interessa.

ire.zazi ha scritto: In più SE la data è passata chiamo la macro1, altrimenti chiamo la macro2. Per ciò devo aggiungere un ELSE?
Mi scuso per le domande banali che sto facendo, ma sono nuova di VBA!
Grazie mille!


si certo ci vuole else.
Rimane il problema di quando eseguire questo codice.
Forse ogni volta che apri il file, quindi sull'evento Wordbook_open?
Qualcosa così?

Private Sub Workbook_Open()
Dim cella As Range

For Each cella In Range("A1:A5")
If cella.Value < Date Then
macro 1
Else
macro 2
End If
Next

End Sub

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 1 Mese fa #172 da ire.zazi
COM_KUNENA_MESSAGE_REPLIED_NEW
Ti ringrazio! Comunque si, mi servirebbe che il codice funzioni all'apertura, senza nessuna selezione o cambio di valore all'interno.
La data che devo valutare la pesco da un altro foglio di calcolo, recuperata grazie ad un certa.vert.
quindi potrebbe andare così?
Grazie mille ! =)
Sei stata proprio esauriente! Grazie!!!

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
2 Anni 6 Giorni fa #569 da fbarraza28
COM_KUNENA_MESSAGE_REPLIED_NEW
Pandora Bracelet
Jordan 11 GYM Red
Yeezy Boost 350
Yeezy boost 350 v2
Adidas Yeezy Boost 350
Christian Louboutin Shoes
Christian Louboutin
[url=http://www.nikeoutlet--store.us.com/]Nike Store[/url]
Nike Vapormax
Moncler
[url=http://www.puma--shoes.us.com/]Puma Shoes[/url]
Curry Shoes
Air Max
Pandora
Kevin Durant Shoes
Nike Air More Uptempo
Birkenstock
KD 10
Ralph Lauren Outlet Online
Pandora Rings Official Site
Adidas Shoes
Ralph Lauren Outlet
Jordan 11 Space Jam
[url=http://www.pandora--jewelry.us.com/]Pandora Jewelry[/url]
Adidas Outlet
Louboutin Shoes
Timberland Boots
Adidas Ultra Boost
Vans
New Jordans
Nike Air Max 95
Kyrie 3
Nike Cortez Men
Jimmy Choo Shoes
Nike KD 10
Birkenstock Shoes For Women
Longchamp Bags
Coach Factory Outlet
Nike Vapor Max
Air Max 90
[url=http://www.ralph--lauren.us.com/]Ralph Lauren[/url]
James Harden shoes
Nike Huarache
Michael Kors
Longchamp Outlet
Adidas Outlet Store
Lebron James Shoes
Lebron 15
[url=http://www.nike--shoes.us.com/]Nike Shoes[/url]
Yeezy Beluga 2.0
Pandora Ring
Curry 4
Kyrie Irving Shoes
Pandora Charms
Kate Spade Outlet Online
Red Bottom Shoes
Pandora
Kate Spade Outlet Online
Coach Outlet
Clarks Shoes For Women
Nike Air Max 2018
Coach Outlet
Goyard Handbags
Kyrie 3
[url=http://www.adidas--yeezy.us.com/]Adidas Yeezy[/url]
Louboutin Shoes
Air Max 90
Birkenstock
Jordan 11
North Face Jackets
Pandora Jewelry
Yeezy
Air Force 1 Shoes
Pandora
Kyrie 4
Pandora Outlet
Pandora Jewelry
Timberlad Boots
Ralph Lauren Outlet
Moncler UK
Jordan 11
Adidas NMD
Longchamp Handbags
Yeezy Boost 350 V2
Pandora Jewelry 70% Off Clearance
Yeezy
Skechers Shoes UK
Birkenstock Outlet
Pandora Charms
Pandora Charm
Kyrie Irving Shoes
Adidas NMD
Air Jordan 11
North Face Outlet
Rihanna Puma
Michael Kors Outlet
Lebron 15
Yeezys
Air Max 2018
Yeezy Blue Tint
Nike Air Max
Adidas Shoes
Vans Outlet
[url=http://www.nike--outlet.us.com/]Nike Outlet[/url]
Polo Ralph Lauren Outlet
Red Bottom Shoes
James Harden shoes
Soccer Cleats
Adidas NMD
Christian Louboutin Shoes

Si prega Accedi o Crea un account a partecipare alla conversazione.

Tempo creazione pagina: 0.683 secondi
Powered by Forum Kunena
Joomla templates by a4joomla