• 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.

Excel Macro invoeren

Status
Niet open voor verdere reacties.
N

needahelphand

Nieuwe gebruiker
Lid geworden
15 aug 2018
Berichten
2
Hallo,

graag wil ik vragen hoe ik in dit bestand een macro kan maken waarbij tab 1 wordt overgeschreven naar tab 2 via een button met de tekst "opslaan en wissen".
kan iemand mij helpen met een macro hiervoor?
en misschien tips en tricks waarna ik het zelf ook kan wijzigen etc?

alvast bedankt!
 

Bijlagen

  • Klachtenregistratie helpmij.xlsm
    15,6 KB · Weergaven: 32
Volledig eens met het advies van snb, maar toch een stukje code:

Code: 
Sub SjonR()
Lr = Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets("Blad1")
    Sheets("Blad2").Cells(Lr, 1).Resize(, 15).Value = Array(.Cells(6, 2), .Cells(9, 2), .Cells(13, 1), .Cells(15, 2), .Cells(16, 2), .Cells(17, 2), .Cells(18, 2), .Cells(15, 6), _
    .Cells(6, 7), .Cells(7, 2), .Cells(10, 2), .Cells(11, 2), .Cells(9, 7), .Cells(10, 7), .Cells(11, 7))
End With
End Sub
 
Dat het aantal 'kolommen' per regel verschillend is of het aantal rijen per kolom.

Dan weet VBA niet meer wat columns(12) of rows(23) is.
 
Mijn bijdrage,ik kon het niet laten:eek:
 

Bijlagen

  • Klachtenregistratie.xlsm
    34,3 KB · Weergaven: 38
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan