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

aanpassing

Status
Niet open voor verdere reacties.
L

lsc.b

Gebruiker
Lid geworden
4 nov 2000
Berichten
245
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
 

Bijlagen

  • MutatieArchief.xlsb
    20,8 KB · Weergaven: 18
En wat staat er dan in rij 2 t/m 19?
Plaats aub een goed gelijkend voorbeeldbestand.
 
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
 
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. :d
 
Laatst bewerkt:
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 bewerkt:
Bedankt allemaal ik ga hier morgen mee aan de slag zoals ik nu al zie gaat het goed komen
 
Of:
Code: 
Sub hsv()
  Sheets("Archief").ListObjects(1).ListRows.Add.Range = Sheets("Mutatie").range("b2:h2").Value
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan