Create a script to find matching values based on criterias

[Medoweb]

Hi everyone,

I started to create a macro in VBA to find matching value based on 2 criterias

the code:

Please Login or Register  to view this content.

Capture.PNG
2023-11-27_11-19-22.jpg

The code finds now the value of C13 on the other sheet in range A4:A54 but gives the result constantly of B4:B54 and not taking into consideration the other criteria which is finding A13 in row A3:L3

Any suggestion?

Thank you in advance!

[mohadin]

Hi
And welcome on board
Try this method

Please Login or Register  to view this content.

[Medoweb]

Hi,

thank you for both, welcoming and for the solution!
Works well and very elegant!

[mohadin]

You Are very welcome.
And thank you for the feedback.
Be happy and safe.

[Medoweb]

Hi mohadin,

sorry to open up this topic, but right now I have the problem with this exact example.

Sub FindAndCrossCells()
Dim kalkulatorSheet As Worksheet
Dim gltSheet As Worksheet
Dim KalkulatorRange As Range
Dim GLTRange As Range
Dim resultRange As Range
Dim r&, c&
Set kalkulatorSheet = ThisWorkbook.Sheets("Kalkulator")
Set gltSheet = ThisWorkbook.Sheets("GLT")
Set KalkulatorRange = kalkulatorSheet.Range("C13")
Set GLTRange = gltSheet.Range("A4:A54")
Set resultRange = kalkulatorSheet.Range("A13")

r = GLTRange.Find(KalkulatorRange, , , 1).Row
c = gltSheet.Range("A3:l3").Find(resultRange, , , 1).Column
MsgBox gltSheet.Cells(r, c)


End Sub

When I first used this code, it worked perfectly. Now I changed data on sheet "GLT" (structure remained the same) and I continously get Error 91 for row
r = GLTRange.Find(HomeRange, , , 1).Row
c = gltSheet.Range("A3:CT254").Find(resultRange, , , 1).Column

I really can't find the mistake, because all objects seemed to be declared correctly and I haven't changed anything else on the sheets.

Do you have any idea, what might be the problem?

Thank you!

[MikeVol]

Hello @Medoweb. You can attach an example file with your code according to the forum rules. See the yellow banner at the top of this page to see how you can do this. With an example file there is a great chance to get help with your question. Good luck.