VBA UPDATE FORMULA EXACT WITH INPUT TYPE AND POP UP SEARCH BASED CRITERIA

R

roykana

Active Member
Joined
Mar 8, 2018
Messages
311
Office Version
  1. 2010
Platform
  1. Windows
Dear All Master,

1. I want the exact formula in the vba code in column B in the sheet "INPUT BOJ" & "INPUT M18" because using an array formula makes it slow because the data to be input is about ten thousand rows.
You can see an example of an array formula that I created in column B. So I want the vba code for the concept or process to be the same as using a formula such as, for example, type enter,
type tab then automatically, copy in column itc then automatically appears in column itm.
2. I want a pop up search based on ITM and help criteria. In the pop up, I just need to enter the selected one and then automatically enter the INPUT-m18 & INPUT-boj sheet in the ITC column.
The row info or original data record in ifg-m18 & ifg-boj is about fifty thousand rows.
I also coded the vba but this is not perfect or maybe there is another solution.

File link : VBA UPDATE FORMULA EXACT WITH INPUT TYPE AND POP UP SEARCH BASED CRITERIA.xlsm
file

Thanks
Roykana
VBA Code: 
Option Explicit
Sub multivlookupV1()
Application.ScreenUpdating = False
 With Range(Cells(2, 7), Cells(2, 7).End(xlDown))
       .FormulaR1C1 = "=IF([@ITC]="""","""",IF([@KET]=""M18"",LOOKUP(2,1/EXACT([@ITC],Table_Query_from_TT1_NOW[ITC]),Table_Query_from_TT1_NOW[ITM]),LOOKUP(2,1/EXACT([@ITC],Table_Query_from_now[ITC]),Table_Query_from_now[ITM])))"
       .Value = .Value
 End With
 Application.ScreenUpdating = True
 End Sub
Sub multivlookupV2()
Application.ScreenUpdating = False
  With Range(Cells(2, 7), Cells(2, 7).End(xlDown))
       .FormulaR1C1 = "=IF([@ITC]="""","""",LOOKUP(2,1/EXACT([@ITC],Table_Query_from_TT1_NOW[ITC]),Table_Query_from_TT1_NOW[ITM]))"
       .Value = .Value
 End With
 Application.ScreenUpdating = True
 End Sub
 
Sort by date Sort by votes
maabadi said:
This is For Point 1, I worked on Point 2
VBA Code: 
Sub multivlookupV1()
Dim Lr1 As Long, Lr3 As Long, Lr4 As Long, Sh1 As Worksheet, Sh3 As Worksheet, Sh4 As Worksheet
Dim t As Double, i As Long, j As Long, E As Long, k As Long, RunT As Double
t = Timer
Set Sh1 = Sheets("IFG M18")
Set Sh3 = Sheets("INPUT BOJ")
Set Sh4 = Sheets("IFG BOJ")
Lr1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row
Lr4 = Sh4.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With Sh3
   .Range("G2:G" & Lr3).ClearContents
   For i = 2 To Lr3
   If .Range("A" & i).Value = "" Then
      .Range("G" & i).Value = ""
      .Range("B" & i).Value = ""
   Else
    If .Range("E" & i).Value = "M18" Then
       For j = Lr1 To 2 Step -1
       If StrComp(.Range("A" & i).Value, Sh1.Range("D" & j).Value) = 0 Then
        If .Range("G" & i).Value = "" Then
       .Range("G" & i).Value = Sh1.Range("C" & j).Value
       End If
       .Range("B" & i).Value = Sh1.Range("C" & j).Value
       End If
       Next j
     Else
       For k = Lr4 To 2 Step -1
       If StrComp(.Range("A" & i).Value, Sh4.Range("D" & k).Value) = 0 Then
       If .Range("G" & i).Value = "" Then
       .Range("G" & i).Value = Sh4.Range("C" & k).Value
       End If
       .Range("B" & i).Value = Sh4.Range("C" & k).Value
       End If
       Next k
    End If
    End If
Resum2:
  Next i
       '.Range("G2").FormulaArray = "=IFNA(IF(A2="""","""",IF(E2=""M18"",LOOKUP(2,1/EXACT(A2,'IFG M18'!$D$2:$D$" & Lr1 & "),'IFG M18'!$C$2:$C$" & Lr1 & "),LOOKUP(2,1/EXACT(A2,'IFG BOJ'!$D$2:$D$" & Lr4 & "),'IFG BOJ'!$C$2:$C$" & Lr4 & "))),"""")"
       '.Range("G2").AutoFill Destination:=.Range("G2:G" & Lr3)
       '.Range("G2:G" & Lr3).Value = .Range("G2:G" & Lr3).Value
End With
Application.ScreenUpdating = True
RunT = Round(Timer - t, 3)

'Notify user in seconds
  MsgBox "This code ran successfully in " & RunT & " seconds", vbInformation
End Sub
Sub multivlookupV2()
Dim Lr1 As Long, Lr2 As Long, Lr4 As Long, Sh1 As Worksheet, Sh2 As Worksheet, Sh4 As Worksheet
Dim t As Double, i As Long, j As Long, E As Long, k As Long, RunT As Double
t = Timer
Set Sh1 = Sheets("IFG M18")
Set Sh2 = Sheets("INPUT M18")
Set Sh4 = Sheets("IFG BOJ")
Lr1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
Lr2 = Sh2.Range("A" & Rows.Count).End(xlUp).Row
Lr4 = Sh4.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With Sh2
   .Range("G2:G" & Lr2).ClearContents
   .Range("B2:B" & Lr2).ClearContents
   For i = 2 To Lr2
   If .Range("A" & i).Value = "" Then
      .Range("G" & i).Value = ""
      .Range("B" & i).Value = ""
   Else
      For j = Lr1 To 2 Step -1
       If StrComp(.Range("A" & i).Value, Sh1.Range("D" & j).Value) = 0 Then
        If .Range("G" & i).Value = "" Then
       .Range("G" & i).Value = Sh1.Range("C" & j).Value
       End If
       .Range("B" & i).Value = Sh1.Range("C" & j).Value
       End If
       Next j
      End If
  
Resum2:
  Next i
End With
Application.ScreenUpdating = True
RunT = Round(Timer - t, 3)

'Notify user in seconds
  MsgBox "This code ran successfully in " & RunT & " seconds", vbInformation
End Sub
Click to expand...

maabadi said:
This is For Point 1, I worked on Point 2
VBA Code: 
Sub multivlookupV1()
Dim Lr1 As Long, Lr3 As Long, Lr4 As Long, Sh1 As Worksheet, Sh3 As Worksheet, Sh4 As Worksheet
Dim t As Double, i As Long, j As Long, E As Long, k As Long, RunT As Double
t = Timer
Set Sh1 = Sheets("IFG M18")
Set Sh3 = Sheets("INPUT BOJ")
Set Sh4 = Sheets("IFG BOJ")
Lr1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row
Lr4 = Sh4.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With Sh3
   .Range("G2:G" & Lr3).ClearContents
   For i = 2 To Lr3
   If .Range("A" & i).Value = "" Then
      .Range("G" & i).Value = ""
      .Range("B" & i).Value = ""
   Else
    If .Range("E" & i).Value = "M18" Then
       For j = Lr1 To 2 Step -1
       If StrComp(.Range("A" & i).Value, Sh1.Range("D" & j).Value) = 0 Then
        If .Range("G" & i).Value = "" Then
       .Range("G" & i).Value = Sh1.Range("C" & j).Value
       End If
       .Range("B" & i).Value = Sh1.Range("C" & j).Value
       End If
       Next j
     Else
       For k = Lr4 To 2 Step -1
       If StrComp(.Range("A" & i).Value, Sh4.Range("D" & k).Value) = 0 Then
       If .Range("G" & i).Value = "" Then
       .Range("G" & i).Value = Sh4.Range("C" & k).Value
       End If
       .Range("B" & i).Value = Sh4.Range("C" & k).Value
       End If
       Next k
    End If
    End If
Resum2:
  Next i
       '.Range("G2").FormulaArray = "=IFNA(IF(A2="""","""",IF(E2=""M18"",LOOKUP(2,1/EXACT(A2,'IFG M18'!$D$2:$D$" & Lr1 & "),'IFG M18'!$C$2:$C$" & Lr1 & "),LOOKUP(2,1/EXACT(A2,'IFG BOJ'!$D$2:$D$" & Lr4 & "),'IFG BOJ'!$C$2:$C$" & Lr4 & "))),"""")"
       '.Range("G2").AutoFill Destination:=.Range("G2:G" & Lr3)
       '.Range("G2:G" & Lr3).Value = .Range("G2:G" & Lr3).Value
End With
Application.ScreenUpdating = True
RunT = Round(Timer - t, 3)

'Notify user in seconds
  MsgBox "This code ran successfully in " & RunT & " seconds", vbInformation
End Sub
Sub multivlookupV2()
Dim Lr1 As Long, Lr2 As Long, Lr4 As Long, Sh1 As Worksheet, Sh2 As Worksheet, Sh4 As Worksheet
Dim t As Double, i As Long, j As Long, E As Long, k As Long, RunT As Double
t = Timer
Set Sh1 = Sheets("IFG M18")
Set Sh2 = Sheets("INPUT M18")
Set Sh4 = Sheets("IFG BOJ")
Lr1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
Lr2 = Sh2.Range("A" & Rows.Count).End(xlUp).Row
Lr4 = Sh4.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With Sh2
   .Range("G2:G" & Lr2).ClearContents
   .Range("B2:B" & Lr2).ClearContents
   For i = 2 To Lr2
   If .Range("A" & i).Value = "" Then
      .Range("G" & i).Value = ""
      .Range("B" & i).Value = ""
   Else
      For j = Lr1 To 2 Step -1
       If StrComp(.Range("A" & i).Value, Sh1.Range("D" & j).Value) = 0 Then
        If .Range("G" & i).Value = "" Then
       .Range("G" & i).Value = Sh1.Range("C" & j).Value
       End If
       .Range("B" & i).Value = Sh1.Range("C" & j).Value
       End If
       Next j
      End If
   
Resum2:
  Next i
End With
Application.ScreenUpdating = True
RunT = Round(Timer - t, 3)

'Notify user in seconds
  MsgBox "This code ran successfully in " & RunT & " seconds", vbInformation
End Sub
Click to expand...
Dear Mr. Maabadi,

I am using the vba code that you provide it is very slower than post # 9.
my suggestion you should use CreateObject ("scripting.dictionary") or if you have another solution

Thanks
roykana
 
Upvote 0

Excel Facts

Best way to learn Power Query?
Read M is for (Data) Monkey book by Ken Puls and Miguel Escobar. It is the complete guide to Power Query.
I try But I don't think I can do it. It is very big challenge to me. Maybe others have better options.
But also I work on it.
 
Upvote 0
Hi again. I try And Make this code for Sheet "INPUT BOJ". Insert Userform and add to it One Textbox, One List BOx and Two Command Button ( I Upload Image)
Then Double click on Text box and Command Buttons and add this codes:
Code for showing Userform:
VBA Code: 
Sub UserformShowing()
UserForm1.Show
End Sub
Code for Buttons
VBA Code: 
Private Sub CommandButton1_Click()  ' Add ITC Button
Dim It As Long, Sh3 As Worksheet, Lr3 As Long
Set Sh3 = Sheets("INPUT BOJ")
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
For It = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(It) Then
Sh3.Range("A" & Lr3).Value = ListBox1.List(It, 0)
Sh3.Range("B" & Lr3).Value = ListBox1.List(It, 1)
Sh3.Range("C" & Lr3).Value = ListBox1.List(It, 2)
Sh3.Range("E" & Lr3).Value = ListBox1.List(It, 3)
If ListBox1.List(It, 4) = 1 Then
Sh3.Range("G" & Lr3).Value = ListBox1.List(It, 1)
Sh3.Range("H" & Lr3).Value = "S"
Else
Sh3.Range("H" & Lr3).Value = "NS"
End If
End If
Next It
End Sub


Private Sub CommandButton2_Click()  'Clear Button
Me.TextBox1.Text = ""
End Sub

Private Sub TextBox1_Change()   'Textbox Search Button
Dim I As Long, Lr4 As Long, x As Long, f As Long, Sh4 As Worksheet
Dim arr(), cnt As Long, Sh1 As Worksheet, K As Long, y As Long, z As Long, Lr1 As Long
Set Sh4 = Sheets("IFG BOJ")
Set Sh1 = Sheets("IFG M18")
Lr1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
Lr4 = Sh4.Range("A" & Rows.Count).End(xlUp).Row
 With Sh4
    For I = 2 To Lr4
        ReDim Preserve arr(0 To 4, cnt)
        arr(0, cnt) = .Range("D" & I).Value
        arr(1, cnt) = .Range("C" & I).Value
        arr(2, cnt) = .Range("H" & I).Value
        arr(3, cnt) = "BOJ"
        arr(4, cnt) = Application.WorksheetFunction.CountIf(Sh1.Range("D2:D" & Lr1), .Range("D" & I).Value) + _
                    Application.WorksheetFunction.CountIf(Sh4.Range("D2:D" & Lr4), .Range("D" & I).Value)
        cnt = cnt + 1
    Next I
  End With
 With Sh1
    For I = 2 To Lr1
        ReDim Preserve arr(0 To 4, cnt)
        arr(0, cnt) = .Range("D" & I).Value
        arr(1, cnt) = .Range("C" & I).Value
        arr(2, cnt) = .Range("H" & I).Value
        arr(3, cnt) = "M18"
        arr(4, cnt) = Application.WorksheetFunction.CountIf(Sh1.Range("D2:D" & Lr1), .Range("D" & I).Value) + _
                    Application.WorksheetFunction.CountIf(Sh4.Range("D2:D" & Lr4), .Range("D" & I).Value)
        cnt = cnt + 1
    Next I
  End With
