Se proprio vuoi fai una donazione a Emergency, bastano pochi euro e sai che ne faranno buon uso (che non sia birra', pero'); vedi http://www.emergency.it/form/paypal/index.html
Ciao, alla prossima.
Moderatori: Anthony47, Flash30005
Sub Estrai_MIX()
Dim riga
Dim n_MAX
Dim scheda
Dim Valore
Dim Trovato As Boolean
'Se il campo scheda in ORIGINALE è vuoto chiede il numero scheda da estrarre dal DB
per compilare la scheda
nscheda:
If Sheets("ORIGINALE").Range("ei4").Value = "" Then
Sheets("ORIGINALE").Range("ei4").Value = InputBox("Inserire il numero scheda")
End If
scheda = Sheets("ORIGINALE").Range("ei4").Value
Sheets("Database").Select
n_MAX = Range("a2").Value
'Ricerca il numero scheda nella colonna Axx ogni 5 righe
For i = 2 To n_MAX * 5 - 3 Step 1
riga = i
Valore = Cells(riga, 1).Value
If Not (Valore <> scheda) Then
Trovato = True
Exit For
End If
Next
'Se non ha trovato il numero scheda visualizza il messaggio
If Not Trovato Then
MsgBox ("Numero scheda non trovato")
Sheets("ORIGINALE").Select
GoTo Fine_Estrai
End If
'copia dati da ORIGINALE a Database
'copia la data
Sheets("ORIGINALE").Range("DD4").Value = Sheets("database").Cells(riga, 2).Value
'copia IL PRELIEVO
Sheets("ORIGINALE").Range("CQ4").Value = Sheets("database").Cells(riga, 3).Value
'copia l'IMPIANTO
Sheets("ORIGINALE").Range("AU6").Value = Sheets("database").Cells(riga, 4).Value
'copia IMPRESA
Sheets("ORIGINALE").Range("T9").Value = Sheets("database").Cells(riga, 5).Value
'copia CANTIERE
Sheets("ORIGINALE").Range("CN9").Value = Sheets("database").Cells(riga, 6).Value
'copia CAMPIONAMENTO
Sheets("ORIGINALE").Range("EI11").Value = Sheets("database").Cells(riga, 7).Value
'copia ATB
Sheets("ORIGINALE").Range("AJ15").Value = Sheets("database").Cells(riga, 8).Value
'copia MANOMETRO
Sheets("ORIGINALE").Range("CZ15").Value = Sheets("database").Cells(riga, 9).Value
'copia PUNTO DI CARICO
Sheets("ORIGINALE").Range("Z17").Value = Sheets("database").Cells(riga, 10).Value
'copia IL DDT
Sheets("ORIGINALE").Range("CA17").Value = Sheets("database").Cells(riga, 11).Value
'copia IL TIPO DI GETTO
Sheets("ORIGINALE").Range("EI19").Value = Sheets("database").Cells(riga, 12).Value
'copia RCK
Sheets("ORIGINALE").Range("BH35").Value = Sheets("database").Cells(riga, 13).Value
'copia DMAX
Sheets("ORIGINALE").Range("DL35").Value = Sheets("database").Cells(riga, 14).Value
'copia COMPATTAZIONE
Sheets("ORIGINALE").Range("EI21").Value = Sheets("database").Cells(riga, 15).Value
'copia TIPO DI CEMENTO
Sheets("ORIGINALE").Range("W37").Value = Sheets("database").Cells(riga, 16).Value
'copia MC CARICATI
Sheets("ORIGINALE").Range("CE37").Value = Sheets("database").Cells(riga, 17).Value
'copia TARA
Sheets("ORIGINALE").Range("O47").Value = Sheets("database").Cells(riga, 18).Value
'copia LORDO
Sheets("ORIGINALE").Range("AT47").Value = Sheets("database").Cells(riga, 19).Value
'copia CONSISTENZA
Sheets("ORIGINALE").Range("EI17").Value = Sheets("database").Cells(riga, 20).Value
'copia SLUMP
Sheets("ORIGINALE").Range("DM39").Value = Sheets("database").Cells(riga, 21).Value
'copia N°PROVINI
Sheets("ORIGINALE").Range("S43").Value = Sheets("database").Cells(riga, 22).Value
'copia DIM.PROVINI
Sheets("ORIGINALE").Range("AZ43").Value = Sheets("database").Cells(riga, 23).Value
'copia ORA
Sheets("ORIGINALE").Range("DC51").Value = Sheets("database").Cells(riga, 24).Value
'copia SCADENZA1
Sheets("ORIGINALE").Range("AB67").Value = Sheets("database").Cells(riga, 25).Value
'copia SCADENZA2
Sheets("ORIGINALE").Range("AB69").Value = Sheets("database").Cells(riga, 26).Value
'copia SCADENZA3
Sheets("ORIGINALE").Range("AB71").Value = Sheets("database").Cells(riga, 27).Value
'copia SCADENZA4
Sheets("ORIGINALE").Range("AB73").Value = Sheets("database").Cells(riga, 28).Value
'copia PESO1 SCADENZA1
Sheets("ORIGINALE").Range("AT67").Value = Sheets("database").Cells(riga, 29).Value
'copia PESO2 SCADENZA1
Sheets("ORIGINALE").Range("CD67").Value = Sheets("database").Cells(riga, 30).Value
'copia PESO1 SCADENZA2
Sheets("ORIGINALE").Range("AT69").Value = Sheets("database").Cells(riga, 31).Value
'copia PESO2 SCADENZA2
Sheets("ORIGINALE").Range("CD69").Value = Sheets("database").Cells(riga, 32).Value
'copia PESO1 SCADENZA3
Sheets("ORIGINALE").Range("AT71").Value = Sheets("database").Cells(riga, 33).Value
'copia PESO2 SCADENZA3
Sheets("ORIGINALE").Range("CD71").Value = Sheets("database").Cells(riga, 34).Value
'copia PESO1 SCADENZA4
Sheets("ORIGINALE").Range("AT73").Value = Sheets("database").Cells(riga, 35).Value
'copia PESO2 SCADENZA4
Sheets("ORIGINALE").Range("CD73").Value = Sheets("database").Cells(riga, 36).Value
'copia RM1 SCADENZA1
Sheets("ORIGINALE").Range("BL67").Value = Sheets("database").Cells(riga, 38).Value
'copia RM2 SCADENZA1
Sheets("ORIGINALE").Range("CV67").Value = Sheets("database").Cells(riga, 39).Value
'copia RM1 SCADENZA2
Sheets("ORIGINALE").Range("BL69").Value = Sheets("database").Cells(riga, 40).Value
'copia RM2 SCADENZA2
Sheets("ORIGINALE").Range("CV69").Value = Sheets("database").Cells(riga, 41).Value
'copia RM1 SCADENZA3
Sheets("ORIGINALE").Range("BL71").Value = Sheets("database").Cells(riga, 42).Value
'copia RM2 SCADENZA3
Sheets("ORIGINALE").Range("CV71").Value = Sheets("database").Cells(riga, 43).Value
'copia RM1 SCADENZA4
Sheets("ORIGINALE").Range("BL73").Value = Sheets("database").Cells(riga, 44).Value
'copia RM2 SCADENZA4
Sheets("ORIGINALE").Range("CV73").Value = Sheets("database").Cells(riga, 45).Value
'copia OSSERVAZIONI
Sheets("ORIGINALE").Range("F76").Value = Sheets("database").Cells(riga, 46).Value
Fine_Estrai:
Sheets("ORIGINALE").Select
Sheets("ORIGINALE").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Worksheets("ORIGINALE").Select
Range("ei4").Value = ""
Range("cq4:cy4").Value = ""
Range("dd4:ec4").Value = ""
Range("au6:ec6").Value = ""
Range("t9:bp9").Value = ""
Range("cn9:eb9").Value = ""
Range("aj15:bp15").Value = ""
Range("CZ15:eb15").Value = ""
Range("ca17:eb17").Value = ""
Range("z17:bp17").Value = ""
Range("t11:bp13").Value = ""
Range("EI19").Value = ""
Range("EI11").Value = ""
Range("BH35").Value = ""
Range("DL35").Value = ""
Range("EI17").Value = ""
Range("DM39").Value = ""
Range("S43").Value = ""
Range("AZ43").Value = ""
Range("DC51").Value = ""
Range("AB67").Value = ""
Range("AB69").Value = ""
Range("AB71").Value = ""
Range("AB73").Value = ""
Range("F76").Value = ""
Range("at67").Value = ""
Range("at69").Value = ""
Range("at71").Value = ""
Range("at73").Value = ""
Range("bl67").Value = ""
Range("bl69").Value = ""
Range("bl71").Value = ""
Range("bl73").Value = ""
Range("cd67").Value = ""
Range("cd69").Value = ""
Range("cd71").Value = ""
Range("cd73").Value = ""
Range("cv67").Value = ""
Range("cv69").Value = ""
Range("cv71").Value = ""
Range("cv73").Value = ""
Range("EI21").Value = ""
Range("W37").Value = ""
Range("O47").Value = ""
Range("AT47").Value = ""
Range("CE37").Value = ""
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
NFile = Offerta & "_" & Ditta & Data & ".pdf"
Public Sub StampaVERBALEinPDF()
Perc = ThisWorkbook.Path & "\" & "pdf_prelievi"
PercF = Perc & "\"
verbale = Worksheets("ORIGINALE").Range("ei4").Value
NFile = verbale & ".pdf"
ChDir Perc '<<<< attenzione cambiata variabile
If Dir(PercF & NFile) = NFile Then Kill (PercF & NFile)
ActiveWorkbook.SaveAs Filename:=PercF & NFile
'...
coupe79 ha scritto:Perc = ThisWorkbook.Path & "" & "pdf_prelievi"
PercF = Perc & ""
verbale = Worksheets("ORIGINALE").Range("ei4").Value
NFile = verbale & ".pdf"
NFile= Worksheets("ORIGINALE").Range("ei4").Value & ".pdf"
Flash30005 ha scritto:Public Sub StampaVERBALEinPDF()
Perc = ThisWorkbook.Path & "\" & "pdf_prelievi"
coupe79 ha scritto:Public Sub StampaVERBALEinPDF()
Perc = ThisWorkbook.Path & "\"
Flash30005 ha scritto:ChDir Perc '<<<< attenzione cambiata variabile
If Dir(PercF & NFile) = NFile Then Kill (PercF & NFile)
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 35 ospiti