• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Automatisch nieuwe data toevoegen aan database

Status
Niet open voor verdere reacties.

japio86

Gebruiker
Lid geworden
1 okt 2009
Berichten
61
Goedendag,

Ik ben bezig met het maken van een exceldatabase.

Nu wil ik hiernaast een invoerbestand maken waarmee nieuwe
data aan de database kan worden toegevoegd.
Even een voorbeeld voor de duidelijkheid:

De database is gevuld t/m rij 50.
Iemand vult het volledige invoerbestand in.
Deze nieuwe data word via het invoerbestand ingevoerd op rij 51.

Daarna wordt weer het invoerbestand ingevuld en nu komt deze
data terecht op rij 52.

Is dit mogelijk met standaard excel?

Gr, Jaap
 
Ja dat is mogelijk.
Voorbeelden genoeg te vinden in dit forum.

Succes, Cobbe
 
Ik heb al meerdere zoekpogingen gedaan, maar ik kom er nog niet achter.
Weet iemand misschien een goed voorbeeld of iets dergelijks?

Gr, Jaap
 
Bijvoorbeeld
Code:
 Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1)
Met vr gr


Jack
 
Plaats een voorbeeldje met je database, dan moeten wij het warm water niet meer uitvinden.

Joske
 
Bijdeze 2 voorbeeld bestanden

Ze zijn niet gekoppeld of iets dergelijks want ik weet ook niet hoe dit moet.

Ik hoop dat iemand hier iets mee kan.

Gr, Jaap
 

Bijlagen

Is dit wat je bedoelt?
(alle 2 bestanden openen)
Ik heb deze code toegepast in VBA
Code:
Sub Invoeren()
  Sheets("Invoer").Range("B2:B6").Copy
  Workbooks("Databasevb2").Sheets("Database").[B65536].End(xlUp).Offset(1).PasteSpecial , Transpose:=True
End Sub

Met vr gr


Jack
 

Bijlagen

Dit is helemaal goed zeg!!
Alleen zou ik graag zelf het bereik willen aanpassen (er komen nog een aantal dingen bij).
Hoe kan ik dit precies doen?

Gr, Jaap
 
Dit is helemaal goed zeg!!
Alleen zou ik graag zelf het bereik willen aanpassen (er komen nog een aantal dingen bij).
Hoe kan ik dit precies doen?

Gr, Jaap

Hallo Jaap

Het bereik kun je hier aanpassen
Code:
Sheets("Invoer").Range[COLOR="Blue"]("B2:B6").[/COLOR]Copy
En als je bij de kolom Invoer meerdere regels met informatie toevoegd worden deze automatisch in je blad Database achter elkaar gezet. Voor meerdere vragen weet je het forum te vinden.

Met vr gr


Jack
 
Ik heb het redelijk door denk ik.

Bedankt voor de hulp!

Gr, Jaap
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan