• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wat i.p.v. Select

Status
Niet open voor verdere reacties.
T

trainers

Verenigingslid
Lid geworden
8 feb 2012
Berichten
160
Ik zit nu even te prutsen.

Dit werkt:
Code: 
       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
 
Bvb zo

Code: 
With Sheets(1).Columns(LastColumn)
  .Offset(, 1) = .Value
End With
 
Dank voor je reactie.
Het betreft echter geen Values maar zowel blanco cellen als formules.
 
Zo dan.
Het is beter om je gebruikte range te kopiëren. Nu pak je je hele kolom

Code: 
 With Sheets(1).Columns(LastColumn)
   .Copy .Offset(, 1)
 End With
 
Laatst bewerkt:
of
Code: 
Sub M_snb()
 With Sheet1.UsedRange.Columns(3)
   .Offset(, 1) = .Formula
  End With
End Sub
 
Hoi SNB,

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


Trainers
 
Dat gold voor mij voor 'lastcolumn'.
En sowieso voor het kopiëren van een kolom, waardoor dubbele gegevens in 1 werkblad.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan