Wegschrijven van waarden

Status
Niet open voor verdere reacties.
D

Dirkie2025

Nieuwe gebruiker
Lid geworden
22 jan 2021
Berichten
2
Hallo

ik had graag wat hulp gehad met het volgende

HelpMij.jpg

om via een invulformulier de records weg te schrijven naar een rij dat lukt mij, maar mijn probleem is dat bepaalde velden 3x onder elkaar moeten weggeschreven worden


ingave:
Admin Hoofdorder=D1
Admin Suborder =O2
Post 1 =D9
Post 2 =D10
Post 3 =D11

resultaat:
Hoofdorder Order Post Hoeveelheid Eenheid
D1 O2 Post 1 D9 U
D1 O2 Post 2 D10 U
D1 O2 Post 3 D11 €


ik dacht ik herhaal deze code 3 keer en dan komt het goed maar niet dus :-(

Database.Range("A" & laatste_rij).Value = ingave.Range("D1").Value
Database.Range("B" & laatste_rij).Value = ingave.Range("O2").Value
Database.Range("C" & laatste_rij).Value = ingave.Range("D9").Value

Database.Range("A" & laatste_rij).Value = ingave.Range("D1").Value
Database.Range("B" & laatste_rij).Value = ingave.Range("O2").Value
Database.Range("C" & laatste_rij).Value = ingave.Range("D10").Value

Database.Range("A" & laatste_rij).Value = ingave.Range("D1").Value
Database.Range("B" & laatste_rij).Value = ingave.Range("O2").Value
Database.Range("C" & laatste_rij).Value = ingave.Range("D11").Value

alvast dank voor de hulp
 
Je kunt dit even testen

Code: 
  With Database.Range("A" & laatste_rij)
     .Resize(, 3) = Array(ingave.Range("D1").Value, ingave.Range("O2").Value, ingave.Range("D9").Value)
     .Offset(1).Resize(, 3) = Array(ingave.Range("D1").Value, ingave.Range("O2").Value, ingave.Range("D10").Value)
     .Offset(2).Resize(, 3) = Array(ingave.Range("D1").Value, ingave.Range("O2").Value, ingave.Range("D11").Value)
  End With
 
Laatst bewerkt:
Dag JV,

dit werkt perfect, thx!!, zal eens opzoeken wat je nu juist doet met de code zodat ik de oplossing ook begrijp

hartelijk dank!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan