Wat i.p.v. Select

[trainers]

Ik zit nu even te prutsen.

Dit werkt:

       Columns(LastColumn).Copy
       Columns(LastColumn + 1).Select
       ActiveSheet.Paste

Hoe krijg ik die Select weg omdat ik weet dat je Select moet vermijden.

Mijn dank.

Groeten,
Trainers

 

[JEC.]

Bvb zo

With Sheets(1).Columns(LastColumn)
  .Offset(, 1) = .Value
End With

 

[trainers]

Dank voor je reactie.
Het betreft echter geen Values maar zowel blanco cellen als formules.

 

[JEC.]

Zo dan.
Het is beter om je gebruikte range te kopiëren. Nu pak je je hele kolom

 With Sheets(1).Columns(LastColumn)
   .Copy .Offset(, 1)
 End With

 

[trainers]

:thumb::thumb:

Dank je wel.

Groeten Trainers

 

[snb]

of

Sub M_snb()
 With Sheet1.UsedRange.Columns(3)
   .Offset(, 1) = .Formula
  End With
End Sub

 

[trainers]

Hoi SNB,

UsedRange kan ik plaatsen maar "Colums(3)" niet. Hoe zit dit?


Trainers

 

[snb]

Dat gold voor mij voor 'lastcolumn'.
En sowieso voor het kopiëren van een kolom, waardoor dubbele gegevens in 1 werkblad.