Database automatisch bewerken

[Tia]

Hallo!

Ik hoop dat iemand mij hiermee kan helpen:

In de ruimtestaat wordt naar een norm gezocht (tab Database). Ik zou heel graag de database willen automatiseren (macro). Dus zodra er een nieuw regel in de ruimtestaat wordt toegevoegd met een nog niet bestaande combi code, deze automatisch wordt toegevoegd in de database en gesorteerd (uiteraard moet de norm handmatig worden toegevoegd.)

Kan iemand mij daarmee helpen, is het uberhaupt mogelijk?

Alvast hartelijk dank voor jullie reacties!

 

[Roncancio]

Het kan zeker.
De vraag is alleen wanneer je precies de gegevens wilt wegschrijven.
Wil je bijvoorbeeld dat de gegevens worden weggeschreven als de combicode wordt toegevoegd?
Of als alles op de betreffende regel is ingevuld?

Met vriendelijke groet,


Roncancio

 

[Tia]

Hoi Roncancio,

Bedankt voor je reactie. Het zou fijn zijn, als er elke keer dat er nog niet bestaande combicode wordt aangemaakt in de ruimtestaat, deze ook automatisch verschijnt in de database. De ruimtestaat kan soms 10.000 regels bevatten, en een de combicode wordt automatisch gemaakt zodra er gegevens worden ingevuld bij ruimtesoort, vloer en freq. Dan is het beste waarschijnlijk het beste om het te baseren op de combicode.

Ik hoop dat ik het een beetje duidelijk heb kunnen uitleggen.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = vbNullString Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Columns(6)) Is Nothing Then
        With Sheets("Database")
            If .Columns(1).Find(Target.Offset(, 1).Value, , xlValues, xlWhole) Is Nothing Then
                .Range("A" & Rows.Count).End(xlUp).Offset(1) = Target.Offset(, 1).Value
                .Range("A3:F" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .Range("A3"), xlAscending
            End If
        End With
    End If
End Sub

Bovenstaande gaat in werking van zodra je kolom6 (freq) op Ruimtestaat ingevuld hebt.
Er wordt controle uitgevoerd of code al bestaat in database en zonodig bijgeschreven en gesorteerd.
Er wordt echter nog geen controle in Ruimtestaat of ook Soort en vloer ingevuld zijn. Let dus op dat deze eerst ingevuld zijn.

 

[Tia]

Super bedankt, maar nu komt het ergste... Ik krijg deze mooie code niet aan't het werk in mijn bestand. Ben echt een barbaar, sorry. Kan je mij nogmaals helpen aub?

 

[ExcelAmateur]

De code van Warme bakkertje moet achter het betreffende blad geplaatst worden.

 

[Tia]

Ik schaam me kapot, ik krijg het gewoon niet aan't werk. Geen idee wat ik fout doe. (Ben echt geen VBA expert)

 

[Roncancio]

Bij deze de code van Warm Bakkertje in je bestand.

Met vriendelijke groet,


Roncancio

 

[Tia]

Super bedankt iedereen!!!!!!