Hallo helpers en oplossers,

In mijn stukje code:

If Me.TxtP.Value = "X" Then
    ws.Cells(iRow, 1).EntireRow.Copy
    Y = Sheets("Pin").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    Sheets("Pin").Range("A" & Y + 1).PasteSpecial Paste:=xlPasteAll
End If

kopieert deze geheel naar wens een rij wanneer deze aan de voorwaarde voldoet. Wat niet helemaal mijn bedoeling is, is dat hij de formules mee kopieert terwijl mijin wens is dat de waardes van die rij worden overgenomen. Ik denk dat er iets anders moet staan achter "Paste:=" doe ik echter "xlPasteValues" dan krijg ik meest de "0" en de datum wordt naar het interne excel format omgezet.

Wie kan mij het licht laten zien
Op tabblad Pin, kun je zien wat ik bedoel

Hallo Pitufo,

Dank voor je reactie.

Het werkt niet helemaal, alle cellen die formules bevatten worden nu niet met een zichtbare nul gekopieerd, maar is wel 0 en wordt weergegeven als een "€ -" datum doet hij met deze code wel goed... hij kopieert nu dus schijnbaar wel de opmaak, ook de hyperlink in kolom A wordt nu netjes mee genomen.

Johan

Edit: wanneer ik kopieer met opname van een macro dan geeft hij Paste:=xlPasteValuesAndNumberFormats aan, echter wanneer ik die regel in mijn script stop dan blijft er weer niets van over...

Nog een poging?

If Me.TxtP.Value = "X" Then
    ws.Cells(iRow, 1).EntireRow.Copy
    Y = Sheets("Pin").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    Sheets("Pin").Range("A" & Y + 1).PasteSpecial Paste:=xlPasteValues
    Sheets("Pin").Range("A" & Y + 1).PasteSpecial Paste:=xlPasteFormats
End If


Nu zal ik je toch moeten tegenspreken, Johan.
Het is namelijk mijn absolute overtuiging dat zowel mijn oplossing als die van RedHead hetzelfde doen, met name waarden én opmaak kopiëren, maar in geen geval formules.
Overweeg anders misschien toch eens mijn verzoek uit reactie 3.

Johan, zou je 'ns een screendump van een ingevuld formulier willen plaatsen? Ik heb namelijk géén idee wat je daar allemaal moet invoeren.
Daarnaast lijkt het of ik 2 textboxen mis op je formulier. In elk geval die van de datum (Me.TxtDatum). Wat voor veld moet dat zijn? Of waar geef je de datum op?

Overigens is het plaatsen van een "X" op een formulier niet de juiste wijze. Althans, ik gok dat het óf een X is of leeg. In dat geval heb je een boolean veld te pakken. Maak dan gebruik van een checkbox (werkt ook veel sneller dan een X in moeten typen). Of als je slechts 1 optie van diverse opties mag kiezen, maak er dan radiobuttons van.

Overigens is het plaatsen van een "X" op een formulier niet de juiste wijze. Althans, ik gok dat het óf een X is of leeg. In dat geval heb je een boolean veld te pakken. Maak dan gebruik van een checkbox (werkt ook veel sneller dan een X in moeten typen). Of als je slechts 1 optie van diverse opties mag kiezen, maak er dan radiobuttons van.

Daar heb je een punt en heb daar in het origineel al wel aan gedacht maar nog niet omgebouwd.

Qua datum (me.txtdatum en me.txtboekdtm) dat zijn de 2 DTPicker's die je met een datum ziet staan

vreemd is wel dat hij niet de regel neemt die ik net met het formulier heb ingevoerd, maar kijkt naar de regelnummer (rijnummer) er eentje terug gaat en die regel dan kopieert

Ha ha ha... Die was ook alleen maar een "stand-alone" voorbeeld. Het was de bedoeling dat je op een regel ging staan in je tabel en dat je dan de code zou laten lopen. De regel met de actieve cel zou dan worden overgezet.
Wat je dus moet doen om je proces af te ronden is 1) het wegschrijven van je gegevens in de sheet "2018" en daarna die kopieerslag te maken. Ik heb er een "-1" in staan omdat anders de foute regel van de tabel wordt gekozen.

Overigens kan ik je bijlage niet goed testen. Je Datepickers werken niet bij mij. Vandaar dat ik die velden in je formulier miste.