Opslaan van gegevens voor Dummy's

[DZP]

Hoi mensen,

(Zie bestandje)
Ik hoop dat ik de vraag een beetje duidelijk heb kunnen omschrijven.
Het gaat om de data weg te schrijven naar een vaste kolom in een variabele rij.
Graag ook een beetje uitleg (indien nodig) zodat ik weet waar ik mee bezig ben !!

Gr. Henk:thumb:

 

[Cobbe]

Graag een beetje meer uitleg zodat WIJ weten waar JIJ mee bezig bent.

 

[DZP]

Hoi Cobbe,

Waar ik mee bezig ben is voor mij simpel --> proberen in een bestand met een hoop data dingen op te zoeken
(met een userform want dat moet door anderen gebeuren die de het bestand niet verder mogen wijzigen)
daarna aan te passen en dan weer in dat bestand proberen weg te schrijven
(Ook weer dmv een userform vanwege voorgaande)
Dit alls is te zien in het bestandje (bijlage) en dan op de blauwe knop drukken om het Userform te activeren.

Dat is wat ik graag zou willen en om dat uit te leggen is simpel maar om het uit te voeren is weer heel wat anders

Dus wat ik eigenlijk zoek is een ComboBox die een Regel zoekt => zit denk ik al in het bestandje
Maar dan zou ik graag de andere gegevens uit het userform opslaan op die regel maar dan in de naast liggende kolommen.

Ik hoop dat dit het een beetje duidelijker maakt.

Gr. Henk.

P.s.: Bestand van ruim 700 regels gaat over div. datums, een hoop mensen, div. apparatuur, ugd's enz.

 

[DZP]

Ik ben weer een stukje verder
In onderstaande code worden de gegevens op de eerst volgende lege regel gegplaatst.
Maar ik zou graag willen zien dat het in de regel komt met de waarde uit ComboBox 1 uit het UserForm. (dus variabel)

Private Sub CommandButton1_Click()
    With Sheets("Blad2")
        rij = .Range("K" & Rows.Count).End(xlUp).Row + 1 '<= @@@ Hier zet ié ut neer,(eerstvolgende lege regel)
        .Cells(rij, "K") = ComboBox1.Value
        .Cells(rij, "M") = TextBox1.Value
        .Cells(rij, "I") = ComboBox2.Value
        .Cells(rij, "O") = TextBox3.Value
    End With
    With Sheets("Blad3")
        .Range("G12") = TextBox1.Value
        Unload Me
    End With
        Sheets("Blad1").Select
        UserForm1.Show
End Sub

Ik hoop dat het voor jullie zo ook een stukje duidelijker is.
(Aangepast bestandje is ook bijgevoegd).

 

[DZP]

Het is inmiddels na veel vieren en vijfen gelukt en hier was het allemaal om te doen.

Private Sub Wijzigen_Click()
    Dim oRng As Range
    Set oRng = ThisWorkbook.Sheets("Blad2").Cells.Find(What:=ComboBox1.Value, lookat:=xlWhole)
        oRng.Offset(0, 0).Value = ComboBox1.Value
        oRng.Offset(0, 2).Value = TextBox1.Value
        oRng.Offset(0, -2).Value = ComboBox2.Value
        oRng.Offset(0, 4).Value = TextBox3.Value
    With Sheets("Blad3")
        .Range("G12") = TextBox1.Value
        Unload Me
    End With
        Sheets("Blad1").Select
        UserForm1.Hide
End Sub

Hier kan ik weer FF verder mee.
Bestandje zit erbij en vraag staat op Groen.

P.s.: Dat van die Dummy's was voor mezelf bedoeld !!:d