Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 13 van 13

Onderwerp: kopieren en plakken in n regel in VBA

  1. #1
    Senior Member
    Geregistreerd
    13 december 2010
    Vraag is niet opgelost

    kopieren en plakken in n regel in VBA

    Hoi, ik heb een stukje code opgenomen. Als ik een voorbeeldbestandje moet maken, dan hoor ik het wel.

    Ik wil dat in de eerste kolom wordt gezocht naar het woordje lege regel en dat daarna de gevonden regel wordt geknipt en dan geplakt in cel A2000. Ik wil het graag in n opdrachtregel doen. Het lukt tot en met het knippen, maar het plakken loopt niet. Wat doe ik verkeerd? Zie onderstaand de code

    m.vr.gr. Egbert

    'plaats de hulpregel op de juiste plek
    For A = 1 To 15000
    If Cells(A, 1) = "LEGE REGEL ===>>>" Then Rows(A).Cut: Cells(A, 2000).Paste:
    Next

  2. #2
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, Belgi
    Op het eerste zicht (niet getest) :
    Bij dat soort zaken moet je van onder naar boven lopen, dus for A=15000 to 1 step -1.
    Anders zaag je de tak af waar je op zit.

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    En de hele regel moet in kolom 2000 worden geplaatst?
    Laatst aangepast door edmoor : 14 september 2021 om 17:02
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privbericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  4. #4
    Senior Member
    Geregistreerd
    13 december 2010
    Wellicht had ik beter moeten uitleggen Edmoor. Ik wil de gevonden regel verplaatsen naar regel 2000. Ik heb zoeken met de For opdracht gekozen omdat de gezochte regel soms wordt verplaatst

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Geen touw aan vast te knopen.

    Als ik een voorbeeldbestandje moet maken, dan hoor ik het wel.
    Had je net zo goed gelijk kunnen doen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Mij is ook niet duidelijk wat je nu probeert te bereiken, maar wellicht dit?
    Code:
    If Cells(A, 1) = "LEGE REGEL ===>>>" Then Rows(A).EntireRow.Copy Range("A2001"): Rows(A).Delete
    Laatst aangepast door edmoor : 14 september 2021 om 18:58
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privbericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, Belgi
    en A=A-1, anders ga je de mist in, na het verwijderen van je rij.

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zonder loop:
    Code:
    Set c = Range("A1:A15000").Find("LEGE REGEL ===>>>", , , xlWhole)
    If Not c Is Nothing Then Rows(c.Row).EntireRow.Copy Range("A2001"): Rows(c.Row).Delete
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privbericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Ik denk niet dat er iemand zo oenig is om "LEGE REGEL ===>>>" in een cel te zetten. Maar je weet het niet.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    En die regel is dan niet meer leeg
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privbericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. #11
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    @edmoor.

    Je hebt de gehele rij al met Rows(c.row)
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  12. #12
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Die .EntireRow kan inderdaad achterwege worden gelaten.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privbericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  13. #13
    Senior Member lam201's avatar
    Geregistreerd
    23 augustus 2007
    heu..
    Als je een lege regel wilt kopieren naar regel 2000:

    PHP Code:
    1
    2
    
    range("A2000").Entirerow.Clear
    range("A2000") = "LEGE REGEL ===>>>"

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren