2011everafter
Board Regular
- Joined
- Oct 5, 2011
- Messages
- 129
Hello ,
The below array is looking at column D , how can I change it to look at column H
Sub testCopy()
ActiveSheet.Unprotect "xyz12345"
Dim a, e, w(), i As Long, txt As String, x As Range
Dim dic As Object, RegX As Object
Set dic = CreateObject("Scripting.Dictionary")
dic.CompareMode = 1
Set RegX = CreateObject("VBScript.RegExp")
RegX.Pattern = "\D+([2-9]\d{1,2}|[12]\d{1,3}|90\d{2})(?=$)"
For Each e In Array(VBA.Array("$YY", "A100"), VBA.Array("$YX", "Non"), _
VBA.Array("$YW", "B200"))
dic(e(0)) = VBA.Array(e(1), Nothing)
A-------B---------- C------- D ----------E---------------F-------------- G-------------H-------I----------J-------
SN#----ITime-----OTime---Reg Code---NCount------FLocation------Tlocation------Type---1SEQ-------New Seq
YYA61--0015------1345----$YYA--------223----------XXVV-----------XXWW---------77L----6204825---6204825
Thank you for you kind help.
The below array is looking at column D , how can I change it to look at column H
Sub testCopy()
ActiveSheet.Unprotect "xyz12345"
Dim a, e, w(), i As Long, txt As String, x As Range
Dim dic As Object, RegX As Object
Set dic = CreateObject("Scripting.Dictionary")
dic.CompareMode = 1
Set RegX = CreateObject("VBScript.RegExp")
RegX.Pattern = "\D+([2-9]\d{1,2}|[12]\d{1,3}|90\d{2})(?=$)"
For Each e In Array(VBA.Array("$YY", "A100"), VBA.Array("$YX", "Non"), _
VBA.Array("$YW", "B200"))
dic(e(0)) = VBA.Array(e(1), Nothing)
A-------B---------- C------- D ----------E---------------F-------------- G-------------H-------I----------J-------
SN#----ITime-----OTime---Reg Code---NCount------FLocation------Tlocation------Type---1SEQ-------New Seq
YYA61--0015------1345----$YYA--------223----------XXVV-----------XXWW---------77L----6204825---6204825
Thank you for you kind help.
