Combobox

[Mark_68]

Hallo,

Ik zit met het volgende, ik heb een combobox met verschillende keuzes. Nu zou ik graag willen dat bij het maken van een keuze die naar het tabblad van die keuze word opgeslagen. Bijvoorbeeld als je in de combobox kiest voor aluminium dat hij alles opgeslagen word op het tabblad aluminium.

Hoop dat iemand mij hiermee kan helpen.

Mark

 

[edmoor]

Bedoel je dit?

 

[AHulpje]

En als je meer metalen toevoegt is dit misschien wel handig:

Private Sub UserForm_Activate()
    Me.txtDatum = Date
    For Each sh In Sheets
        If sh.Name <> "Database" Then cmbMateriaal.AddItem sh.Name
    Next
    Refresh_data
End Sub

 

[Mark_68]

Ik bedoel als ik kies voor aluminium dan moet het opgeslagen worden op het tabblad aluminium, kies ik voor magnesium dan op het tabblad magnesium enz.

 

[edmoor]

Dus je hebt wat ik plaatste al bekeken?
En het voorstel van AHulpje is een mooie aanvulling

 

[AHulpje]

Dat gebeurt dan ook met de versie van edmoor, niets mis mee.

 

[Mark_68]

Als ik het bestand van edmoor open en het formulier invul en opsla gebeurt er helemaal niets. Wat me wel opgevallen is, is dat er regels groen gemaakt zijn

 

[edmoor]

Ik zie dat het niet goed gaat als je je Start knop gebruikt.
Zal er nog even naar kijken.

 

[AHulpje]

Kijk eens naar de laatste regels van Sub cmdOpslaan_Click(). Het gaat goed voor alle metalen behalve aluminium...
En verder zou het ook een stukje korter kunnen:

    Sheets("Database").Range ("A2:E2").Copy
    Sheets("Aluminium").Range("A2").PasteSpecial xlPasteValues

In plaats van

    Dim rgSource As Range, rgDestination As Range

    Set rgSource = ThisWorkbook.Worksheets("Database").Range("A2:E2")
    Set rgDestination = ThisWorkbook.Worksheets("Aluminium").Range("A2")

    rgSource.Copy
    rgDestination.PasteSpecial xlPasteValues

Maar ik zou die regels maar helemaal weglaten.

 

[edmoor]

Ik zag het ook net.
Thanks

 

[Warme bakkertje]

Lijkt me meer zoiets.

With Sheets(cmbMateriaal.Text)
       lr = .Range("A" & .Rows.Count).End(xlUp).Row
       .Cells(lr + 1, 1).Resize(, 5).Value = Array(cmbMateriaal.Value, _
                    txtBatch.Value, txtGewicht.Value, txtAantal.Value, txtDatum.Value)
End With

 

[jkpieterse]

Even de luis in de pels spelen. Voor analyses is het in Excel helemaal niet handig om soortgelijke gegevens in verschillende tabs te plaatsen. Waarom niet 1 tab met de tabel "Metalen" en er een kolom aan toegevoegd "soort metaal"?

 

[snb]

Ik voeg graag een tweede luis toe.

 

[Mark_68]

Beste allemaal bedankt voor het meedenken. Ik heb gekozen voor een andere opzet. Maar nogmaals bedankt voor de info.