Moderatori: Anthony47, Flash30005
If Intersect(Target, Range("C1:C60")) Is Nothing Then Exit Sub
For Each Pict In ActiveSheet.Shapes
NomeImm = Pict.Name
If Pict.TopLeftCell.Address = Target.address Then Exit For
Next Pict
Anthony47 ha scritto:Errore, devi usare:
If Intersect(Target, Range("A1:B60")) Is Nothing Then Exit Sub
(sono le celle che cambiano)
Ciao.
Anthony47 ha scritto:Sovrapponendo il messaggio delle 17:52 con quello delle 13:34 e quello iniziale non capisco se nel tuo foglio ci sono celle che subiscono un cambiamento per Entry di dati (se SI, quali sono? A1:B60, A1:V66, o ??)o ricopiano dati esterni quindi senza eventi Worksheet_Change.
E se sono dati esterni, da dove vengono presi e come vengono importati?
Quale e' la reale situazione?
Ciao, fatti sentire.
Anthony47 ha scritto:E se sono dati esterni, da dove vengono presi e come vengono importati?
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Anthony47 ha scritto:Quindi sono dati esterni; ma non mi dici da dove vengono presi (file xls aperti sul Pc, presi da un server in rete; quando e da chi vengono modificati) e come vengono importati (la formula che usi in V18:V66)
Anthony47 ha scritto:Come pure immagino che il codice postato alle 13:34 sia stato solo un prototipo ampiamente superato.
Anthony47 ha scritto:Alla cieca: prova a sfruttare una macro sull' evento "Calcola" (Private Sub Worksheet_Calculate(), da inserire sul modulo del "Fogliox")
Anthony47 ha scritto:Inoltre se i dati provengono da fogli esterni, sara' necessario aggiornare periodicamente i dati, con una macro rischedulata col metodo "OnTime":
Ad esempio questa aggiorna tutti i collegamenti del file (da mattere nella macro temporizzata):
- Codice: Seleziona tutto
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Anthony47 ha scritto:Oppure prova a chiarire le domande sui dati e sui collegamenti che usi, forse si puo' fare qualcosa di meglio.
Anthony47 ha scritto:Infine una domanda semi-cruciale: che cosa rappresentano le immagini che attivi o disattivi?
Anthony47 ha scritto:Smiles, come sospettavo...
Allora prova a mettere in W18 =SE(V18<-10;"L";SE(V18>10;"J";"K"))
Poi formatta in Wingdings; puo' andare bene cosi'?
Ciao.
=SE(cella origine=copia;0;1)
=CONFRONTA(1;area dei marker;0)
=RIPETI("n";SE(V18>-10;V18+10;0))&"n"
Application.EnableEvents = False
Application.EnableEvents = True
Application.ScreenUpdating = False
Application.ScreenUpdating = True
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 5 ospiti