Pagina 1 di 1

Ricerca nomi in foglio di calc

Inviato: sabato 11 aprile 2020, 19:01
da allievo65
4 aprile.ods
(217.86 KiB) Scaricato 116 volte
In questo file che elenca la turnazione di tanti lavoratori riesco a calcolare:
nella colonna AG le ore complessive mensili e nelle righe da 119 a 123 il numero dei colleghi presenti nei vari turni.
Domanda:
esiste la possibilità di evidenziare tutti i nomi di coloro (ad esempio) che sono in turno la mattina(1)?
Chiaramente la ricerca è da estendere anche a quelli che svolgono il pomeriggio (2) e la mattina (3).
Grazie

Re: Ricerca nomi in foglio di calc

Inviato: sabato 11 aprile 2020, 19:12
da patel
la mattina di un certo giorno ? o in generale ? con una macro è sicuramente posssibile, forse più che evidenziare sarebbe preferibile fare l'elenco

Re: Ricerca nomi in foglio di calc

Inviato: sabato 11 aprile 2020, 19:17
da allievo65
Si certo, un elenco dei nomi nei vari turni ogni giorno del mese.

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 8:34
da patel
ho aggiunto un foglio per fare la ricerca con la seguente macro:

Codice: Seleziona tutto

Sub Cercanomi
  Doc = ThisComponent
  Sh1 = Doc.Sheets(0)
  Sh4 = Doc.Sheets(3)
  rigainizio = 5
  rigafine = 118
  rigadest = 2
  giorno = Sh4.GetCellRangebyName("B1").value
  turno = Sh4.GetCellRangebyName("B2").value
  Sh4.GetCellRangebyName("D3:D1000").ClearContents(5)
  for r = rigainizio-1 to  rigafine-1
    if Sh1.GetCellbyPosition(giorno+1,r).value = turno then
        Sh4.GetCellbyPosition(3,rigadest).String= Sh1.GetCellbyPosition(1,r).String
        rigadest=rigadest + 1
    end if
  next

End Sub
allego il file

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 9:01
da allievo65
Ti ringrazio ma non so come effettuare la ricerca.
Ho provato nel foglio 4 ma non riesco.

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 11:01
da patel
basta modificare il giorno e il turno e cliccare sul pulsante.
E' la prima volta che usi una macro ? leggi qui http://professoressa.altervista.org/Dis ... re_OOo.pdf

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 11:07
da allievo65
Ho provato ma non vedo alcun nome...

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 11:18
da geovign
All'apertura del file viene mostrato qualche messaggio di avviso? Tipo: "Questo documento contiene macro. etc..)
Se sì, devi abilitarle:
Da Menu > Strumenti > Opzioni > Sicurezza > Sicurezza delle macro > "MEDIO" e confermare.
Aprendo il file apparirà una finestrella in cui viene chiesto se abilitare le macro o meno.
Basta scegliere "abilita macro".
Geo

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 11:35
da allievo65
Bellissimo grazie....ora dovrei imparare a farlo....
Ho visto che lo hai aggiubto solo per il primo foglio ma quali sono le celle dove si può notare la modifica?

Re: Ricerca nomi in foglio di calc

Inviato: domenica 12 aprile 2020, 11:42
da patel
non capisco la domanda

Re: Ricerca nomi in foglio di calc

Inviato: lunedì 13 aprile 2020, 9:57
da geovign
Provo a rispondere io, sempre se ho interpretato bene la domanda.
La soluzione proposta da @patel, non prevede alcuna modifica a celle rispetto al documento originario; quindi nulla è cambiato nei dati, nelle formule e nulla è stato aggiunto, ad eccezione del foglio4.
Al pulsante che premi per ricavare l'elenco, è associato un insieme di istruzioni (macro o subroutine) che va a ricercare nel primo foglio quale personale rispetta le condizioni di ricerca (giorno e turno) e lo trascrive nel foglio4.
In un post precedente
patel ha scritto: ...
E' la prima volta che usi una macro ? leggi qui http://professoressa.altervista.org/Dis ... re_OOo.pdf
Le guide che troverai su questo forum o in rete, molto spesso, sono per OpenOffice, ma sono tranquillamente applicabili anche a LibreOffice.
Geo

Re: Ricerca nomi in foglio di calc

Inviato: martedì 14 aprile 2020, 21:29
da allievo65
Scusate se vi rispondo con ritardo ma ho lavorato....vi ringrazio nuovamente e come dicevo ho bisogno di documentarmi ulteriormente per poter diventare autonomo.