• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

macro om te kopieren en te transponeren naar de eerstvolgende lege regel ander blad

Status
Niet open voor verdere reacties.
C

carlocarlo

Gebruiker
Lid geworden
14 apr 2009
Berichten
122
Wie kan mij helpen aan een macro achter de knop 'gegevens opslaan'waarmee ik:
- de gegevens van range c3 t/m c6 en range c8 t/m c18, in het tabblad 'invoer', kan kopiëren
- en transponeren naar de eerstvolgende regel in het tabblad 'db'
- waarna vervolgens range c8 t/m c18, in het tabblad 'invoer', wordt geleegd en opgeslagen

Het Excel bestand heb ik toegevoegd.
 

Bijlagen

  • kwaliteitsscore.xlsm
    13,1 KB · Weergaven: 35
Zet bijvoorbeeld alle cellen in een array
Code: 
Sub opslaan()
  With Sheets("invoer")
    arr = Array(.[c3].Text, .[c4], .[c5], .[c6], .[c8].Text, .[c9].Text, .[c10].Text, .[c11].Text, _
        .[c12].Text, .[c13].Text, .[c14].Text, .[c15].Text, .[c16].Text, .[c17].Text, .[c18].Text)
    Sheets("DB").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 15) = arr
   .Range("C3:C6,C8:C18").ClearContents
 End With
End Sub
Na End With kun je je document opslaan
Code: 
ActiveWorkbook.Save
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan