Moderatori: Anthony47, Flash30005
ricky53 ha scritto:Ciao,
dovresti dire quale formula utilizzi per estrarre i dati e poi ... mettere un controllo sul dato non presente (quale dato è effettivamente contenuto nelle celle senza orario ???)
pietrol ha scritto:Ciao ahidai
in F128
=SE(D128="- : - ";"";ORA(D128))
in G128
=SE(D128="- : - ";"";MINUTO(D128))
poi copiale dappertutto
ciao
pietrol
Anthony47 ha scritto:Direi che dipende da come e' fatto il tuo foglio e da come si comporta il sito da cui scarichi.
Puoi allegare un esempio di file? per le istruzioni vedi qui: viewtopic.php?f=26&t=80395
Ciao
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TVal = Target.Range("A1").Value
TAdr = Target.Address
On Error GoTo Esci
If Right(TVal, 10) <> "^ Giornata" Then Exit Sub
Application.EnableEvents = False
Sheets("IMPORTA DATI").Select: ActiveSheet.Range("A1").Activate
ActiveSheet.UsedRange.Find(TVal, LookIn:=xlValues).Select
ActiveCell.Interior.Color = RGB(255, 255, 0)
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveCell.Interior.Color = RGB(255, 255, 255)
Esci:
Application.EnableEvents = True
Sheets("RISULTATI").Select: Range(TAdr).Select
End Sub
Anthony47 ha scritto:Mah... immagino che dovresti fare il refresh dei dati 1-2 volte a settimana, per cui aspettare 1-2 minuti non dovrebbe essere una tragedia.
Comunque:
In prima alternativa casereccia potresti all' occorrenza andare su foglio IMPORTA DATI, cercare la giornata ancora da aggiornare, tasto dx all' interno dei dati di quella giornata, scegli Aggiona dati.
In seconda alternativa, fai tasto dx sul tab col nome RISULTATI, scegli Visualizza codice, incolli il seguente codice nel frame di dx:
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TVal = Target.Range("A1").Value
TAdr = Target.Address
On Error GoTo Esci
If Right(TVal, 10) <> "^ Giornata" Then Exit Sub
Application.EnableEvents = False
Sheets("IMPORTA DATI").Select: ActiveSheet.Range("A1").Activate
ActiveSheet.UsedRange.Find(TVal, LookIn:=xlValues).Select
ActiveCell.Interior.Color = RGB(255, 255, 0)
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveCell.Interior.Color = RGB(255, 255, 255)
Esci:
Application.EnableEvents = True
Sheets("RISULTATI").Select: Range(TAdr).Select
End Sub
Poi torni su excel al foglio RISULTATI; quando selezioni una cella con l' intestazione XX^ Giornata partira' l' aggiornamento di quella sola giornata.
Prova e fai sapere.
If Right(TVal, 10) <> "^ Giornata" Then Exit Sub
Application.EnableEvents = False
Sheets("IMPORTA DATI").visible = true
Sheets("IMPORTA DATI").visible = false
Private Sub Worksheet_Change(ByVal Target As Range)
Anthony47 ha scritto:Humm… e cosi’ e’ piu’ intuitivo?
Comunque, modifica la prima riga della macro in
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Inoltre per precauzione sposta Application.EnableEvents = True come ultima istruzione, subito prima di End Sub.
Ciao
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 23 ospiti