Huidige rij van Excel kopieeren naar formulier

Status
Niet open voor verdere reacties.

rruiter

Nieuwe gebruiker
Lid geworden
13 mei 2013
Berichten
1
Ik ben een beginnnend VB gebruiker. Wellicht is mijn probleem simpel op te lossen, maar ik kom even niet verder......

De situatie:
Ik heb al een invulformulier gemaakt welke data wegschrijft in een Excel worksheet. Dat werkt helemaal goed.
Alles komt netjes in de juiste kolommen.

Nu wil ik ook de mogelijkheid hebben om de ingevulde data aan te passen.
Ik wil dus de actuele rij kopieeren (dus de rij waarin de cursor staat) en tonen in een formulier. Na het aanpassen moeten de gegevens weer weggeschreven worden.
Helaas krijg ik het niet voor elkaar om de gegevens van de actuele rij in een formulier in te laden. Hoe krijg ik de geupdate gegevens weer in de juiste rij in het worksheet?

Alvast bedankt voor jullie suggesties.
 
Welkom op Helpmij.

Visual Basic for Applications is iets anders dan Visual Basic, om die reden verplaatst :)
 
Lijkt mij dat je alles moet kunnen selecteren uit een lijst via een ComboBox.
Kijk een op de site van snb voor mogelijkheden om een ComboBox te vullen: http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

Vervolgens laat je de waarde in de ComboBox zoeken door bijvoorbeeld
Code:
Private Sub ComboBox1_Change()
    With ThisWorkbook.Sheets(1)
        rij = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1).Row
        Me.TextBox1.Value = .Cells(rij, 2)
    End With
End Sub
en anders krijg je een Userform_Initialize (op jouw manier) en dat ziet er zo uit ongeveer uit...
Code:
Private Sub UserForm_Initialize()
    With ActiveSheet
        rij = ActiveCell.Row
        Me.TextBox1.Value = .Cells(rij, 2)
    End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan