• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kiezen voor de juiste map

Status
Niet open voor verdere reacties.
DClewis

DClewis

Gebruiker
Lid geworden
25 feb 2020
Berichten
46
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
 

Bijlagen

  • helpmij 23.xlsm
    71,6 KB · Weergaven: 20
Laatst bewerkt:
je kunt zoiets toevoegen

Code: 
Dim CheckCompleet As Boolean
CheckCompleet = True

If CheckBox1.Value Then
    [ C11 ] = " O.K. "
Else
    [COLOR="#FF0000"]CheckCompleet = False[/COLOR]
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)
 
Ik heb gekozen vvoor de oplossing van lam201 :thumb:
Dit is precies wat ik bedoel dank je wel
Edmoor ook bedankt voor de moeite.
 
Ik had 'm al verwijderd ;)
 
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'.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan