VBA probleem met zoeken in 2 bestanden

[perry99]

]Hallo,

Ik hoop dat iemand mij kan helpen met bijgevoegde VBA.
Ik van alles geprobeerd echter ik kom er niet uit hoe ik het volgende moet oplossen.

De bedoeling van bijgevoegde VBA is dat als het ingegeven artikelnummer in beide bestanden niet staat dat er dan een
msgbox komt met de tekst artikel bestaat niet.
Als ik de beide VBA los van elkaar test, dan functioneren ze beide, echter als ik ze aan elkaar koppel krijg of de foutmelding 91 of
als ik het juiste artikelnummer 0700090 ingeef ook de message artikel bestaat niet.
De bedoeling is dat alleen als het artikelnummer b.v. 9999999 niet in beide bestanden voorkomt dat dan alleen de msgbox komt met artikel bestaat niet.

Ik heb een bestand bijgevoegd en hoop dat iemand mij hiermee kan helpen.

Groetjes,

Perry

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
    Set B1 = Worksheets("Bestand 1").Cells.Find(Target, , xlValues, xlWhole)
    Set B2 = Worksheets("Bestand 2").Cells.Find(Target, , xlValues, xlWhole)
    If B1 Is Nothing Or B2 Is Nothing Then
        MsgBox "artikelnummer bestaat niet"
    End If
End If

End Sub

Bovenstaande code controleert in zowel Bestand 1 als Bestand 2 de ingevoerde waarde.
Als in 1 of beide werkbladen de waarde niet gevonden, dan verschijnt de melding.

Met vriendelijke groet,


Roncancio

 

[perry99]

Hallo Roncancio,

Allereerst bedankt voor het meedenken van mijn probleem, echter of het artikel nu wel of niet bestaat, ik krijg steeds de
melding artikel bestaat niet.

Kan je er nog even naar kijken.

Alvast bedankt voor jouw medewerking.

Groetjes,

Perry :thumb::thumb::thumb:

 

[Roncancio]

Hallo Roncancio,

Allereerst bedankt voor het meedenken van mijn probleem, echter of het artikel nu wel of niet bestaat, ik krijg steeds de
melding artikel bestaat niet.

Kan je er nog even naar kijken.

Alvast bedankt voor jouw medewerking.

Groetjes,

Perry :thumb::thumb::thumb:

Wanneer moet de melding niet verschijnen?
Volgens mij alleen als het artikel in beide werkbladen staan.
Of vergis ik me?

Met vriendelijke groet,


Roncancio

 

[perry99]

Hallo Roncancio,

Oh sorry, het zit zo dat je het artikel ingeeft in het blad: opname en als het artikel zowel in bestand 1 als 2 niet staat dat dan de
melding verschijnt artikel bestaat niet.

Tevens is het ook de bedoeling als het artikel wel in bestand 1 of 2 staat de omschrijving en het bedrag naast het artikel komt welke vermeld staat in blad: opname.

Kan de omschrijving en het bedrag hierbij ook in een andere kolom in dezelfde rij komen.

Ik hoop dat het nu wat duidelijker voor je is.

Nogmaals mijn dank voor het meedenken.

Groetjes,

Perry :thumb::thumb::thumb:

 

[Roncancio]

De code kijkt in de werkbladen naar het ingevoerde artikelnummer.
Is dit nummer gevonden dan verschijnen de bijbehorende gegevens.
Wordt het nummer in beide werkbladen niet gevonden, dan verschijnt de melding.

Met vriendelijke groet,


Roncancio

 

[perry99]

Hallo Roncancio,

Bij mij geeft die alleen maar de melding artikel bestaat niet en doet niet hetgene zoals jij hierboven hebt beschreven.

Ik werk met excel 2003, ligt daar het probleem soms.

Ik heb jouw VBA gekopieerd en over de mijne heengezet.

Doe ik soms iets fout??????.

Overigens als ik de VBA aanpas dat die alleen in bestand 1 kijkt, dan krijg ik inderdaad geen melding als ik het artikel 9601234 ingeef, echter komt er geen omschrijving en bedrag achter te staan.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
    Set B1 = Worksheets("bestand 1").Cells.Find(Target, , xlValues, xlWhole)
    Rem Set B2 = Worksheets("bestand 2").Cells.Find(Target, , xlValues, xlWhole)
    If B1 Is Nothing Then
        MsgBox "artikelnummer bestaat niet"
    End If
End If

End Sub

Ik hoop dat je de oplossing voor mij kan vinden.

Groetjes,

Perry :thumb::thumb::thumb::thumb:

 

[Warme bakkertje]

De fout zat in je getalnotatiie

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
x = Target.Value
If Len(x) = 6 Then x = 0 & Target.Value
    Set B1 = Worksheets("bestand 1").Cells.Find(x, , xlValues, xlWhole)
    Set B2 = Worksheets("bestand 2").Cells.Find(x, , xlValues, xlWhole)
    If B1 Is Nothing And B2 Is Nothing Then MsgBox "artikelnummer bestaat niet": Exit Sub
    If Not B1 Is Nothing Then
        Target.Offset(, 2) = B1.Offset(, 1).Value
        Target.Offset(, 3) = B1.Offset(, 2).Value
    Else
        Target.Offset(, 2) = B2.Offset(, 1).Value
        Target.Offset(, 3) = B2.Offset(, 2).Value
    End If
End If
End Sub

 

[perry99]

Hallo Rudi,

Dit werkt super, je slaat de spijker op zijn kop.

Mijn dank is wederom groot en we mogen blij zijn met mensen zoals jij die anderen hier helpen om hun problemen op te lossen.

RESPECT

Nogmaals mijn dank.

Perry :thumb::thumb::thumb::thumb::d:d:d:d:d