Data invoegen naast bestaande data

Status
Niet open voor verdere reacties.

drekkie

Nieuwe gebruiker
Lid geworden
27 jun 2012
Berichten
2
Hallo allen,

Ik heb mezelf pas onlangs enige VBA-vaardigheden aangeleerd, dus als ik iets overduidelijk verkeerd doe, stip het gerust aan :)

Mijn probleem is het volgende: voor mijn werk heb ik onlangs een excel spreadsheet met macro's geschreven. Via enkele gestandaardiseerde menuutjes kunnen ze zodoende op een uniforme manier data op de spreadsheet ingeven. Ik ben best tevreden van het hele document, buiten het tabblad waarin ze reeds ingevulde data dienen aan te vullen met verdere gegevens. Met andere woorden: nieuwe input dient op de rij te verschijnen waarin zich in de twee eerste cellen al gegevens bevinden.

Tot nog toe heb ik steeds de volgende code gebruikt om te definiëren in welke rij de data dient te verschijnen:

Private Sub cmdInsert_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Circulation Parameters")

iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

Het probleem bij de bovenstaande code is natuurlijk dat de data steeds verschijnt onder de laatst gebruikte cel (maw. onder de tabel). Nu zou ik graag weten welke code ik dien in te geven om ervoor te zorgen dat nieuwe data NAAST de reeds bestaande data verschijnt. In bijlage Knipsel.JPG heb ik een screenshot gestoken van hetgeen ik wil bereiken: de gele cel duidt aan waarin mijn eerstvolgende input dient te verschijnen.

Alvast bedankt!
 
Is het altijd in de eerstvolgende lege cel dat gegevens moeten aangevuld worden of kan het ook zijn dat er moet bijgevuld worden in bv kolom 4 of 5 oid ?
Met de functies Find en Row kan je in ieder geval al de positie van het te zoeken onderwerp bepalen.
Je kan ook een Userform bouwen, de te wijzigen gegevens opvragen, wijzigingen aanbrengen en terug wegschrijven naar je tabblad.
 
Bedankt voor de reacties. Ik kan er normaal gezien mee verder. Ik heb al enkele user forms gebouwd, maar het opvragen van data is een nieuwe uitdaging.
Ik ga alvast aan de slag met jullie materiaal!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan