gegevens database excel

[jan excel]

Hallo VBA experts,

Bijlage Excel voorbeeld bestand is een klein onderdeel van een project.

Via een commandobutton kom je in een userform waarin een object nummer dient te worden geselecteerd.
Als een Object nummer is geselecteerd verschijnt de gegevens die daarbij horen in textboxen in de userform.

Nu wil ik als er wijzigingen worden aangebracht in de textbox(en), dat dan desbetreffende rij dat correspondeert met het object nummer wordt overschreven door op de button wijzigen te klikken.
Tevens wil ik graag de mogelijkheid om de gegevens van een geselecteerde object nr te verwijderen, door
de gehele rij van desbetreffende object te verwijderen door op button verwijderen te klikken.


De VBA code voor selectie object in combobox1 werkt naar behoren, echter ik zou graag zowel het object nummer en de gegevens die daarbij hoort (kolom B) willen zien in combobox1.
Met wel de mogelijkheid om wijzigingen te kunnen aanbrengen bij omschrijving textbox1.



Hopelijk is mijn vraag duidelijk genoeg geformuleerd om mij van dienst te kunnen zijn.
Denk met voorbeeld bestandje dat het wel zich zelf wijst.


alvast bedankt,
Jan E.

 

[HSV]

Helaas ben ik een beetje klaar met Jan.
Twee keer een oplossing geboden.
Twee keer geen respons.

 

[Warme bakkertje]

Jan,
Het getuigt van respect naar de helpers toe dat je, ongeacht het resultaat van hun reactie, een laatste respons plaatst.
Wat je betreft je huidige vraag, in de UF-module

Private Sub UserForm_Initialize()
    On Error Resume Next
     With Sheets("data")
        ComboBox1.RowSource = .Name & "!" & .Cells(2, 1).CurrentRegion.Address
    End With
End Sub

 Private Sub ComboBox1_Change()
    Dim r As Integer
    r = ComboBox1.ListIndex + 1
    With Sheets("data")
        TextBox1 = .Cells(r, 2)
        TextBox2 = .Cells(r, 3)
        TextBox3 = .Cells(r, 4)
        TextBox4 = .Cells(r, 5)
    End With
End Sub

Private Sub CommandButton2_Click()
    Sheets("Data").Cells(ComboBox1.ListIndex + 1, 2).Resize(, 4) = Array(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub

Private Sub CommandButton4_Click()
   Sheets("data").Cells(ComboBox1.ListIndex + 1, 1).EntireRow.Delete xlUp
End Sub

 

[jan excel]

Beste Harry en Rudi,

Ten eerste Harry, hierbij mijn excuus dat ik op eerdere vragen geen respons heb gegeven.
Ben iedereen zeer dankbaar op dit forum voor de bereidheid elkaar te helpen.
Het is ook niet bewust dat ik niet reageer op vragen, blijkbaar door de drukke werkzaamheden vergeten.
Nogmaals mijn excuus, het zal niet weer voorkomen.
Harry ik hoop dat je dit aanvaard en bereid ben om mij weer voort te helpen.
Zal in ieder geval de vragen die ik niet heb beantwoord op status opgelost zetten.


Rudi bedankt voor jou code, betreft het overschrijven gaat het goed, een vraag is nog niet beantwoord en dat is het verwijderen van een object met commandoButton4.
Bijlage met de code van Rudi erin toegevoegd.


Alvast bedankt,
Jan E

 

[Warme bakkertje]

Kijk eens goed onderaan mijn antwoord in de vorige Post.
Code wel volledig overnemen.

 

[jan excel]

Hoi Rudy,

Bedankt, stom van mij had de schuifbalk niet opgemerkt.
Wacht nog even op status opgelost te zetten ivm mogelijke reactie Harry.

groet,
Jan E.

 

[HSV]

Prima Jan,

Ik zag natuurlijk dat je op bijna al je vragen wel een reactie achter liet, alleen die van mij net niet.
Het kon niet zo zijn dat ik geen goede oplossingen gaf, anders had je wel gereageerd nam ik aan.
Vandaar even mijn gefrusteerde reactie.

We gaan gewoon verder.