MULTI VLOOKUP IN VBA

[roykana]

Dear All master,


please help me continue with the vba code that I have created according to the results

I made with the formula, namely in columns E, F, G.
this is my link : MULTI VLOOKUP IN VBA.xlsm
file
and I have repair Removed Records: Sorting from /xl/worksheets/sheet2.xml part. Is there a problem with my vba sort code?. Please solution,

Option Explicit


Sub multivlookup()
    Application.ScreenUpdating = False

    ' sort DB sheet on col A
   With Sheets("DB").Sort
     .SortFields.Add Key:=Range("c1"), Order:=xlAscending
     .SetRange Range("c1:f61")
     .Header = xlYes
     .Apply
    End With
    With Range(Cells(2, 5), Cells(2, 5).End(xlDown))
        .FormulaR1C1 = "=IF(VLOOKUP([@DATE],dbperiod,1,true)=[@DATE],VLOOKUP([@DATE],dbperiod,4),"""")"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

Try it like

   With Sheets("DB")
      .Range("C1:F61").Sort Key1:=.Range("C1"), order1:=xlAscending, Header:=xlYes
   End With
   With Range(Cells(2, 5), Cells(2, 5).End(xlDown))
       .FormulaR1C1 = "=IF(VLOOKUP([@DATE],dbperiod,1,true)=[@DATE],VLOOKUP([@DATE],dbperiod,4),"""")"
       .Value = .Value
   End With

 

[roykana]

Try it like

   With Sheets("DB")
      .Range("C1:F61").Sort Key1:=.Range("C1"), order1:=xlAscending, Header:=xlYes
   End With
   With Range(Cells(2, 5), Cells(2, 5).End(xlDown))
       .FormulaR1C1 = "=IF(VLOOKUP([@DATE],dbperiod,1,true)=[@DATE],VLOOKUP([@DATE],dbperiod,4),"""")"
       .Value = .Value
   End With

Dear sir
I have tried according to the VBA code that you sent me, that there are still many different results from the formula I created. I upload the revised document,
I beg you to make a VBA code only in column H (PERIOD vba), Column I (CATEGORY vba), Column J (NAME vba) or the one I mark in yellow.
If the results do not match compared to columns E, F, G that I made with the formula, the results will appear not the same
and # N / A in columns k, L, M with the formula I created. so the result must be the same.

this is my link : MULTI VLOOKUP IN VBA - R1.xlsm
file

Option Explicit


Sub multivlookup()
    Application.ScreenUpdating = False

    ' sort DB sheet on col A
  With Sheets("DB")
      .Range("C1:F61").Sort Key1:=.Range("C1"), order1:=xlAscending, Header:=xlYes
   End With
   With Range(Cells(2, 8), Cells(2, 8).End(xlDown))
       .FormulaR1C1 = "=IF(VLOOKUP([@DATE],dbperiod,1,true)=[@DATE],VLOOKUP([@DATE],dbperiod,4),"""")"
       .Value = .Value
   End With
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

This thread has nothing to do with formulae, it was the problem relating to sorts. If you are having problems with your formulae, then you need to start a new thread. Thanks.

 

[roykana]

This thread has nothing to do with formulae, it was the problem relating to sorts. If you are having problems with your formulae, then you need to start a new thread. Thanks.

Dear sir
i want the vba code like the result of the formula i made. In the file there are 3 formulas. the result must be the same as the formula I created.I want to create in vba or macro
Thanks
Roykana

 

[roykana]

Dear sir
i want the vba code like the result of the formula i made. In the file there are 3 formulas. the result must be the same as the formula I created.I want to create in vba or macro
Thanks
Roykana

I want to make the whole in vba. I think you understand what I am saying

 

[Fluff]

That is a totally different question & therefore needs a new thread.
Did the code I suggested get rid of the problems you were having with the sort?

 

[roykana]

That is a totally different question & therefore needs a new thread.
Did the code I suggested get rid of the problems you were having with the sort?

dear sir

for the vba sort problem has been solved.
well I'll make a new one
thanks
roykana

 

[Fluff]

You're welcome & thanks for the feedback.