Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Private Sub quoteOk_Click() 'Hide the information prompt QuoteDialog.Hide Filename = txtRef.Value Dim withPath As String 'Apply values from form dialog Set sh = Sheets("Quotation") sh.Range("D1").Value = txtRef.Value sh.Range("D4").Value = txtPrepared.Value sh.Range("D5").Value = txtFor.Value sh.Range("D3").Value = Date withPath = "P:\Goodwin NoReVa Tech Dept\Estimating\Job Pricing\A Numbers-Enquiries\" + Filename InputLines = txtLines.Value ItemNo = txtLines.Value 'Do the row realted stuff While InputLines > 1 InputLines = InputLines - 1 Sheets("Quotation").Select Rows("13:13").Select Selection.Copy Selection.Cells(1, 1) = ItemNo ItemNo = ItemNo - 1 Selection.Insert shift:=xlDown Wend sh.Range("A13").Value = 1 'If filename doesnt contain master, save as new file If InStr(StrConv(FileNameNoExt(ThisWorkbook.FullName), vbUpperCase), "MASTER") Then SaveAs (withPath) End If End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!