Cellen op verschillende bladen invullen

[svekkes]

Dag iedereen,

Ik gebruik al langer deze forum's om oplossingen te zoeken en uit te proberen, maar ik heb nu een probleem waar ik blijkbaar geen oplossing voor vind.

Het is de bedoeling dat dmv enkele invulformulieren de gegevens worden weggeschreven in hun corresponderende werkbladen.
Het gaat als volgt:
Op het 1ste invulformulier worden de gegevens zoals datum, naam, adres, etc. ingevuld. Als ik dan onderaan op de cmdbutton druk, worden deze gegevens al in het juiste werkblad op de juiste plaats ingevuld. Met deze code heb ik geen probleem. Maar de datum en de naam worden ook ingevuld op een 2de werkblad. Deze gegevens worden in de A en B kolom ingevuld. Ook dit lukt mij. En het openen van het 2de formulier is ook geen probleem.

Het probleem is het volgende:
In het tweede formulier worden de productgegevens, hoeveelheid en prijs ingevuld. Dit allemaal in afzonderlijke textboxen. In het totaal kan men hier zo 4 producten invullen.
Ik zou graag hebben dat deze gegevens op volgende manier worden weggeschreven in het juiste werkblad:
Kolom A: datum en kolom B: naam (zijn afkomstig van het 1e formulier)
Kolom C: product, kolom D: hoeveelheid en kolom E: prijs.
Het volgende product zou dan op de volgende rij in dezelfde kolomen moeten komen.
Is dit mogelijk?

Hopelijk ben ik duidelijk geweest in mijn vraagstelling en hebben jullie een goede oplossing hiervoor.
Alvast bedankt.

 

[Gert Bouwmeeste]

Voorbeeldbestand?

 

[svekkes]

Hopelijk is het gelukt en een beetje duidelijk.

 

[Gert Bouwmeeste]

M.i. de invoer van Producten beperken tot 1 product per invoer, dus niet 4 tegelijk.
Daarna wegschrijven naar het juiste tabblad naar de lege rij onder laatste gevulde rij.

De laatste gevulde rij kun je vinden met

Range("A" & Rows.Count).End(xlUp).Row   en dan +1 of zoiets

 

[svekkes]

Ok bedankt,
ik zal het eens gaan uitproberen. Nog 1 vraagje, waar moet ik juist die +1 of zoiets invullen in de code?

 

[Gert Bouwmeeste]

Ergens achter dat Row..... Moet je even mee experimenteren en kijken wat de macro doet.
Je moet in ieder geval op de eerste lege regel na de gevulde regels uitkomen. Misschien eerst naar de laatste regel gaan met het commando wat ik gaf en daarna nog standaard 1 naar beneden met een ander commando.

 

[svekkes]

Dag Gert,
ik ben er nu al even mee aan het experimenteren, maar ik krijg nog steeds een foutmelding.
het betreft hier een compileerfout: ongeldig gebruik van een eigenschap.
Hoe moet ik dit nu oplossen?

 

[bandito bob]

Ik denk dat het moet met

Target.Offset(1,0)

Hiermee zak je 1 rij (geloof ik).

 

[svekkes]

Dag Paul,

Ik heb geprobeerd je code er in te zetten, maar nu krijg ik een complimeerfoutmelding. En iets ivm een syntaxisfout.
Ik vermoed dat ik het stukje code verkeerd heb staan. Waar moet ik deze dan juist zetten?
Hier is het stukje code waar dit zou tussen moeten komen:

Private Sub cmdVolgende_Click()
Dim rowNr As Integer
Dim foundRecord As Boolean

rowNr = 0
foundRecord = False

'Op welke rij komt het volgende record
ActiveWorkbook.Worksheets("Producten").Cells(2, 1).Select
While ActiveCell.Value <> "" And foundRecord = False
If ActiveCell.Value = txtDatum.Value And ActiveCell.Offset(0, 1).Value = txtNaam Then
foundRecord = True
rowNr = ActiveCell.Row
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
rowNr = ActiveCell.Row

ActiveWorkbook.Worksheets("Producten").Cells(rowNr, 1).Value = txtDatum.Text
ActiveWorkbook.Worksheets("Producten").Cells(rowNr, 2).Value = txtNaam.Text
ActiveWorkbook.Worksheets("Producten").Cells(rowNr, 3).Value = txtProduct1.Text
ActiveWorkbook.Worksheets("Producten").Cells(rowNr, 4).Value = txtVerpak1.Text
ActiveWorkbook.Worksheets("Producten").Cells(rowNr, 5).Value = txtPrijs1.Text

frmProd.txtProduct1 = ""
frmProd.txtVerpak1 = ""
frmProd.txtPrijs1 = ""

ActiveWorkbook.Save
End Sub

 

[svekkes]

Aan allen,

Bedankt voor jullie hulp voor deze vraag. Ik heb door middel van veel experimenteren met alles een oplossing voor mijn probleem gevonden.

Bedankt