Automatisch cellen kopiëren naar andere tabbladen.

[Peterhs]

Goedemiddag allen,

Ik ben zeker niet de eerste met zo'n vraag, maar na van alles doorzoeken kon ik niet mijn antwoord vinden.

Ik heb een voorbeeld bestand bijgevoegd. Hierin staan 3 tabbladen met dezelfde informatie.
Nu zou ik graag willen dat de informatie die ik intyp in 1 van de cellen automatisch worden gekopieerd naar tabblad 2 en 3.
Dus als ik bv in een rij de leeftijd 30 noteer moet deze ook op de andere tabbladen op dezelfde locatie 30 weergeven.
Het gaat dat om de 5 kolommen die weergegeven zijn in het testbestand. Er komen nog meer kolommen, dus opdracht om de gehele rij te kopiëren kan niet.
Nu heb ik gemerkt dat met vergelijkbare vragen er gewerkt word met macro's maar hier heb ik echt geen kaas van gegeten.

Alvast bedankt voor de hulp en uitleg.

Bekijk bijlage Testje.xlsx

 

[MarcelBeug]

Een risicovolle mogelijkheid is met formules, bijvoorbeeld in Blad2 A2: =Blad1!A2 en deze formule doortrekken.
Dat gaat goed zolang er geen rijen/kolommen/cellen worden tussengevoegd of verwijderd.
Als dat wél gebeurt, lopen de data niet meer synchroon.

Je kunt ook gegevens doorvoeren naar andere werkbladen op 1 van de 2 mogelijkheden:

1. Voordat je gaat typen in Blad1, selecteer je eerst de bladen Blad1 t/m Blad3: als Blad1 actief is, Shift-klik tab Blad3.
Alles wat je dan op Blad1 doet, gebeurt dan ook op Blad2 en Blad3.

2. Hetzelfde kun je nog achteraf doen: weer Blad1 t/m Blad3 selecteren, de cellen op Blad1 selecteren die je wilt doorvoeren en dan kies je de optie doorvoeren op de Start-tab (rechts in het blok "Bewerken") en in de dropdown kies je "Naar groep...".

Als je het echt volautomatisch wilt, dan ben je aangewezen op VBA of de boven beschreven risicovolle formule-oplossing.

 

[HSV]

Voor een Vba oplossing:
Zet onderstaande code in blad1 module.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
 x = Array("Blad1", "Blad2", "Blad3")
 Sheets(x).FillAcrossSheets Sheets("Blad1").Range("A2:E33")
End Sub