Activate,select.hoe raak je ze kwijt?

[PJurriaans Sr]

Gewaardeerde helpers.Steeds krijgen wij het advies vermijd Activate en select
Zodra ik in onderstaande regels ook maar iets weg haal werkt het niet meer kan
iemand mij dat duidelijk maken.Groet Peter.


[Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.Value = "=R[-1]C1+1": ActiveCell.Offset(0, 1).Select
Selection = ActiveSheet.name]

 

[snb]

ter vervanging van je hele code:

cells(rows.count,1).End(xlUp).Offset(1),resize(,2) = split("=R[-1]C1+1|" & ActiveSheet.name,"|")

 

[PJurriaans Sr]

snb Grandioos als ik hem begrijp dan gaan al mijn procedures onder het mes.Dank
1000x VrGr Peter. Kreeg nog een Compile Errer.Sub or Function not defened Op "resize"

 

[snb]

Had je zelf kunnen vinden: voor resize moet een punt staan, geen komma.

 

[PJurriaans Sr]

snb ik was er druk mee maar ik het gewoon nog niet. Een punt krijg nou wat
Bedank:thumb: ik schaam diep