25 regels met tekst tussen voegen

[Atwist]

Hallo forumleden,

Heb een werkblad die uit 19 pagina's bestaat maar nu wil ik dat als bv checkbox 1 wordt aangeklikt dan moet op deze plaats bv A210 25 regels (is 1 pagina) met tekst worden ingevoegd.
Dus moet het zo worden dat dit er tussen komt en de rest 1 pagina opschuift, deze gegevens staan op werkblad 2.
Het kopieeren naar een ander werkblad door een checkbox ken ik maar rijen invoegen niet, dus hoop ik dat jullie mij kunnen helpen.

 

[Warme bakkertje]

Bv.

Sub tst()
    If Checkbox1 Then
        [Blad2!A1:A25].Copy
        [A210].Insert xlShiftDown
    End If
End Sub

 

[Atwist]

Warme bakkertje,

Dank voor je antwoord
Ik kreeg jou oplossing niet werkend maar heb deze aangepast en werkt nu perfect.

Sub tst()
    If Checkbox1 Then
        [Blad2!A1:A25].Copy
        [A210].Insert xlShiftDown
    End If
End Sub

Is geworden

Sub tst()
Private Sub CheckBox1_Click()
        [Blad2!A1:A25].Copy
        [A210].Insert xlShiftDown
    End Sub

Mijn dank is groot :thumb:

 

[HSV]

Warme bakkertje,

Dank voor je antwoord
Ik kreeg jou oplossing niet werkend maar heb deze aangepast en werkt nu perfect.

Is geworden

Sub tst()
Private Sub CheckBox1_Click()
        [Blad2!A1:A25].Copy
        [A210].Insert xlShiftDown
    End Sub

Mijn dank is groot :thumb:

Lijkt me onwaarschijnlijk.
Ik denk dan meer aan zoiets.

Private Sub CheckBox1_Click()
  If CheckBox1 Then
   [Blad1!A1:A25].Copy
     [A210].Insert xlShiftDown
  Application.CutCopyMode = False
  End If
End Sub

 

[Warme bakkertje]

@ Harry

Application.CutCopyMode = False

Heb je niet nodig bij een gewone Copy-bewerking. Dit wordt enkel gebruikt bij PasteSpecial om het klembord leeg te maken en het selectiekadertje te verwijderen.

@ Atwist
Verwijder regel Sub tst()

 

[HSV]

@ Harry

Application.CutCopyMode = False

Heb je niet nodig bij een gewone Copy-bewerking. Dit wordt enkel gebruikt bij PasteSpecial om het klembord leeg te maken en het selectiekadertje te verwijderen.

Bij mij blijft steeds A1:A25 geselecteerd, en als je ergens op het blad gaat staan en een Enter geeft, plaatst het daar A1:A25 ook weer.
Maar ik ben een echte beginner.

 

[Warme bakkertje]

@Harry
Bij gebruik van Insert dus blijkbaar toch nodig.

 

[Atwist]

@ Warme bakkertje

Als ik die regel weg haal dan krijg ik een compileer fout.

@ HSV
Mijn aanpassing werkt bij mij perfect, dus ik snap de uitspraak "Lijkt me onwaarschijnlijk"
dan niet helemaal.

 

[HSV]

Dank voor de info @Rudi.
Ik wil me daar een beetje in verdiepen, dus simuleer ik af en toe, als het niet te groot is.

 

[HSV]

@ Warme bakkertje

Als ik die regel weg haal dan krijg ik een compileer fout.

@ HSV
Mijn aanpassing werkt bij mij perfect, dus ik snap de uitspraak "Lijkt me onwaarschijnlijk"
dan niet helemaal.

Of heb je het ook aan een knop hangen i.p.v. alleen de checkbox.

 

[snb]

Het gaat toch over rijen, toch ?

Rows(210).resize(25).insert