Automatische invoer van celinhoud uit formulier (tabblad 1) in database (tabblad 2)

Status
Niet open voor verdere reacties.
I

ingding

Gebruiker
Lid geworden
30 mrt 2018
Berichten
19
Hallo allemaal,

Ik ben op zoek naar een macro die volgende situatie oplost:
Heb via Excel een formulier gemaakt dat (voor een deel) manueel ingevuld zal worden. Onderaan staan momenteel 2 macro’s: ‘PDF maken & printen’ en ‘nieuwe invoer’. De macro ‘nieuwe invoer’ maakt het formulier terug leeg. In de Excel heb ik eveneens een tabblad met een database waarin gegevens uit 1 cel van het formulier in de database moeten komen.

Heb in bijlage een simplistisch document gemaakt zodat het wat duidelijker wordt. Bij het induwen van knop ‘invoeren in database’ zou de keuringsdatum (cel D3) ingevoerd moeten worden in de database (tabblad 2) in de correcte kolom (kolom C) en in de correcte rij op basis van het in het formulier vermelde typenummer (cel B9).

Alvast super veel dank voor de hulp!!
Inge

Bekijk bijlage voorbeeld excel.xlsx
 
deze onder de knop:
Code: 
Sub test()
With Sheets("Formulier")
    Sheets("Database").Range("A:A").Find(.Cells(9, 2)).Offset(, 2) = .Cells(3, 4)
End With
End Sub
 
Hey VenA, is ook maar een simplistisch voorbeeldje om het te verduidelijken. Het hele document zou te veel info zijn.
 
zolang de waarde gevonden wordt wel. Als de waarde niet bestaat in kolom A van de database zal er een foutmelding komen.
 
Ook in een simplistisch voorbeeld kan je een macro zetten. Geeft vaak ook nog gratis verbeteringen in de macro('s)

Aangezien je geen gegevensvalidatie gebruikt is het controleren op een wel/niet bestaande code een nuttige opmerking van @SjonR

Iets veiliger
Code: 
Sub VenA()
  Dim f As Range
  Set f = Sheets("Database").Columns(1).SpecialCells(2).Find([B9], , , xlWhole)
  If f Is Nothing Then MsgBox "niet gevonden" Else f.Offset(, 2) = [D3]
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan