waarden copieren van een blad naar een ander blad

Status
Niet open voor verdere reacties.
S

sacredfour

Gebruiker
Lid geworden
23 jan 2021
Berichten
32


Sub testrijinvoeren()

Sheets("autoinvoer").Unprotect

Dim aantalregels As String
aantalregels = InputBox("hoeveel regels wil je invoeren?", "selecteer regels voor invoeren", no, 7000, 7000)
If aantalregels = "" Then
MsgBox "u heef geen aantal ingevuld!"

Exit Sub
End If

Sheets("codelijst").Unprotect

Sheets("codelijst").Rows(10).Resize(aantalregels).Insert

Nu moet ik de waarden van de “aantalregels” van sheet autoinvoer (zelfde aantal regels)kopiëren naar de nieuwe regels die ik in sheet codelijjst heb ingevoegd met bovenstaande regel.

Hoe doe ik dit?

codelijstveilig
autoinvoerveilig
End Sub
 
Zo misschien:

Code: 
Sub testrijinvoeren()

Sheets("autoinvoer").Unprotect

Dim aantalregels As Long
aantalregels = Sheets("autoinvoer").Range("A1").CurrentRegion.Rows.Count
If aantalregels = 0 Then
MsgBox "u heef geen aantal ingevuld!"

Exit Sub
End If

Sheets("codelijst").Unprotect

Sheets("codelijst").Rows(10).Resize(aantalregels).Insert

End Sub

Nog enkele opmerkingen: aantalregels is een getal. Dus die declareer je NIET als String, maar als Long of Integer.
Als je hier code plaatst, kan je best eerst bovenaan op het hekje klikken, dan krijg je de code in een codevenster.
Voor ons is het een beetje gokken wat je echt wil. Een voorbeeldbestand maakt vaak al heel wat duidelijk. Niet verplicht natuurlijk, maar aan je uitleg te zien, kan ik niet weten waar je het aantal regels wil uithalen.
 
De bedoeling is dat de waarden van een bepaald aantal regels van blad1 naar blad 2 worden gekopieerd.
Met de Msgbox wordt bepaald hoeveel regels naar blad 2 worden gekopieerd.

Sheets("codelijst").Rows(10).Resize(aantalregels).Insert (Met dank aan HSV voor deze regel!)

Met deze regel wordt in blad 2 alvast de lege regels ingevoerd waar de waarden van blad 1 (de opgegeven regels) naar moeten worden gekopieerd.
nu moet ik de iwaarden van de opgegeven aantal regels in blad 1 kopieeren naar blad2
 
zo dan?

Code: 
Sub testrijinvoeren()
Sheets("autoinvoer").Unprotect

Dim aantalregels As Long
aantalregels = InputBox("hoeveel regels wil je invoeren?", "selecteer regels voor invoeren", no, 7000, 7000)
If aantalregels = 0 Then
MsgBox "u heef geen aantal ingevuld!"

Exit Sub
End If

Sheets("codelijst").Unprotect
Sheets("autoinvoer").Rows("1:" & aantalregels).Copy
Sheets("codelijst").Rows(10).Insert shift:=xlDown
End Sub

En toch 's proberen de code tags te gebruiken + bestand toevoegen. Wij proberen u te helpen... probeer jij ons dan te helpen :)
 
Ik ben er nog niet helemaal uit.
Alleen de waarden moeten gekopieerd worden

Code: 
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
waar moet dit komen?

OOk blijven de kopieer lijnen actief
 
Beveiligen doe je pas, als het al nodig is, als je project klaar is. Gebruik Application.inputbox om een getal bij invoer af te dwingen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan