Moderatori: Anthony47, Flash30005
ho un documento di word che genera degli attestati per dei lavoratori che utilizzano delle macchine andando a pescare i dati con stampa unione in una cartella di excel che contiene diversi fogli, ognuno relativo ad una specifica macchina e contenente un elenco dei lavoratori che utilizzano quella determinata macchina
per evitare di dover compilare a mano tutti i fogli vorrei fare quanto segue:
nel primo foglio vorrei avere una matrice con l'elenco completo dei nominativi nella prima colonna, e inserire nella prima riga l'elenco delle macchine; per ognuno dei nominativi andrei a mettere un check in corrispondenza delle sole macchine che utilizza quel lavoratore.
Io farei tutto in Excel.
Fai su un foglio la "lettera tipo", lasciando libere le celle he devono contenere la sigla macchina e il destinatario.
Su altro foglio crei l' elenco dei nominativi (in colonna A), l' elenco delle macchine (intestazione da colonna B verso destra), e gli abbinamenti (1 negli accoppiamenti validi).
=SCARTO(Elenco!B1;D1-1;0)&" "&SCARTO(Elenco!C1;D1-1;0)&" "&SCARTO(Elenco!D1;D1-1;0)
=INDIRETTO("M."&D2-9&"!B1")
Sub PrAttestati()
'vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=104290
Dim LastD As Long, I As Long, J As Long
'
'scegli printer
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
GoTo esci
End If
'
With Sheets("elenco")
LastD = .Cells(Rows.Count, "D").End(xlUp).Row
lastc = .Cells(1, Columns.Count).End(xlToLeft).Column
For I = 2 To LastD
If .Cells(I, 4).Value <> "" Then
Sheets("attestato").Range("D1") = I
For J = 10 To lastc
If .Cells(I, J).Value <> "" Then
Sheets("attestato").Range("D2") = J
Sheets("attestato").PrintOut
myStTime = Timer
Do While Timer < myStTime + 2 Or Timer < myStTime
DoEvents: Loop
End If
Next J
End If
Next I
End With
esci:
End Sub
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: raimea e 19 ospiti