[Excel 2007] Macro voor invoegen rijen op meerdere tabbladen

[Verwijderd]

Hallo,

Ik ben al een tijd op zoek naar een soort van Macro of iets dergelijks dat het mogelijk maakt om tegelijkertijd op 2 aangewezen tabbladen op exact dezelfde plek een nieuwe rij toevoegt.

Stel dat ik dus 2 tabbladen heb: tabblad X en tabblad Y.
Nu wil ik iets hebben dat indien ik in tabblad X bij rij 10 een nieuwe rij invoeg dat dit automatisch ook gebeurt in tabblad Y bij rij 10. En dat deze macro dan ook werkt indien ik plotseling in tabblad X een nieuwe rij toevoeg bij rij 25 dan dit dan ook bij 25 Y gebeurt.

Is dit mogelijk?

[ Voor 13% gewijzigd door Verwijderd op 23-03-2009 19:28 ]

[JohnD]

kan wel als je een range definieert zodat het aantal rijen kan tellen in deze range. Sla dit nummer op in een public var zodat je hem later kan vergelijken met het nieuwe aantal rijen in de range.

krijg je ongeveer zoiets:

Let wel op dat ik geen programmeur ben dus misschien dat er iemand nog wat toe te voegen heeft.

code:

Public nrijen As Single


Private Sub Workbook_Open()
On Error Resume Next
ThisWorkbook.Names("blaataap").Delete
ThisWorkbook.Names.Add Name:="blaataap", RefersToR1C1:="=Blad1!R1:R300"
nrijen = Worksheets("Blad1").Range("blaataap").Rows.Count
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rangerijen As Single
Dim rownr As Integer
rangerijen = Worksheets("Blad1").Range("blaataap").Rows.Count
If rangerijen <> nrijen Then
  If rangerijen > nrijen Then
    verschil = rangerijen - nrijen
    MsgBox (verschil & " rij(en) ingevoegd")
    rownr = ActiveCell.Row
    nrijen = rangerijen
    Worksheets("Blad2").Select
    ActiveSheet.Rows(CStr(rownr) & ":" & CStr(rownr + verschil - 1)).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Worksheets("Blad1").Select
  Else
    verschil = nrijen - rangerijen
    MsgBox (verschil & " rij(en) verwijderd")
    rownr = ActiveCell.Row
    nrijen = rangerijen
    Worksheets("Blad2").Select
    ActiveSheet.Rows(CStr(rownr) & ":" & CStr(rownr + verschil - 1)).Select
    Selection.Delete Shift:=xlUp
    Worksheets("Blad1").Select
  End If
End If
End Sub

edit:
"blaataap" is hier rij 1 t/m 300. Dit moet je waarschijnlijk veranderen. misschien dat je de laatste rij wel kan bepalen door te kijken waar de laatste waarde in ingevuld.

[ Voor 5% gewijzigd door JohnD op 24-03-2009 10:35 ]

[Verwijderd]

Alvast bedankt voor het begin zal het vandaag of morgen even proberen. Nader bericht volgt.

[Lolhozer]

Beide bladen selecteren en dan vervolgens in 1x de rijen op beide bladen invoegen is niet voldoende?

[Verwijderd]

Lolhozer schreef op dinsdag 24 maart 2009 @ 13:06:
Beide bladen selecteren en dan vervolgens in 1x de rijen op beide bladen invoegen is niet voldoende?

Dit is ook een manier simpel maar effectief tnx .
Echter wil ik ook nog de macro werkend krijgen, omdat dit gemakkelijker is voor mensen die dit bestand gaan gebruiken (denk ik).

[ Voor 8% gewijzigd door Verwijderd op 24-03-2009 13:16 ]

[F_J_K]

Als anderen het moeten gaan gebruiken en die anderen Lolhozer's manier niet zouden snappen, wil je dat imho niet met een macro oplossen. Hoe dan ook kan het best foutgevoelig zijn: je kunt niet 100% zeker zijn dat het altijd goed gaat.

Doe het dan andersom: verbied het mensen om zelf een rij toe te voegen en doe het helemaal via een macro (door naar een regelnummer te vragen en daaronder een rij toe te voegen). Of, als je een of ander administratief 'programma' maakt: gebruik geen Excel maar een tool dat er voor is gemaakt

[Verwijderd]

Even terugkomend op de simpele manier: ' Beide bladen selecteren en dan vervolgens in 1x de rijen op beide bladen invoegen is niet voldoende? '.
Deze methode heeft gewerkt totdat ik gebruik ging maken van tabbladen waarin gegevens zijn opgemaakt als tabel. Plotseling kan ik dan niet meer op meerdere tabbladen een cel tegelijkertijd verwijderen.

Tabbladen niet opgemaakt als tabel, de simpele manier werkt:


Tabbladen met opgemaakte gedeeltes als tabel, simpele manier werkt niet:


Iemand een idee om dit probleem op te lossen?

[ Voor 3% gewijzigd door Verwijderd op 07-04-2009 21:20 ]