Uncategorised

Create_PDF

FE_Name = “Example” Sheets(“Sheet2”).Select Range(“A1:I47”).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & “\” & FE_Name & “.pdf”, Quality _ :=PDFQuality, IncludeDocProperties:=True, IgnorePrintAreas:=False _ ,...

Uncategorised

Zest Codes

'This code looks down Sheet1 column A and considers the number of csv strings in column B and Column D 'Then puts that...

Uncategorised

Last used column

LastColumn = activesheet.Cells(1, activesheet.Columns.Count).End(xlToLeft).Column This will find the last used column on row 1 of the current sheet. It will return the number...

Uncategorised

Richard Specification Compliance

Sub Add_matrix_to_Richards_Specification_sheets 'Adding the Specification Compliance scoring system for Richard 'Each sheet ending in Specification Compliance needs this applied 'but may be different...

Uncategorised

TPS Checker

Application.ScreenUpdating = False ActiveSheet.Cells.Interior.Color = xlNone x = 4 Z = 3 For n = 1 To 2 Sheets("TPS_IMPORT").Select With ActiveSheet.QueryTables.Add(Connection:="TEXT;F:\" & n...

Uncategorised

Collection of COM port communications in Excel

http://dev.emcelettronica.com/serial-port-communication-in-excel-vba Option Explicit '------------------------------------------------------------------------------- ' ' This VB module is a collection of routines to perform serial port I/O without ' using the...

Current Projects

Akira repairs

On the exported spreadsheets, the formula needs to be reinstated, and the rest copied and pasted as values. VAT is still feeding through...