VBA for lookup

[maarten_zee]

Given the following sheets...

VJP

output+25-01-04.xls
	A	B	C	D
1	Voorafgaandejournaalposten
2	Rubriek	Rekening	Naam
3	Rubriek_1	1110
4	Rubriek_4	4610
5	Rubriek_1	1420
6	Rubriek_3	3000
7	Rubriek_6	6004
8	Rubriek_6	6004
VJP

InputFromKing

output+25-01-04.xls
	A	B	C	D
1	Rekening	Naam
2	0010	Aandelenkapitaal
3	0230	Inventariseninrichting
4	0240	Computersenrandapperatuur
5	0250	Intrenrtransport
6	0810	Leninging
7	0820	Leaseverplichting
InputFromKing

I'd like to look up "Naam" associated with the value in B3 on VJP from InputFromKing by means of VBA code. If nothing found, I'd like the following message to appear instead:<Vul hier een omschrijving of een naam>.

Thanks in advance.

 

[Egress1]

Howdy maarten_zee,

Heres something to get you started. Its the vba version but I'm sure there are many here who can share how to do it via formula or excel function as well.

Sub MyLookup()
Dim K As Single, L As Single, LastRow1 As Single, LastRow2 As Single
Dim MyData As Worksheet
Set MyData = Sheets("InputFromKing")
Sheets("VJP").Activate
LastRow1 = Range("B65536").End(xlUp).Row
LastRow2 = Sheets("InputFromKing").Range("A65536").End(xlUp).Row

For K = 3 To LastRow1
For L = 2 To LastRow2
If Cells(K, 2) = MyData.Cells(L, 1) Then Cells(K, 3) = MyData.Cells(L, 2)
Next L
Next K
End Sub

HTH

 

[maarten_zee]

There is something missing:

I'd like the following message to appear instead:"Vul hier een omschrijving in"

Egress thanx for your reply, I have found still no time to test the code but if it works I'll let you no.

Mrt

 

[north19701]

Sub Macro2()
lastRow = Sheets("VJP").Range("b3").End(xlDown).Row
Sheets("VJP").Range("c3:c" & lastRow).FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-1],InputFromKing!C[-2]:C[-1],2,0)),""Vul hier een omschrijving in"",VLOOKUP(RC[-1],InputFromKing!C[-2]:C[-1],2,0))"
End Sub

Does this help?

 

[Albert 1]

I have found still no time to test the code but if it works I'll let you no.

Not very kindly for Egress1, who spent time at your problem.
To test his code, it takes only 1 minute....
Both Egress1' solutions work perfectly !

 

[Juan Pablo González]

Edit: Mis-read the question, will post back in a sec.

 

[Juan Pablo González]

Ok, finally...

Put this code in the VJP sheet (Right click on the sheet tab, choose View code, and paste it there)

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
    <SPAN style="color:#00007F">If</SPAN> Target.Column = 2 <SPAN style="color:#00007F">Then</SPAN>   <SPAN style="color:#007F00">'Is it an entry in column B</SPAN>
        <SPAN style="color:#00007F">Dim</SPAN> Ans <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN>
        <SPAN style="color:#00007F">Dim</SPAN> Rng <SPAN style="color:#00007F">As</SPAN> Range
        
        <SPAN style="color:#007F00">'Did the user make an entry ?</SPAN>
        <SPAN style="color:#00007F">If</SPAN> Len(Target.Value) = 0 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
        
        <SPAN style="color:#00007F">With</SPAN> Sheets("InputFromKing")    <SPAN style="color:#007F00">'Define the lookup range</SPAN>
            <SPAN style="color:#00007F">Set</SPAN> Rng = .Range("A2", .Range("A65536").End(xlUp))
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
        
        
        <SPAN style="color:#007F00">'Search for the changed cell in VJP</SPAN>
        Ans = Application.Match(Target.Text, Rng, 0)
        
        <SPAN style="color:#007F00">'Did we find it ?</SPAN>
        <SPAN style="color:#00007F">If</SPAN> IsNumeric(Ans) <SPAN style="color:#00007F">Then</SPAN>
            Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN>    <SPAN style="color:#007F00">'Turn events off</SPAN>
            Target.Offset(, 1).Value = Rng(Ans).Offset(, 1).Value   <SPAN style="color:#007F00">'Put the associated Naam</SPAN>
            Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN>    <SPAN style="color:#007F00">'Turn events on</SPAN>
        <SPAN style="color:#00007F">Else</SPAN>
            Ans = ""        <SPAN style="color:#007F00">'To convert the variable to a string</SPAN>
            
            <SPAN style="color:#007F00">'Ok, it's not on the list, so, let's warn the user</SPAN>
            Ans = InputBox("Vul  hier de omschrijving in", "Vul  hier de omschrijving in", "")
            
            <SPAN style="color:#007F00">'Did the user enter something there ?</SPAN>
            <SPAN style="color:#00007F">If</SPAN> Len(Ans) = 0 <SPAN style="color:#00007F">Then</SPAN>
                <SPAN style="color:#007F00">'Cancelled or didn't enter anything</SPAN>
                <SPAN style="color:#007F00">'so, delete the current entry and exit the code</SPAN>
                Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN>
                <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>
                Application.Undo
                Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN>
                <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
            End <SPAN style="color:#00007F">If</SPAN>
            
            <SPAN style="color:#007F00">'Put the Naam</SPAN>
            Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN>    <SPAN style="color:#007F00">'Turn events off</SPAN>
            Target.Offset(, 1).Value = Ans
            Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN>    <SPAN style="color:#007F00">'Turn events on</SPAN>
            
            <SPAN style="color:#007F00">'Store the Rekening and the Naam in InputFromKing</SPAN>
            <SPAN style="color:#00007F">With</SPAN> Sheets("InputFromKing").Range("A65536").<SPAN style="color:#00007F">End</SPAN>(xlUp)
                .Value = "'" & Target.Value     <SPAN style="color:#007F00">'Make sure its entered as a text</SPAN>
                .Offset(, 1).Value = Ans
            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
        
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
End <SPAN style="color:#00007F">Sub</SPAN>
</FONT>