Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

cercare i turnisti della settimana

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

cercare i turnisti della settimana

Postdi raimea » 25/01/19 19:02

ciao
tramite una macro vorrei estrarre il nominativo e il relativo turno
dei tecnici in turno nella settimana indicata dal lun alla domenica

indicando il nome del foglio in cui cercare:

1_ nel fgl ricerche E3 scrivo una data che dovra' essere solo un lunedi
quindi il primo controllo deve essere fatto su questo.

2_ estrarre i nominativi dei tec che il lunedi hanno il turno
indicato con 1 e 2 e riportarlo in fgl ricerche.
e scrivere nella colonna E di fgl ricerche


3_ il nome dei tec di turno il sabato
prelevando il turno indicato con : B 1 2
e scrivere nella colonna F di fgl ricerche

4_ il nome dei tec di turno la domenica con il turno B
e scrivere nella colonna G di fgl ricerche

un esempio fatto manualmente
di come dovrebbe essere , lo si vede nel file allegato nel fgl ricerche.

grazie

ciao

https://www.dropbox.com/s/e1o1q572sjz7tjr/test_ricerche.rar?dl=0
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: cercare i turnisti della settimana

Postdi Marius44 » 25/01/19 20:28

Ciao
Ti propongo questa macro (che fa un lavoro parziale - solo per i nominativi con turno 1 o 2).
All'inizio la macro controlla il giorno inserito (uno qualsiasi) e calcola quale è il lunedì precedente e, in base a questo, fa la ricerca.
Se va bene così, si può implementare anche per il resto.

Codice: Seleziona tutto
Sub MostraRicerca()
Set shT = Sheets("turni")
Set shR = Sheets("ricercche")
Cells(1, 4).ClearContents
dd = shR.Cells(3, 5).Value
If Weekday(dd, 2) <> 1 Then
  wd = Weekday(dd) - 1
ripeti:
  If wd <> 1 Then
    a = a + 1
    wd = wd - 1
    GoTo ripeti
  End If
  dd = dd - a
End If
shR.Cells(1, 5) = dd
r = 3
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column
  If shT.Cells(2, J) = dd Then
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Then
        r = r + 1
        shR.Cells(r, 4) = shT.Cells(I, 4)
        shR.Cells(r, 5) = shT.Cells(I, J)
      End If
    Next I
  End If
Next J
Set shT = Nothing
Set shR = Nothing
End Sub


Ovviamente mancano dichiarazioni di variabili, controllo errori, ecc. ecc.
Fai sapere. Ciao,
Mario
Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi raimea » 25/01/19 21:30

ciao
Si,
la ricerca x i turni 1 e 2 del lunedi funziona come richiesto.

attualmente manca il controllo sulla giornata scritta in cella E3 che deve essere SOLO un Lunedi

ora si puo procedere x il sabato e domenica

ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi Marius44 » 25/01/19 21:54

Ciao
come detto, non è necessario che si inserisca UN LUNEDI'!
La parte iniziale della macro controlla la data inserita e la trasforma nel lunedì precedente.

Ciò detto, ma vuoi lavorare un po' anche tu :lol: :lol: :lol:
Prova almeno smanettare sulla mia macro per ottenere la seconda parte (è quasi - ripeto, quasi - la stessa cosa)

Ciao,
Mario
Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi raimea » 25/01/19 22:07

ciao
come detto, non è necessario che si inserisca UN LUNEDI'!
La parte iniziale della macro controlla la data inserita e la trasforma nel lunedì precedente.


si e' vero
non mi ero accorto xche in E3 lascia la data che ho messo.

ora provo a smanettare un po'

x ora grazie

ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi raimea » 25/01/19 23:23

ciao
io ho "tentato" di risolvere la ricerca dei sab e le domeniche
ho provato a far cercare il sabato.

ci sono andato vicino ma mi preleva anche LL che non dovrebbe

questa la rude macro che ho modificato:
Codice: Seleziona tutto
Sub MostraRicercasabato()
Set shT = Sheets("turni")
Set shR = Sheets("ricercche")
Cells(1, 4).ClearContents

dd = shR.Cells(3, 5).Value   '<<< dove ho scritto la data
If Weekday(dd, 2) <> 1 Then  '<<<< 7 dovrebbe essere il sabato 2 il lund
  wd = Weekday(dd) - 1
ripeti:
  If wd <> 1 Then
    a = a + 1
    wd = wd - 1
    GoTo ripeti
  End If

  dd = dd - a
End If
'----------------------------

shR.Cells(1, 5) = dd     ' <<< dove scrivo il lunedi
r = 3
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column  'j=9 che e'  ??
 
  If shT.Cells(2, J) = dd + 5 Then    '<<< luned+5gg = sabato
   
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3   ' lo step delle righe in fgl turni
 
  '------sabati-----le condiz  1 2 B da riportare-------------
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or Val(shT.Cells(I, J)) = B Then
       
        r = r + 1
       
        shR.Cells(r, 4) = shT.Cells(I, 4)  '<<< 4 la col E dove scrive i nomi
        shR.Cells(r, 6) = shT.Cells(I, J)  '<<< 6 la colonna F dove scrivere i sabati
     
      End If

     
    Next I
  End If
Next J
Set shT = Nothing
Set shR = Nothing
End Sub
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi Marius44 » 26/01/19 07:39

Buongiorno
Complimenti! E' "quasi" giusta, cioè manca un piccolo ritocco.

In questa riga di codice il confronto per la ricerca della B deve essere fra stringhe, quindi chiusa tra doppi apici togliendo la Funzione Val che in questo caso non serve. Così:
If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or shT.Cells(I, J) = "B" Then

Aggiustala e dovrebbe andar bene. Poi fai lo stesso ragionamento per le domeniche.
Ciao,
Mario
Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi raimea » 26/01/19 08:27

ciao
questa la -grezza- macro che ho "partorito " :D

filtra i lun-sab-dom
MA
nel fgl ricerche i nomi dei tecnici non me li mette in ordine verticale corretto !!

oltre non saprei andare :cry:

ovviamente so che si potrebbe rendere più leggibile la macro
PS: MostraRicercaLSD = Lun Sab Dom :D

Codice: Seleziona tutto
Sub MostraRicercaLSD()
Set shT = Sheets("turni")
Set shR = Sheets("ricercche")
Cells(1, 4).ClearContents
'---lunedi--------------

dd = shR.Cells(3, 5).Value
If Weekday(dd, 2) <> 1 Then
  wd = Weekday(dd) - 1
ripeti:
  If wd <> 1 Then
    a = a + 1
    wd = wd - 1
    GoTo ripeti
  End If
  dd = dd - a
End If
shR.Cells(1, 5) = dd
r = 3
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column
  If shT.Cells(2, J) = dd Then
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Then
        r = r + 1
        shR.Cells(r, 4) = shT.Cells(I, 4)
        shR.Cells(r, 5) = shT.Cells(I, J)
      End If
    Next I
  End If
Next J


'----------------------------

shR.Cells(1, 5) = dd     ' <<< dove scrivo il lunedi
r = 3
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column  'j=9 che e'  ??
 
  If shT.Cells(2, J) = dd + 5 Then    '<<< luned+5gg = sabato
   
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3   ' lo step delle righe in fgl turni
 
  '------sabati-----le condiz  1 2 B da riportare-------------
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or (shT.Cells(I, J)) = "B" Then
       
        r = r + 1
       
        shR.Cells(r, 4) = shT.Cells(I, 4)  '<<< 4 la col E dove scrive i nomi
        shR.Cells(r, 6) = shT.Cells(I, J)  '<<< 6 la colonna F dove scrivere i sabati
     
      End If

     
    Next I
  End If
Next J
'----------domeniche--------------------------------

shR.Cells(1, 5) = dd     ' <<< dove scrivo il lunedi
r = 3
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column  'j=9 che e'  ??
 
  If shT.Cells(2, J) = dd + 6 Then    '<<< luned+6gg = domenica
   
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3   ' lo step delle righe in fgl turni
 
  '------domenica-----le condiz  1 2 B da riportare-------------
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or (shT.Cells(I, J)) = "B" Then
       
        r = r + 1
       
        shR.Cells(r, 4) = shT.Cells(I, 4)  '<<< 4 la col E dove scrive i nomi
        shR.Cells(r, 7) = shT.Cells(I, J)  '<<< 7 la colonna G dove scrivere i sabati
     
      End If

     
    Next I
  End If
Next J


'----------------------------------------------------
Set shT = Nothing
Set shR = Nothing
End Sub



ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi Marius44 » 26/01/19 09:45

Ciao
Credo tu abbia commesso qualche errore.
Prova con questa macro (più compatta e commentata)
Codice: Seleziona tutto
Sub MostraRicerca_Marius() ' ricerca completa unica
Set shT = Sheets("turni")
Set shR = Sheets("ricercche")
'assumo data inserita e scrivo il plunedì precedente
dd = shR.Cells(3, 5).Value
If Weekday(dd, 2) <> 1 Then
  wd = Weekday(dd) - 1
ripeti:
  If wd <> 1 Then
    a = a + 1
    wd = wd - 1
    GoTo ripeti
  End If
  dd = dd - a
End If
shR.Cells(1, 5) = dd  'scrivo il lunedì

r = 3 'questa è la riga dalla quale iniziare a scrivere i risultati
'Inizio la ricerca dalla col.I (nr.9) fino all'ultima colonna piena
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column
  gg = Weekday(shT.Cells(2, J), 2) 'giorno della settimana
  'se il confronto delle date è positivo (stesso giorno, quindi lunedì)
  'oppure se è un sabato
  'oppure se è una domenica
  If shT.Cells(2, J) = dd Or shT.Cells(2, J) = dd + 5 Or shT.Cells(2, J) = dd + 6 Then
 
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3 'ciclo ogni 3 righe
      'se confronto positivo
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or (shT.Cells(I, J)) = "B" Then
        'se è lun e condiz. 1 o 2
        If gg = 1 And (Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2) Then
          r = r + 1
          shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
          shR.Cells(r, 5) = shT.Cells(I, J) 'scrivo il codice
        ElseIf gg = 6 Or gg = 7 Then 'se è sab o dom
          r = r + 1
          shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
          'scrivo il codice
          If gg = 6 Then 'se è sabato
            shR.Cells(r, 6) = shT.Cells(I, J)
          ElseIf gg = 7 Then 'se è domenica
            shR.Cells(r, 7) = shT.Cells(I, J)
          End If
        End If
      End If
    Next I
  End If
Next J

End Sub


Fai sapere. Ciao,
Mario
Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi raimea » 26/01/19 11:25

ciao

ottima ! :o
utilissimi i commenti inseriti , cosi posso "leggere" e studiarmi come e' impostata

grazie
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi raimea » 28/01/19 08:02

ciao
azz......
mi sono accorto che ci sono altri 2 tec di tuno
nella settimana che vado ad elaborare.

quelli in - reperibilita'

il turno della reper. inizia i l mercoledi per il 1mo tec
mentre inizia la domenica per il 2do tec

nel fogl turni la reperibilita e' stata scritta dalla riga 4 (sempre a step di 3 righe)
MA e' stata usata l unione celle !!

vorrei incrementare l attuale macro ( in mod 2) , in modo che mi prelevi anche il nome
dei 2 tec che in quella settim inizieranno la reperibilita'
e riportarli in fgl ricerche sotto a tutto e scrivere reperibile in col H

vi allego il file
https://www.dropbox.com/s/qa5rptfsfe6pzxt/test2_ricerche.rar?dl=0

grazie


ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi Marius44 » 28/01/19 13:48

Ciao
Se ho capito bene la macro diventa così
Codice: Seleziona tutto
Sub MostraRicerca_Marius() ' ricerca completa unica

 Set shT = Sheets("turni")   ' il foglio dove cercare

Set shR = Sheets("ricerche")
'--------------------------------
'macro di marius44 in pcfacile
' http://www.pc-facile.com/forum/viewtopic.php?f=26&t=110329&p=647630#p647630
'in E3 scrivo una data e la macro fara' in modo di controllare che diventi un lunedi
'---------------------------------
'--cancello contenuto precedente---
    Range("D4:G200").Select
    Selection.ClearContents
    Range("D1").Select
   
