Dropdown VS keuzelijst met invoervak

[eliebaele]

Hallo,

Ik wil in B2 de ingave wat vergemakkelijken door er te kunnen in typen. wat niet lukt nu.
Ik heb wat geexperimeteerd (zie M) ingave werkt daar ongeveer zoals ik het wil, maar hoe krijg ik dit in de B2?
De inhoud van B2 word in macros gebruikt en dit moet ook afdrukbaar zijn

 

[OctaFish]

Een keuzelijst (met invoervak) heeft een eigenschap <Linked cell>. Deze bepaalt in welke cel het resultaat komt te staan. Die moet je dus nog instellen, want die is leeg bij jou.

 

[eliebaele]

Thx vr de snelle reactie!

 

[eliebaele]

Opslaan van XLSM bestandsnaam bevat "."

Beste

Ik gebruik volgende om mn bestandsnaam samen te stellen

Sub save()
Naam = Range("B2") & " " & Range("B1")
Folder = Range("G2")
ActiveWorkbook.SaveAs "F:\VDV gedeelde map\post" & Folder & "" & Naam & ".xlsm"
End Sub

Echter wanneer mn bestandsnaam bvb 3.60.325 is krijg ik 3 als naam en 60.325xlsm als bestandstype

Hoe kan ik dat aanpakken dat hij wanneer mn naam punten bevat deze niet als extentie gaat zien?

 

[edmoor]

Zonder je document is daar maar weinig over te zeggen.

 

[eliebaele]

bestand

Beste
in bijlage een voorbeeld

 

[edmoor]

In dat document komt er dit uit:

F:\VDV gedeelde map\postQT-10\ .xlsm

Wat klopt omdat B1 en B2 leeg zijn.

Sub save()
Naam = Range("B2") & " " & Range("B1")
Folder = Range("G2")
bst = "F:\VDV gedeelde map\post" & Folder & "\" & Naam & ".xlsm"
MsgBox bst
End Sub

 

[VenA]

Code tussen codetags plaatsen zou al een goed begin zijn. Punten in een bestandsnaam vind ik niet zo'n goed idee al mag het wel. De rest van de code kan ook een stuk eenvoudiger. Bij het opslaan van betstanden kan je het beste ook even het filetype meegeven. Saveas naam, 52

 

[eliebaele]

ingevuld bestandje

Hallo
ik voeg even een ingevuld blad bij.
ivm de puntjes, ik heb het ook liever niet en begrijp waarom maar we houden altijd exact de . - * / aan die in onze artikelnummers van de klant gegeven worden om makkelijk alles weer te vinden.

Ivm het megeven vd saveas,52 lijkt me een goede oplossing alleen snap ik niet goed waar ik die moet zetten.
is mn vraag ondertussen duidelijk? want ik begrijp met het niet ingevulde bestand dat dit idd niet makkelijk was te begrijpen

 

[edmoor]

Welke macro in je document is dat en hoe start je die?

 

[eliebaele]

hallo

De opslaan knop
bedankt alvast

 

[edmoor]

Die Opslaan knop gebruikt deze macro:

Private Sub CommandButton1_Click()

If Range("E2") < 1 Then
    MsgBox "AANTAL OPSTELLINGEN INVULLEN"
    Else
        If Range("B1") = ("") Then
        MsgBox "PLANNR INVULLEN"
            Else
                If Range("B2") = ("") Then
                MsgBox "KLANT INVULLEN"
                            Else
                            If Range("G2") = ("") Then
                            MsgBox "MACHINE INVULLEN"
                                Else
                                If Range("G1") = ("") Then
                                MsgBox "PROGRAMMANUMMER INVULLEN"
           
Else
    Naam = Range("B2") & " " & Range("B1")
    Folder = Range("G2")
    Opstelling = Range("E2")
    ActiveWorkbook.SaveAs "F:\VDV gedeelde map\post\" & Folder & "\" & Naam & "--" & Opstelling
End If
End If
End If
End If
End If
End Sub

Daar staat helemaal geen extensie bij.

 

[eliebaele]

hallo

Nee dat klopt en zolang je in artikelnr niets met "." puntjes gebruikt slaatie correct als xlsm op. het is maar als daar puntjes in voor komen dat het mis gaat

 

[edmoor]

Maar dat is dus een totaal andere macro dan waar je vraag over gaat.
Geef gewoon de extensie .xlsm mee.

Private Sub CommandButton1_Click()
    If Range("B1") = "" Then MsgBox "PLANNR INVULLEN": Exit Sub
    If Range("B2") = "" Then MsgBox "KLANT INVULLEN": Exit Sub
    If Range("E2") < 1 Then MsgBox "AANTAL OPSTELLINGEN INVULLEN": Exit Sub
    If Range("G1") = "" Then MsgBox "PROGRAMMANUMMER INVULLEN": Exit Sub
    If Range("G2") = "" Then MsgBox "MACHINE INVULLEN": Exit Sub
    
    Naam = Range("B2") & " " & Range("B1")
    Folder = Range("G2")
    Opstelling = Range("E2")
    ActiveWorkbook.SaveAs "F:\VDV gedeelde map\post\" & Folder & "\" & Naam & "--" & Opstelling & ".xlsm"
End Sub

Puntjes in de gegevens maken niks uit, dat kan gewoon.
Daarnaast is er nergens een artikelnr te vinden.

 

[VenA]

Door gebruik te maken van VBA wordt het leven wel een stukje gemakkelijker en de code overzichtelijker.

 

[eliebaele]

Dankjewel

Ok werkt perfect! idd de code waarnaar ik verwees was nog een restant van mn getets in t begin
heb deze nu werwijderd en je code aan de knop gehangen werkt perfect hartelijk dank!

 

[huijb]

Vragen samengevoegd