• 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.

Waardes uit TextBox-ComboBoxComboBox samenvoegen in cel

Status
Niet open voor verdere reacties.
hoogteijling

hoogteijling

Terugkerende gebruiker
Lid geworden
12 aug 2005
Berichten
4.261
Hallo allemaal,

In bijgevoegde Excelsheet zou ik willen dat de waardes uit:
TextBox2, ComboBox11 en ComboBox12 samengevoegd worden in kolom C.
In de volgende notatie: Projectnummer-CodeRevisie. (bijv: 12345-3A)
Ik heb al iets geprobeerd door de waardes naar de kolommen Q, R en S over te zetten
en vervolgens in kolom C de formule tekst.samenvoegen te gebruiken
maar het gaat niet helemaal naar mijn zin.
Daarom hoop ik dat iemand dit in VBA voor elkaar kan krijgen.

Groeten Marcel
Bekijk bijlage Projectenboek.zip
 
Laatst bewerkt:
Verwijder
Code: 
.Cells(rij, "Q") = TextBox2.Value                   '<= Projectnummer plaatsen
.Cells(rij, "R") = ComboBox11.Value                 '<= Code plaatsen
.Cells(rij, "S") = ComboBox12.Value                 '<= ABCD plaatsen
en plaats
Code: 
.Cells(rij, "C") = TextBox2.Value & "-" & ComboBox11.Value & ComboBox12.Value
 
Laatst bewerkt:
Geweldig, precies wat ik zocht, dank je wel.

Groeten Marcel
 
Marcel,
Je zit met een datumformat die niet Europees is (mm-dd-yyyy)
Je ingave van 5/4/2013 wordt weergegeven als 4/5/2013
Ik heb uw code aangepast aan de europese format(dd-mm-yyyy).

Bekijk bijlage 181108
 
Laatst bewerkt:
Je hebt helemaal gelijk Wieter.
Bedankt voor je oplettendheid. :thumb:

Weet je toevallig ook een manier om de waarde in de projectnummer textbox uit alleen cijfers te laten bestaan ?
Of nog beter, een 4-cijferig nummer als volgt 0.000 en een 5-cijferig nummer al 0.0.000
Of is dat iets wat ik beter in de cel-eigenschappen kan definiëren ?

Groeten Marcel

Meest nieuwe versie: Bekijk bijlage Projectenboek.zip
 
Laatst bewerkt:
Geweldig Wieter.

Voorheen had ik in de celeigenschappen [<=9999]0"."000;0"."0"."000 staan waardoor een 4-cijferig nummer als 0.000 werd weergegeven en een 5-cijferig als 0.0.000.
Dat zou ik weer willen maar moet ik dat in de celeigenschappen aanpassen (iets met de LINKS formule) of is dat iets wat ik beter in VBA kan definiëren.
Voor beide mogelijkheden weet ik niet hoe ?
Weet jij nog wat ?

Groeten Marcel
 
Zie bijlage.

Heb alleen een andere oplossing voor de cijferingave in projecten...
 

Bijlagen

  • Projectenboek.rar
    78,7 KB · Weergaven: 44
Dank Spaarie.
Ik heb je getalnotatie (1 of 2 puntjes overgenomen).

Groeten Marcel
 
Over notaties:

Code: 
Sub tst()
    MsgBox Format("12345", "@.@.@")
End Sub
 
Misschien zo?
Code: 
        If Len(TextBox2.Value) = 4 Then
        .Cells(rij, "C") = Format(TextBox2.Value, "@.@@@") & "-" & ComboBox11.Value & ComboBox12.Value
        Else
        .Cells(rij, "C") = Format(TextBox2.Value, "@.@.@@@") & "-" & ComboBox11.Value & ComboBox12.Value
        End If
 
Code: 
.Cells(rij, "C") = Format(TextBox2.Text, if(len(textbox2.Text)=4,"","@.") & "@.@-")  & ComboBox11.Value & ComboBox12.Value
 
Laatst bewerkt:
@SNB

Ik krijg een foutmelding
Compilerfout: verwacht expressie.
Dit zal vooral komen omdat ik niet precies weet waar ik de code moet plaatsen.
HELP !!!

Groeten Marcel
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan