Hallo,
Met onderstaande code schrijf ik gegevens weg in een database (gewoon excel werkblad)
Worksheets("DBS.OfferteNAW").Activate
Range("A1").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
With ActiveCell
.Value = OfferteNummer
.Offset(0, 1).Value = strKlant
.Offset(0, 2).Value = strContactPersoon
.Offset(0, 3).Value = strAdres
.Offset(0, 4).Value = strPlaats
.Offset(0, 5).Value = BtwNummer
Nu worden de gegevens dus op de eerstvolgende rij geplaatst.
Maar hoe kan ik nu met code een bepaald nummer oplaten zoeken(offertenummer) en daar dan nieuwe gevens heen worden geschreven. En de bestaande gegevens worden dus overschreven.
Groeten Jannie