'assumo la data in E3 inserita e scrivo il p lunedì precedente
dd = shR.Cells(3, 5).Value
If Weekday(dd, 2) <> 1 Then
  wd = Weekday(dd) - 1
ripeti:
  If wd <> 1 Then
    a = a + 1
    wd = wd - 1
    GoTo ripeti
  End If
  dd = dd - a
End If

shR.Cells(1, 5) = dd  'scrivo il lunedì
'----------------
r = 3 'questa è la riga dalla quale iniziare a scrivere i risultati

'Inizio la ricerca dalla col.I (nr.9) fino all'ultima colonna piena
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column
 
  gg = Weekday(shT.Cells(2, J), 2) 'giorno della settimana
  'se il confronto delle date è positivo (stesso giorno, quindi lunedì)
  'oppure se è un sabato
  'oppure se è una domenica
 
  'oppure se è un mercoledì (la riga è implementata con un dd + 2
 
  If shT.Cells(2, J) = dd Or shT.Cells(2, J) = dd + 5 Or shT.Cells(2, J) = dd + 6 Or shT.Cells(2, J) = dd + 2 Then
 '---------------
 
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3 'ciclo ogni 3 righe
     
      'se confronto positivo
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or (shT.Cells(I, J)) = "B" Then
       
        'se è lun e condiz. 1 o 2
        If gg = 1 And (Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2) Then
          r = r + 1
          shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
          shR.Cells(r, 5) = shT.Cells(I, J) 'scrivo il codice
       
        ElseIf gg = 6 Or gg = 7 Then 'se è sab o dom
          r = r + 1
          shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
          'scrivo il codice
          If gg = 6 Then 'se è sabato
            shR.Cells(r, 6) = shT.Cells(I, J)
          ElseIf gg = 7 Then 'se è domenica
            shR.Cells(r, 7) = shT.Cells(I, J)
          End If
       
        ElseIf shT.Cells(I + 1, J).MergeCells = True Then  'se la riga immediatamente sotto è una cella unita
         
          If gg = 3 Or gg = 7 Then                                    'se è un mercoledì oppure una domenica
            shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
            shR.Cells(r, 8) = shT.Cells(I, J) 'scrivo il codice
          End If
         
        End If
      End If
    Next I
  End If
Next J

'---copio la data del lunedi e la riporto in E3----------
    Range("E1").Select
    Selection.Copy
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'---adatto la largh delle colonne---------
    Columns("E:E").ColumnWidth = 14
    Columns("F:F").ColumnWidth = 14
    Columns("G:G").ColumnWidth = 14
    Range("I2").Select



End Sub


Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi Marius44 » 28/01/19 15:47

Ciao
Rivedendo la macra manca una riga; aggiungila tu

If gg = 3 Or gg = 7 Then
r = r + 1
shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
shR.Cells(r, 8) = shT.Cells(I, J) 'scrivo il codice
End If

Fai sapere. Ciao,
Mario
Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi raimea » 28/01/19 17:35

ciao
ho aggiunto come richiesto r = r + 1 , ok

la macro preleva correttamente il reperibile che inizia il mercoledi
MA non quello che la inizia la domenica

ES:
nel file , inserendo la data 18-2-19
i 2 tec reperibili sono il tec qqq ( iniz il mercoledi )
e il tec ppp che inizia la domenica 24-2-19

inoltre se possibile il nome di questi 2 tec
mi servirebbero scritti sotto come ultimi 2 nominativi
dopo il nominativo dei tecn che lavorano la domenica

ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago

Re: cercare i turnisti della settimana

Postdi Marius44 » 28/01/19 22:05

Ciao
Eccoti la nuova macro che fa quello che chiedi (come ultimo post)
Codice: Seleziona tutto
Sub MostraRicerca_Marius_Nuova() ' ricerca completa unica

Set shT = Sheets("turni")   ' il foglio dove cercare
Set shR = Sheets("ricerche")
'--------------------------------
'macro di marius44 in pcfacile
' http://www.pc-facile.com/forum/viewtopic.php?f=26&t=110329&p=647630#p647630
'in E3 scrivo una data e la macro fara' in modo di controllare che diventi un lunedi
'---------------------------------
'--cancello contenuto precedente---
    Range("D4:H200").Select
    Selection.ClearContents
    Range("D1").Select
   
'assumo la data in E3 inserita e scrivo il p lunedì precedente
dd = shR.Cells(3, 5).Value
If Weekday(dd, 2) <> 1 Then
  wd = Weekday(dd) - 1
ripeti:
  If wd <> 1 Then
    a = a + 1
    wd = wd - 1
    GoTo ripeti
  End If
  dd = dd - a
End If

shR.Cells(1, 5) = dd  'scrivo il lunedì
'----------------
r = 3 'questa è la riga dalla quale iniziare a scrivere i risultati

'Inizio la ricerca dalla col.I (nr.9) fino all'ultima colonna piena
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column
 
  gg = Weekday(shT.Cells(2, J), 2) 'giorno della settimana
  'se il confronto delle date è positivo (stesso giorno, quindi lunedì)
  'oppure se è un sabato
  'oppure se è una domenica
   
  If shT.Cells(2, J) = dd Or shT.Cells(2, J) = dd + 5 Or shT.Cells(2, J) = dd + 6 Then
 '---------------
    For I = 3 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3 'ciclo ogni 3 righe
      'se confronto positivo
      If Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2 Or (shT.Cells(I, J)) = "B" Then
        'se è lun e condiz. 1 o 2
        If gg = 1 And (Val(shT.Cells(I, J)) = 1 Or Val(shT.Cells(I, J)) = 2) Then
          r = r + 1
          shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
          shR.Cells(r, 5) = shT.Cells(I, J) 'scrivo il codice
        ElseIf gg = 6 Or gg = 7 Then 'se è sab o dom
          r = r + 1
          shR.Cells(r, 4) = shT.Cells(I, 4) 'scrivo il nome
          'scrivo il codice
          If gg = 6 Then 'se è sabato
            shR.Cells(r, 6) = shT.Cells(I, J)
          ElseIf gg = 7 Then 'se è domenica
            shR.Cells(r, 7) = shT.Cells(I, J)
          End If
        End If
      End If
    Next I
  End If
Next J
'--------------- Reperibilità
For J = 9 To shT.Cells(1, Columns.Count).End(xlToLeft).Column
  gg = Weekday(shT.Cells(2, J), 2)
  If shT.Cells(2, J) = dd + 2 Or shT.Cells(2, J) = dd + 6 Then
    For I = 4 To shT.Cells(Rows.Count, 1).End(xlUp).Row Step 3 'ciclo ogni 3 righe dalla riga 4
      If shT.Cells(I, J).MergeCells = True And (gg = 3 Or gg = 7) Then
        r = r + 1
        shR.Cells(r, 4) = shT.Cells(I - 1, 4) 'scrivo il nome
        shR.Cells(r, 8) = shT.Cells(I, J) 'scrivo il codice
      End If
    'End If
    Next I
  End If
Next J
'---copio la data del lunedi e la riporto in E3----------
    Range("E1").Select
    Selection.Copy
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'---adatto la largh delle colonne---------
    Columns("E:E").ColumnWidth = 14
    Columns("F:F").ColumnWidth = 14
    Columns("G:G").ColumnWidth = 14
    Range("I2").Select
End Sub


Sostituiscila alla precedente.
Ciao,
Mario
Marius44
Utente Senior
 
Post: 459
Iscritto il: 07/09/15 22:00

Re: cercare i turnisti della settimana

Postdi raimea » 28/01/19 22:20

ciao

Perfetta !! :eeh:

Grazie
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1187
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "cercare i turnisti della settimana":

Le parole della musica!
Autore: nikita75
Forum: Forum off-topic
Risposte: 1

Chi c’è in linea

Visitano il forum: scanacc e 22 ospiti