Me.TextBox1 = Format(StrConv(Me.TextBox1, vbLowerCase))
Me.ListBox1.Clear
Me.ListBox1.AddItem "ITC"
Me.ListBox1.List(0, 1) = "ITM"
Me.ListBox1.List(0, 2) = "QFISIK"
Me.ListBox1.List(0, 3) = "KET"
Me.ListBox1.List(0, 4) = "Count"
Me.ListBox1.Selected(0) = True
Set Sh4 = Sheets("IFG BOJ")
Lr4 = Sh4.Range("AZ" & Rows.Count).End(xlUp).Row
For K = 0 To cnt - 1
For x = 1 To Len(arr(0, K))
f = Me.TextBox1.TextLength
If LCase(Mid(arr(0, K), x, f)) = Me.TextBox1 And Me.TextBox1 <> "" Then
Me.ListBox1.AddItem arr(0, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = arr(1, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = arr(2, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = arr(3, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = arr(4, K)
End If
Next x
Next K
End Sub
For listbox properties I show what i modify. for command button I change caption and font.
 

Attachments

  • 33333.jpg
    33333.jpg
    124.4 KB · Views: 9
Upvote 0
maabadi said:
Hi again. I try And Make this code for Sheet "INPUT BOJ". Insert Userform and add to it One Textbox, One List BOx and Two Command Button ( I Upload Image)
Then Double click on Text box and Command Buttons and add this codes:
Code for showing Userform:
VBA Code: 
Sub UserformShowing()
UserForm1.Show
End Sub
Code for Buttons
VBA Code: 
Private Sub CommandButton1_Click()  ' Add ITC Button
Dim It As Long, Sh3 As Worksheet, Lr3 As Long
Set Sh3 = Sheets("INPUT BOJ")
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
For It = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(It) Then
Sh3.Range("A" & Lr3).Value = ListBox1.List(It, 0)
Sh3.Range("B" & Lr3).Value = ListBox1.List(It, 1)
Sh3.Range("C" & Lr3).Value = ListBox1.List(It, 2)
Sh3.Range("E" & Lr3).Value = ListBox1.List(It, 3)
If ListBox1.List(It, 4) = 1 Then
Sh3.Range("G" & Lr3).Value = ListBox1.List(It, 1)
Sh3.Range("H" & Lr3).Value = "S"
Else
Sh3.Range("H" & Lr3).Value = "NS"
End If
End If
Next It
End Sub


Private Sub CommandButton2_Click()  'Clear Button
Me.TextBox1.Text = ""
End Sub

Private Sub TextBox1_Change()   'Textbox Search Button
Dim I As Long, Lr4 As Long, x As Long, f As Long, Sh4 As Worksheet
Dim arr(), cnt As Long, Sh1 As Worksheet, K As Long, y As Long, z As Long, Lr1 As Long
Set Sh4 = Sheets("IFG BOJ")
Set Sh1 = Sheets("IFG M18")
Lr1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
Lr4 = Sh4.Range("A" & Rows.Count).End(xlUp).Row
With Sh4
    For I = 2 To Lr4
        ReDim Preserve arr(0 To 4, cnt)
        arr(0, cnt) = .Range("D" & I).Value
        arr(1, cnt) = .Range("C" & I).Value
        arr(2, cnt) = .Range("H" & I).Value
        arr(3, cnt) = "BOJ"
        arr(4, cnt) = Application.WorksheetFunction.CountIf(Sh1.Range("D2:D" & Lr1), .Range("D" & I).Value) + _
                    Application.WorksheetFunction.CountIf(Sh4.Range("D2:D" & Lr4), .Range("D" & I).Value)
        cnt = cnt + 1
    Next I
  End With
With Sh1
    For I = 2 To Lr1
        ReDim Preserve arr(0 To 4, cnt)
        arr(0, cnt) = .Range("D" & I).Value
        arr(1, cnt) = .Range("C" & I).Value
        arr(2, cnt) = .Range("H" & I).Value
        arr(3, cnt) = "M18"
        arr(4, cnt) = Application.WorksheetFunction.CountIf(Sh1.Range("D2:D" & Lr1), .Range("D" & I).Value) + _
                    Application.WorksheetFunction.CountIf(Sh4.Range("D2:D" & Lr4), .Range("D" & I).Value)
        cnt = cnt + 1
    Next I
  End With
Me.TextBox1 = Format(StrConv(Me.TextBox1, vbLowerCase))
Me.ListBox1.Clear
Me.ListBox1.AddItem "ITC"
Me.ListBox1.List(0, 1) = "ITM"
Me.ListBox1.List(0, 2) = "QFISIK"
Me.ListBox1.List(0, 3) = "KET"
Me.ListBox1.List(0, 4) = "Count"
Me.ListBox1.Selected(0) = True
Set Sh4 = Sheets("IFG BOJ")
Lr4 = Sh4.Range("AZ" & Rows.Count).End(xlUp).Row
For K = 0 To cnt - 1
For x = 1 To Len(arr(0, K))
f = Me.TextBox1.TextLength
If LCase(Mid(arr(0, K), x, f)) = Me.TextBox1 And Me.TextBox1 <> "" Then
Me.ListBox1.AddItem arr(0, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = arr(1, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = arr(2, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = arr(3, K)
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = arr(4, K)
End If
Next x
Next K
End Sub
For listbox properties I show what i modify. for command button I change caption and font.
Click to expand...
can you reply from the excel file i attached so there are no errors?
 
Upvote 0
maabadi said:
I try But I don't think I can do it. It is very big challenge to me. Maybe others have better options.
But also I work on it.
Click to expand...
I am sure you can complete for point 1 because I see your vba skills are very good and you are already an expert in vba
 
Upvote 0
this is your both files
1. I change structure of INPUT BOJ sheet to use Module 2 with array at small size file (first file sent by you). Please test on it to see result and structure
2. for seeing search result star running macro 4 to up userform and see search page. but also it take long time to respond. then you can multiselect your file and it added after last line of INPUT BOJ sheet (with your structure). Please test this two on small size file and if you like them then test it on your original file and if you don't like it don't save file.
Your First Example file
Your Original File
 
Upvote 0
Dear maabadi,

Thank you for your reply.

I attach a screenshot of the results of your VBA code and also the desired results with yellow marking. The yellow marking that appears when pressing the ITC button.

Thanks

Roykana
RESULT FROM VBA CODE.PNG
the desired result.PNG
 
Upvote 0
Sorry My fault
Go to VBA window Double click on Userform1
Double click on ADD ITC Button and Change code to this:
VBA Code: 
Private Sub CommandButton1_Click()  ' Add ITC Button
Dim It As Long, Sh3 As Worksheet, Lr3 As Long
Set Sh3 = Sheets("INPUT BOJ")
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
For It = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(It) Then
Sh3.Range("A" & Lr3).Value = ListBox1.List(It, 0)
Sh3.Range("B" & Lr3).Value = ListBox1.List(It, 1)
Sh3.Range("C" & Lr3).Value = ListBox1.List(It, 2)
Sh3.Range("D" & Lr3).Value = ListBox1.List(It, 3)
Sh3.Range("E" & Lr3).Value = ListBox1.List(It, 4)
Sh3.Range("F" & Lr3).Value = ListBox1.List(It, 5)
If ListBox1.List(It, 1) = ListBox1.List(It, 5) Then
Sh3.Range("G" & Lr3).Value = "S"
Else
Sh3.Range("G" & Lr3).Value = "NS"
End If
End If
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
Next It
End Sub
 
Upvote 0
Solution
maabadi said:
Sorry My fault
Go to VBA window Double click on Userform1
Double click on ADD ITC Button and Change code to this:
VBA Code: 
Private Sub CommandButton1_Click()  ' Add ITC Button
Dim It As Long, Sh3 As Worksheet, Lr3 As Long
Set Sh3 = Sheets("INPUT BOJ")
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
For It = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(It) Then
Sh3.Range("A" & Lr3).Value = ListBox1.List(It, 0)
Sh3.Range("B" & Lr3).Value = ListBox1.List(It, 1)
Sh3.Range("C" & Lr3).Value = ListBox1.List(It, 2)
Sh3.Range("D" & Lr3).Value = ListBox1.List(It, 3)
Sh3.Range("E" & Lr3).Value = ListBox1.List(It, 4)
Sh3.Range("F" & Lr3).Value = ListBox1.List(It, 5)
If ListBox1.List(It, 1) = ListBox1.List(It, 5) Then
Sh3.Range("G" & Lr3).Value = "S"
Else
Sh3.Range("G" & Lr3).Value = "NS"
End If
End If
Lr3 = Sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
Next It
End Sub
Click to expand...
It's okay if you try to provide a solution to me
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Question
Xlookup, Vlookup and/or VBA for finding, matching and inputting data to separate sheet
Replies
0
Views
516
AlfredDB
A
E
  • Question
Help Cleaning Up / Optimizing VBA Code
Replies
6
Views
270
offthelip
O
W
  • Question
VBA Help - Lookup Match Between 2 Worksheets
Replies
0
Views
486
Web_Jim
W
J
  • Question
VBA Code Help - Search Form
Replies
1
Views
867
James006
James006
R
  • Solved
Problem in vba vlookup
2 3 4
Replies
37
Views
4K
Akuini
Akuini

Forum statistics

Threads
1,214,641
Messages
6,120,692
Members
448,979
Latest member
DET4492

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top