Melding voorzien indien LKxxx niet in lijst voorkomt

danny147 · 31 jan 2016

Beste,

Graag had ik in de code een melding gewild indien LKxxx niet voorkomt in de lijst op tabblad LinkList.

Melding moet zijn: "De ingevulde loopkraan LKxxx is niet terug gevonden."
Indien niet aanwezig Exit Sub anders code verder laten lopen.

Waarbij LKxxx kan zijn LK100

Zie bestandje en code.

Groetjes Danny.

HSV · 31 jan 2016

Hallo Danny,

Nog altijd met de loopkranen bezig?
Hoeveel jaren gaat dit nu al? :d

Code:

Sub Invullen_van_LK()
Application.ScreenUpdating = False
    With Blad1.Range("a25")
    .Resize(, 2).ClearContents
        str = InputBox("Loopkraan ingeven", "Loopkraan:")
         If Not str = "" Then
          .Value = str
         Else
           MsgBox "je bent gestopt"
           Exit Sub
         End If
        
        .Font.Bold = True
        .Font.Size = 14
        .Font.Underline = True
        .EntireRow.AutoFit
       i = Application.Match(str, Blad10.Columns(3), 0)
        
       If Not IsError(i) Then
          .Offset(, 1) = Blad10.Cells(i, 4).Value
         Else
         MsgBox "De ingevulde loopkraan """ & str & """ is niet terug gevonden."
          .ClearContents
        End If
  End With
End Sub

edmoor · 31 jan 2016

HSV zei:
Nog altijd met de loopkranen bezig?
Hoeveel jaren gaat dit nu al? :d

Het loopt nog

HSV · 1 feb 2016

@Edmoor, :d:d:d:d

danny147 · 1 feb 2016

Beste HSV en Edmoor,

Nog altijd met de loopkranen bezig?
Hoeveel jaren gaat dit nu al?

Als we dat niet meer hebben zijn we werkloos en kunnen we geen staal meer leveren voor de automobielsector :d :d :d

Heb de code in de origineel bestand geplaatst en ziet er zo uit:

Code:

Sub VulGegevensLPKIn(control As IRibbonControl)

Application.ScreenUpdating = False
mySheetName = ActiveSheet.Name
    With Range("A1000").End(xlUp).Offset(2, 0)
   .Resize(, 2).ClearContents
        str = InputBox("Loopkraan ingeven", "Loopkraan:")
         If Not str = "" Then
          .value = str
         Else
           MsgBox "je bent gestopt"
           Exit Sub
         End If
        .Font.Bold = True
        .Font.Size = 14
        .Font.Underline = True
        .EntireRow.AutoFit
       i = Application.Match(str, Blad10.Columns(3), 0)
        
       If Not IsError(i) Then
          .Offset(, 1) = Blad10.Cells(i, 4).value
         Else
         MsgBox "De ingevulde loopkraan """ & str & """ is niet terug gevonden."
          .ClearContents
        End If
  End With

Deze begint met een knop in ons bestandje en de code kan gelijk waar beginnen in kolom A, daarom de xlUp aan toegevoegd.
Krijg dan een foutmelding op

Code:

i = Application.Match(str, Blad10.Columns(3), 0)

Het gaat goed als het een goede LK is en fout bij een niet herkende LK

In het bestandje dat ik mee gestuurd heb, daar lukt het wel ???

Grts Danny147 :thumb:

HSV · 1 feb 2016

In het voorbeeldbestand is het Blad10.
Zoek even het juiste blad erbij in de Vb-editor.

Code:

i = Application.Match(str, [COLOR=#ff0000]Blad10[/COLOR].Columns(3), 0)

danny147 · 1 feb 2016

Beste HSV,

Dat is ook Blad10, heb daar rekening mee gehouden :d

Grts Danny147

HSV · 1 feb 2016

Kan je dat bewuste werkboek eens plaatsen?

danny147 · 1 feb 2016

Beste HSV,

Het bestand is 5 Mb groot.

Ik zal via een link het bestandje hier plaatsen.

Grts Danny147

HSV · 1 feb 2016

Is eigenlijk niet de bedoeling van een forum.
Sla het eens op als .xlsb en probeer het nog eens.
Ik zag laatst dat ik al boven de 500kb aan het uploaden was maar weet niet waar het limiet ligt met die extensie.

danny147 · 1 feb 2016

Beste HSV,

Link :Verwijderd wegens persoonlijke informatie.

Grts Danny147 :thumb:

HSV · 1 feb 2016

Zo beter Danny?

Code:

dim i as[COLOR=#ff0000] variant[/COLOR]

Of ingekort:

Code:

Dim i

Cobbe · 1 feb 2016

Ik vraag me af waarom dat bestand zo groot is, qua uiterlijk en gebruikte formules mag het niet groter dan 100kb zijn.
De eindepagina's heb ik ingesteld en toch......

edmoor · 1 feb 2016

Dat bestand is zo groot omdat er 77 foto's van personeelsleden in zitten in de opmerkingen op het blad Verlofkalender.
Ze staan er met foto incl. naam, toenaam en functie.
Vraag me af of ze daar wel zo blij mee zijn dat dat nu rondzwerft.

Maar Danny staat er zelf ook bij

@Danny,

Het lijkt me verstandig die download bij Filedropper weg te halen en de link in #11.
Dat geldt tevens voor je email adres in #9.

danny147 · 1 feb 2016

Beste,

so far so good :thumb:

Nu kunnen we verder nu iedereen toch het bestandje heeft gedownload :d

Volgende stap is gegevens invullen in code Werkplek
Deze komen uit het bestandje Output (zie bijlage), filenaam staat in de code.
Heb een aantal lijnen gekleurd om maar een idee te geven wat waar moet komen.
Vul de juiste datum in cel C1 ( 1/2/2016 ) op tabblad RM-1_RE-1

Lichtgroen: Komt op tabblad RM-1_RE-1 bij WPL_ELE te staan en begint in cel A28
Donkergroen: Komt op tabblad RM-1_RE-1 bij WPL_MEC te staan en begint in cel A38
Geel: Komt op tabblad RM-2_RE-2 bij WPL_ELE te staan en begint in cel A28
Oranje: Komt op tabblad RM-2_RE-2 bij WPL_MEC te staan en begint in cel A38
Lichtblauw: Komt op tabblad RM-DG_RE-DG bij WPL_ELE te staan en begint in cel A28
Donkerblauw: Komt op tabblad RM-DG_RE-DG bij WPL_MEC te staan en begint in cel A38

Zijn er vragen ik volg het op de voet.

Grts Danny147

HSV · 1 feb 2016

Ik dacht enig onderscheid te herkennen in de kleuren, maar niet dus.
Namelijk in kolom G: WPL ELE, WPL MEC.
Maar de ene keer is het bij WPL ELE de kleur geel en een andere keer is het blauw.

Helaas kom ik niet verder.
Anders zou ik er een filter opzetten en dan wegschrijven.

Helaas ontgaat mij de logica in beide bestanden.

danny147 · 1 feb 2016

Beste HSV,

In regel 60 zit een foutje, dit moet WPL MEC zijn.

Men zoekt eerst naar de datum in Kolom A (1/2/2016)
Dan naar GT-SP-WKSE-15 voor ELE en GT-SP-WKSM-15 voor MEC
Dan naar RE-1, RE-2, RM-1, RM-2, RM-DG, RE-DG

Als men een combinatie ziet 1/2/2016 en GT-SP-WKSE-15 en RE-1, dan komen de gegevens in tabblad RM-1_RE-1 in cel A28 te staan.
Is de combinatie 1/2/2016 en GT-SP-WKSM-15 en RM-DG, dan komen de gegevens in tabblad RM-DG_RE-DG in cel A38 te staan.

Men moet wel eerst op de knop Werkplaats orders klikken bovenaan.

Grts Danny147

danny147 · 2 feb 2016

Beste HSV,

Een voorstel om te zoeken:

Code:

    mySheetName = ActiveSheet.Name
    If Left(mySheetName, 4) = "RM-1" Then

Deze kan dan ook gelden voor RE-1, omdat het op hetzelfde tabblad is gewoon de filter dan veranderen van GT-SP-WKSM-15 (RM-1) naar GT-SP-WKSE-15 (RE-1)

Grts Danny147

danny147 · 2 feb 2016

Beste,

Sla volgende link op en verander de extensie naar xlsm en open het bestandje.
Dit bestandje laat zien wat het resultaat moet zijn.

http://www.freewebs.com/scheppie/bestanden/Planning%20test.xls

In bijlage nog eens het bestandje output met de juiste gegevens erin.

Grts Danny147

danny147 · 5 feb 2016

Gegevenss zoeken uit ander bestand met VBA dmv van voorwaarden

Beste,

Was even uit beeld :d

Daarom dit bericht nogmaals verzonden.
Hopelijk vind iemand hier een oplossing voor.

Grts Danny147 :thumb:

Melding voorzien indien LKxxx niet in lijst voorkomt

Terugkerende gebruiker

Bijlagen

Inventaris

Inventaris

Inventaris

Terugkerende gebruiker

Inventaris

Terugkerende gebruiker

Inventaris

Terugkerende gebruiker

Inventaris

Terugkerende gebruiker

Inventaris

Giga Honourable Senior Member †

Inventaris

Terugkerende gebruiker

Bijlagen

Inventaris

Terugkerende gebruiker

Terugkerende gebruiker

Terugkerende gebruiker

Bijlagen

Terugkerende gebruiker

Wij waarderen jouw privacy