verkorten code

[kibus]

Beste kenners,

Is het mogelijk om onderstaandcode nog in te korten ? hoe minder regels des te sneller de code toch ??

Range("a1").Select
Selection.End(xlDown).Offset(0, 1) = "."
Range("B1").Select
Range(Selection, Selection.End(xlDown)).FillDown
Range(Selection, Selection.End(xlDown)).Copy
Selection.PasteSpecial Paste:=xlPasteValues

alvast bedankt.

Edwin

 

[nire]

In dit geval is die regel niet echt van toepassing. Dat geldt eigenlijk alleen bij heel veel code. Dit zijn maar een paar regels.

 

[snb]

columns(1).specialcells(2).offset(,1)="."

 

[kibus]

super dank je ...
Columns(6).SpecialCells(2).Offset(0, 1

nog een klein vraagje columns en offset is mij duidelijk

wat houd specialcell in en wat doet het precies zie het vaker.....,

edwin

 

[Wigi]

wat houd specialcell in en wat doet het precies zie het vaker...

Dat bestaat niet.

SpecialCells kan je in de VBA helpfunctie terug vinden. Het is de VBA-variant van het drukken van F5 + Speciaal... in een Excel tabblad.

Wigi

 

[kibus]

ga we ook mee aan de gang bedankt !