VBA vraag, verslag opslaan op ander tabblad en verslag 2x uitprinten en leegmaken.

[bas.geboers]

Goedenavond,
Ik heb het volgende probleem; ben voor mijn werk een functioneringsverslag aan het maken. Dit verslag wordt tweemaal uitgeprint, voor collega en dossier. Daarnaast willen wij de gegevens opslaan op een ander tabblad, gesorteerd in kolommen om hieruit management sturingsmiddelen te herkennen.
Zie bijlage. Bekijk bijlage Functioneringsgesprek.xls
Wie wil mij op weg helpen met dit probleem.
In cel E114 staat reeds de opdrachtknop om het uit te laten voeren.
Ik loop aan dat ik de gegevens van tabblad invulformulier niet gekopieerd krijg naar tabblad DB-opslag en bij de volgende invulling de volgende collega hier automatisch onderkomt. Tweemaal laten printen en de de cellen leegmaken op het eind lukt mij wel. Opgelet beide tabbladen zijn beveiligd met wachtwoord, is vermeld op tabblad invulformulier.
Zie de reactie tegemoet en alvast bedankt voor de moeite.
Groet,
Bas

 

[HSV]

bv.
Zelf even aanvullen of cellen 'sq' veranderen

Sub HSV()
Dim sq As String
  With Sheets("Invulformulier")
    sq = .[O14] & "|" & .[E14] & "|" & .[E15] & "|" & .[E16] & "|" & .[E17] & "|" & .[E18] & "|" & .[E21] _
& "|" & .[K28] & "|" & .[M28] & "|" & .[O28] & "|" & .[K29] & "|" & .[M29] & "|" & .[O29] & "|" & .[K30] _
& "|" & .[M30] & "|" & .[O30] & "|" & .[K31] & "|" & .[M31] & "|" & .[O31] & "|" & .[K35] & "|" & .[M35] _
& "|" & .[O35] & "|" & .[K36] & "|" & .[M36] & "|" & .[O36] & "|" & .[K37] & "|" & .[M37] & "|" & .[O37] _
& "|" & .[K38] & "|" & .[M38] & "|" & .[O38] & "|" & .[K39] & "|" & .[M39] & "|" & .[O39] & "|" & .[K40] _
& "|" & .[M40] & "|" & .[O40] 'enz, enz
   End With
  Sheets("DB-opslag").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 37) = _
Split(sq, "|") 'resize ophogen naar aantal van sq
End Sub

 

[bas.geboers]

Beste Harry,
Bedankt voor de opzet van de lijstvolgorde.
Ik heb hem inmiddels aangevuld en het werkt prima.
Toevoegen van printen is inmiddels ook gelukt.
Groet,
Bas