Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: aanpassing

  1. #1
    Senior Member
    Geregistreerd
    4 november 2000
    Vraag is opgelost

    aanpassing

    ik heb deze hier ergens gevonden maar mijn vraag zo iemand die kunnen aan passen.
    het volgende zo ik graag opgelost willen zien .
    als men gegevens van blad1 opslaat gaan ze naar blad2 en het begint bij regel 1
    ik zou graag willen dat dit bij regel 20 begint en dan elke volgende regel naar beneden gaat .
    verder is de code naar mijn behoren goed

    wie wil mij hier mee verder helpen
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    En wat staat er dan in rij 2 t/m 19?
    Plaats aub een goed gelijkend voorbeeldbestand.
    Met vriendelijke groet,
    Albert

  3. #3
    Senior Member
    Geregistreerd
    4 november 2000
    niets
    deze code wil ik daarna in een ander scheet plaatsen en dit zijn ,
    meerdere sheets die erg op elkaar lijken van daar deze code .
    om een klein voorbeeld te geven er kan een logo staan en/of andere info van een blad

  4. #4
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Zo?
    Code:
    Private Sub CommandButton1_Click()
     Dim i As Long
     
     ar = Range("B2:H2")
     If Blad2.Range("A20") = "" Then
        Blad2.Range("A20").Resize(, 7) = ar
     Else
         i = Blad2.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
         Blad2.Range("A" & i).Resize(, 7) = ar
     End If
       
     Blad1.Range("B2:H2").ClearContents
      
    End Sub
    Vermoeden is dat je met een "scheet" een sheet bedoeld.
    Laatst aangepast door AD1957 : 1 augustus 2021 om 12:00
    Met vriendelijke groet,
    Albert

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Kan ook met 1 regel.

    Code:
    Private Sub CommandButton1_Click()
     Sheets("Archief").Cells(Application.Max(20, Sheets("Archief").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row, 1), 1).Resize(, 7) = Sheets("Mutatie").Cells(2, 2).Resize(, 7).Value
    End Sub
    Het is beter om de gegevens weg te schrijven in een echte tabel. Deze kan je overal op het werkblad neerzetten. De code wordt dan ook eenvoudiger.
    Code:
    Sub VenA()
      Sheets("Archief").ListObjects(1).ListRows.Add.Range.Resize(, 7) = Sheets("Mutatie").Cells(2, 2).Resize(, 7).Value
    End Sub
    Laatst aangepast door VenA : 1 augustus 2021 om 14:40
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    @VenA
    Met vriendelijke groet,
    Albert

  7. #7
    Senior Member
    Geregistreerd
    4 november 2000
    Bedankt allemaal ik ga hier morgen mee aan de slag zoals ik nu al zie gaat het goed komen

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Of:
    Code:
    Sub hsv()
      Sheets("Archief").ListObjects(1).ListRows.Add.Range = Sheets("Mutatie").range("b2:h2").Value
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

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

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