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

macro ipv onderaan regel toevoegen, nu tussen (in)voegen

Status
Niet open voor verdere reacties.

pascal28nl

Nieuwe gebruiker
Lid geworden
13 jan 2016
Berichten
3
Geachte experts

Vraag 1:
Onderstaande macro voegt een nieuwe regel toe onder de laatste regel.
Ik zou graag willen dat er een regel toegevoegd wordt onder die regel waarin zich de actieve cel bevindt, dus als cel B8 of C8 of D8 actief is en je voert deze macro uit, dat er dan een nieuwe regel komt onder 8. (komt dan dus tussen regel 8 en 9 in en wordt dan de nieuwe regel 9) Deze ingevoegde regel dient ‘leeg’ te zijn, maar wel voorzien van keuzelijsten (validatieregels) en formules zoals in de rest van de tabel, dat werkt nu al wel goed als je een regel onderaan laat toevoegen.

Vraag 2:
Stel bovenstaande invoegen van een regel werkt. Wat nu als ik aan de tabel (later) een kolom toevoeg (stel: kolom H ,waar een keuzelijst aan ‘verbonden is’ en validatieregels) En ik ga een regel tussenvoegen (regel 9), werkt de keuzelijst (validatieregels) dan ook voor cel H9?

Opmerking:
Heb zeer weinig verstand van macro’s enz. heb onderstaande macro ook weer ergens van het web geplukt. Misschien kunnen jullie me verder helpen, bij voorbaat dank.

Sub Invoer_nieuwe_regel()

‘ Invoer_nieuwe_regel Macro

‘ Sneltoets: CTRL+n


Sheets(“Invoer”).Select
Application.Goto Reference:=”Invoer_template_regel”
Selection.Copy
Application.Goto Reference:=”Invoer_laatste_regel”
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Application.Goto Reference:=”invoer_begin”
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End Sub
 
Hoi,
Zoiets?
Ga maar ergens tussen Jan en Cornelis staan en voer macro uit
Zie vbtje
Groet
edit sneltoets nog zelf aan te passen
 

Bijlagen

Met behoud van validatie en opmaak kan je deze proberen

Code:
Sub VenA()
On Error Resume Next
With ActiveCell.EntireRow
    .Copy
    .Insert
    .Offset(-1).SpecialCells(2).ClearContents
End With
Application.CutCopyMode = False
End Sub

Of met een dubbelklik
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
With ActiveCell.EntireRow
    .Copy
    .Insert
    .Offset(-1).SpecialCells(2).ClearContents
End With
Application.CutCopyMode = False
Cancel = True
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan