Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: kiezen voor de juiste map

  1. #1
    Junior Member DClewis's avatar
    Geregistreerd
    25 februari 2020
    Vraag is opgelost

    kiezen voor de juiste map

    Goeroes,
    Ik heb de volgende uitdaging
    Wij gbruiken een soort gelijk formulier zoals ik hier heb geplaatst in de bijlage.
    Dit formulier heb ik uitgekleed.

    Wat mij niet lukt is het volgende, en ik weet niet of het kan.
    De gegevens in de userform worden opgeslagen in een excelsheet.
    De gebruiker krijgt hier van een copy via de email ( gevonden bij Ron de Bruin waarvoor dank) en het formulier wordt automatisch opgeslagen ineen map.
    Als de spullen niet compleet zijn ingeleverd vinken wij dat uit.
    Voor nu heb ik het opgelost door bij de medewerker een extra checkbox te maken (checkbox 6) zodat ik het formulier naar de juiste map kan sturen.
    Vaak wordt dit toch vergeten en komen de formulieren in de verkeerde map uit.

    Wat ik eigenlijk wil is dat ik deze optie helemaal niet nodig heb.
    Ik wil als 1 van de 5 checkboxen is uitgevinkt of meerdere automatisch voorde map niet compleet wordt gekozen en niet voor de map compleet.

    Kan iemand mijhierbij helpen?

    Mijn dank is groot Lewis
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door DClewis : 24 november 2022 om 13:41

  2. #2
    Senior Member lam201's avatar
    Geregistreerd
    23 augustus 2007
    je kunt zoiets toevoegen

    Code:
    Dim CheckCompleet As Boolean
    CheckCompleet = True
    
    If CheckBox1.Value Then
        [ C11 ] = " O.K. "
    Else
        CheckCompleet = False
    End If
    '--> rode regel voor alle 5 checkboxen toevoegen
    
    
    If CheckCompleet = True Then
        ActiveWorkbook.SaveAs "H:\lala\" & Range("C20").Value & " " & Range("C21").Value & " " & Range("C9") & ".xls"
    Else
        ActiveWorkbook.SaveAs "H:\lala\niet compleet\" & Range("C20").Value & " " & Range("C21").Value & " " & Range("C9") & ".xls"
    End If

    (niet getest)

  3. #3
    Junior Member DClewis's avatar
    Geregistreerd
    25 februari 2020
    Ik heb gekozen vvoor de oplossing van lam201
    Dit is precies wat ik bedoel dank je wel
    Edmoor ook bedankt voor de moeite.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    Ik had 'm al verwijderd
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    De enige code die je in het userform nodig hebt:

    Code:
    Private Sub CommandButton1_Click()
      For j = 1 To 7
         Cells(Choose(j, 9, 10, 29, 21, 22, 23, 25), 3) = Me("Textbox" & j)
         If j < 6 Then Cells(j + 10) = Me("CheckBox" & j)
         If j < 6 Then n = n + Me("checkBox" & j)
      Next
         
      Cells(32, 3) = ComboBox1.Value
    
      ActiveWorkbook.SaveAs "H:\lala\" & IIf(n = -5, "", "onvolledig\") & Join(Array([C20], [C21], [C9])) & ".xlsx", 51
    End Sub
    Vinkvak6 kun je verwijderen, want overbodig
    Userform_initialize staat op de verkeerde plaats en is overbodig: de vinkvakken hebben in het ontwerp de waarde 'false'.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren