Getallen overnemen in kolom P

[Senso]

In de kolommen E-G-I-K-M komen op verschillende hoogten maar wel van E4-E18 getallen te staan. Deze moeten successievelijk in de volgorde van ingave in deze kolommen overgenomen worden in kolom P. Hoe doe je dat?

Dus je geeft een nieuw getal in in de kolommen E t/m M van 4-18 en dan wordt dat in kolom P automatisch toegevoegd.

Bekijk bijlage Getallen overnemen in kolom P.xlsx

 

[HSV]

Zo iets?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e4:e18,g4:g18,i4:i18,k4:k18,m4:m18")) Is Nothing Then Cells(Rows.Count, 16).End(xlUp).Offset(1) = Target
End Sub

 

[Senso]

In 2030 heb ik die werkend. 10 maal compileerfout, er wordt End Sub verwacht en de getallen verschijnen niet in kolom P.

In P3 en Q3 staan het saldo en in P4 zou het eerste negatieve getal moeten verschijnen.

 

[VenA]

Verhelderend allemaal weer.

 

[edmoor]

Wat HSV plaatste werkt prima.
Kan je letterlijk zo overnemen.

 

[Senso]

Ik zie geen getallen verschijnen in kolom P > P4 en P5
Bekijk bijlage Getallen overnemen in kolom P_macro.xlsm

 

[HSV]

Vraag gewoon wat je fout doet.
Dat staat je vast beter.

 

[VenA]

Het zal wel aan windows 10 liggen

 

[Senso]

Zou niet weten wat ik fout doe of kan doen en volgens #post 5 kan ik niets fout doen. Letterlijk overnemen en moet werken.
Bedankt maar weer en ik heb wel wat anders te doen dan dat gezeur. Ik kom met oplossingen als mensen vragen hebben en zit niet te zeuren.

 

[HSV]

Tot over 10 jaar.

Je bent de slechtste schakel! tot ziens.

 

[VenA]

Je hebt het dan ook niet letterlijk overgenomen en ook nog op de verkeerde plek gezet. Even deze doorspitten want dat zie jij ook als 'Ik kom met oplossingen als mensen vragen hebben' https://theopeek.nl/files/Handleiding-VBA-in-Excel-door-Theo-Peek.pdf

 

[edmoor]

Je krijgt een werkende oplossing aangeboden, die verander je en dan klaag je dat het niet werkt.
Kijk naar de eerste regel van de code, die met Sub begint dus.
Dat is een Event routine en heb je helemaal teniet gedaan.