Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Excel Macro Kopieren van rij en plakken in volgende lege cel  (gelezen 8991 keer)

0 leden en 1 gast bekijken dit topic.

Offline sven78

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
Excel Macro Kopieren van rij en plakken in volgende lege cel
« Gepost op: 04 april 2020, 23:32:40 »
Goedendag,

Ik heb een probleem

Ik wil een macro knop maken, die automatisch mijn bovenliggende tekst kopieert
en deze automatisch plakt in de volgende LEGE rij

IK ben al heel de tijd aan het zoeken, en hoop dat hier iemand die wat meer kent van macro's mij kan helpen

Zie bijlagen voor voorbeeld van excel file

Met vriendelijke groeten,

Sven

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #1 Gepost op: 05 april 2020, 00:32:49 »
Hallo sven78,

Welkom op Oplossing.be  :)

in bijlage een voorbeeldbestandje met een (uitgebreide) macro en knop.
De macro heb ik niet ingekort, zodat je hem gemakkelijk kan lezen en aanpassen.
Als er vragen zijn dan horen we het wel :)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #2 Gepost op: 05 april 2020, 08:00:15 »
@Softaid, als je een excel bestand opslaat als XLSX verdwijnen de macro's, je heb een voorbeeldje gepost zonder macro's
Code:
Private Sub CommandButton1_Click()
    lrij = Cells(Rows.Count, "C").End(xlUp).Row
    Range("C3:N3").Copy
    Range("C" & lrij + 1).PasteSpecial Paste:=xlPasteValues
    Range("C3:N3").ClearContents
End Sub
Zie voorbeeldje

Offline sven78

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #3 Gepost op: 05 april 2020, 10:06:45 »
Het werkt,
Dank u wel voor de info's :)

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #4 Gepost op: 05 april 2020, 10:09:59 »
Dank voor de terugkoppeling. :thumbsup:

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #5 Gepost op: 05 april 2020, 10:36:09 »
@Softaid, als je een excel bestand opslaat als XLSX verdwijnen de macro's, je heb een voorbeeldje gepost zonder macro's
Alléé, weer iets bijgeleerd  ;)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #6 Gepost op: 05 april 2020, 10:49:42 »
@Softaid,we leren met zijn allen bij. :)
Wat was uw oplossing?

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Excel Macro Kopieren van rij en plakken in volgende lege cel
« Reactie #7 Gepost op: 05 april 2020, 11:16:57 »
Alléé, weer iets bijgeleerd  ;)
Dit was sarcastisch bedoeld ;)

Ik ben geen specialist, maar ZO dom ben ik nu ook weer niet  0:-). Was een vergissing omdat mij oogjes na middernacht bijna dichtvielen.

Mijn code was voor simpele mensen zoals ik:

Private Sub CommandButton1_Click()
Dim rij As Long
With Worksheets("Blad1")
    rij = .Cells(Cells.Rows.Count, 3).End(xlUp).Row + 1
          .Range("C3:N3").Copy
          .Range("C" & rij).Select
ActiveSheet.Paste
End With
End Sub
!! OLD SCHOOL !! Ik weet ook dat je veel kan vereenvoudigen, dat je niet moet Dimensioneren in een Private Sub enzovoort.
Maar dan moet je aan TS ook uitleggen waarom, en opmerkingen zetten bij de code 'iets waar wij als helpers eigenlijk een gewoonte van zouden moeten maken

Als TS maar geholpen is  8)

Groetjes,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com