Rij verwijderen in meerdere tabbladen tegelijk

[jelle87]

Goedenmiddag,

Is het mogelijk om in een Excel file in te stellen:
Zodra op tabblad "Blad1" een regel verwijderd wordt, dat dan op "Blad2" en "Blad3" dezelfde regel ook verwijderd wordt?

Misschien met behulp van VBA?

alvast bedankt!

 

[zapatr]

Ja, dat kan.
Het is het handigst als je op blad1 dan een knop plaatst om onderstaande macro uit te voeren. Of, in plaats van via een knop, die macro m.b.v. een sneltoets laat uitvoeren.
Selecteer een willekeurige cel in de rij die je wil verwijderen en voer dan deze macro uit:

Sub macro1()
Dim s As Integer, sh As Integer
s = Selection.Row
For sh = 1 To 3
Sheets("Blad" & sh).Rows(s).EntireRow.Delete
Next sh
End Sub

De macro kun je vanuit elk willekeurig blad uitvoeren.

 

[jelle87]

Bedankt voor het meedenken!

Ik heb hem alsvolgt ingevuld, op blad1 onder een knop:

Private Sub CommandButton1_Click()
Dim s As Integer, sh As Integer
s = Selection.Row
For sh = 1 To 3
Sheets("Blad" & sh).Rows(s).EntireRow.Delete
Next sh
End Sub

Ik krijg echter een foutcode 9 en deze regel wordt geel gemarkeerd in VBA (als ik op 'foutopsporing' klik:

Sheets("Blad" & sh).Rows(s).EntireRow.Delete

Enig idee?


Edit;
Ik weet al hoe het komt. Mijn tabbladen heten anders:
blad1 = NL Catalogue
blad2 = Bestellijst
blad3 = Bestelgeschiedenis
blad4 = Nul voorraad

Lukt dat ook, of moeten ze echt Blad1 etc. heten?

 

[Joske2000]

Dan kan je het volgende gebruiken :
Dan moeten deze wel de eerste 4 werkbladen zijn in je bestand. Hij neemt de eerste 4 werkbladen van links te beginnen.

Private Sub CommandButton1_Click()
Dim s As Integer, sh As Integer
s = Selection.Row
For sh = 1 To 4
Sheets(sh).Rows(s).EntireRow.Delete
Next sh
End Sub

Joske

 

[jelle87]

Super, daar kan ik mee uit de voeten. Bedankt allebei !

 

[zapatr]

Ik weet al hoe het komt. Mijn tabbladen heten anders

Je had nochtans uitdrukkelijk in je eerste bericht vermeld dat de namen Blad1, Blad2, en Blad3 waren.
Tja....

 

[jelle87]

Klopt inderdaad, sorry! Ik werk met zo'n 15 verschillende lijsten en de eerste die ik bekeek heet wel blad1 etc. Vandaar