Dear All Master,
Please help the vba code for the vba array event & dictionary because there are 50000 records if I use a formula so it becomes very slow.
The code that I made is not perfect sometimes it doesn't work, I want the column header that I marked yellow using the vba event array code,
I tried to copy 2 lines in the code column but the results of my vba code do not match and can only run if I do only copy 1 line in the code column and
I also use it as a form in the receive item sheet, can it work if the formula becomes vba in the MASTER RI (ROLL) sheet?
My link file : LINK
Please help the vba code for the vba array event & dictionary because there are 50000 records if I use a formula so it becomes very slow.
The code that I made is not perfect sometimes it doesn't work, I want the column header that I marked yellow using the vba event array code,
I tried to copy 2 lines in the code column but the results of my vba code do not match and can only run if I do only copy 1 line in the code column and
I also use it as a form in the receive item sheet, can it work if the formula becomes vba in the MASTER RI (ROLL) sheet?
My link file : LINK
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo bm_Safe_Exit
Application.EnableEvents = False
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Dim fnd As Range
Set fnd = Sheets("MASTER").Range("B:B").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
If Not fnd Is Nothing Then
Target.Offset(, 2).Resize(, 1).Value = Array(fnd.Offset(, 3))
Target.Offset(, 4).Resize(, 1).Value = Array(fnd.Offset(, 6))
Target.Offset(, 6).Resize(, 1).Value = Array(fnd.Offset(, 8))
Target.Offset(, 7).Resize(, 1).Value = Array(fnd.Offset(, 4))
End If
bm_Safe_Exit:
Application.EnableEvents = True
End Sub
