Option Explicit Sub CompareData() 'Decalre Variable Dim Adr As String 'Address of Range containing Comparison data ' Define Column for Comparison Adr = Range(Cells(2, 5), Cells(1, 5).End(xlDown)).Address Debug.Print "=OR(EXACT(TRIM(RC1)," & Adr & "))" 'analyse if formula is correct 'Select Cell for formula Range("B2").Select 'Array Formula for Comparison ActiveCell.FormulaArray = "=OR(EXACT(TRIM(RC1)," & Adr & "))" End Sub
|Link Excel Spreadsheet to Access, not using Transferspreadsheet||5||28|
|Moving Excel to AaaS||4||37|
|VBA Array, write each column's start position into an array||17||34|
|Incorporate VBA Code to work with Original Workbook||23||35|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!