SALM

Dev

KMatrix

Sub vbTest() MsgBox KMatrix(“57031”, “57039”, “Sheet1”, 1, 2) End Sub ‘################################################################################################################### ‘### KMatrix () ‘### Purpose: Get a value by means of intersection of row and column ‘### Parameter: sItemFrom, sItemTo, sShtMarix,iColumnNumberForSearch, iRowNumberForSearch ‘### Author: David Kim ‘### Version: 3.0…

CMatrix

Const CLEANING_MATRIX_LINE19_BAGGER1_WSHT = “CM-L19-B1” Const CLEANING_MATRIX_LINE19_BAGGER2_WSHT = “CM-L19-B2” Const CLEANING_MATRIX_LINE18_BAGGER1_WSHT = “CM-L18-B1” Const CLEANING_MATRIX_LINE18_BAGGER2_WSHT = “CM-L18-B2” Const CLEANING_MATRIX_LINE5_WSHT = “CM-L5” Const CLEANING_MATRIX_MIX_ROOM_WSHT = “CM-MixRoom” Sub vbTest() ‘MsgBox CMatrix(“21233”, “21243”, CLEANING_MATRIX_LINE19_BAGGER1_WSHT) ‘MsgBox CMatrix(“32042”, “32040”, “CM-L5”) MsgBox CMatrix(“57031”, “57039”, “CM – Waterwheel”,…

Excel VBA: Insert Excel Range To Database

‘ Option Explicit Sub RangeToDatabase_Test() RangeToDatabase “C:\Temp\HLC\Prototype\RangeToDatabase\HLCDB.mdb”, “HLC” End Sub Sub RangeToDatabase(psDBPath As String, psTableName As String) ‘Sub RangeToDatabase() ‘Macro purpose: To add record to Access database using ADO and SQL ‘NOTE: Reference to Microsoft ActiveX Data Objects Libary required…