Kopiëren en plakken zonder opmaak

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Ik zou graag in het bezit willen komen van een vba voor Excel waar ik gegevens kopieer en plak (zie onderstaand vba) maar dat deze de opmaak niet meeneemt, echter wel de formule of de tekst en de gegevensvalidatie.

Code: 
     rij = 0 + ActiveCell.Row
                Range("W2:z2").Select
                Selection.Copy
                Cells(rij, 23).Select
                [COLOR="#FF0000"]ActiveSheet.Paste[/COLOR]

Alvast heel hartelijk bedankt.

Robert
 
Test deze maar eens:
Code: 
ActiveCell.Resize(, 4) = Range("W2:Z2").Value
 
Ik had gelezen van formules en validaties.
Code: 
Range("W2:Z2").Copy
With Cells(ActiveCell.Row, 23)
 .PasteSpecial -4123   'formules
 .PasteSpecial 6         'validaties
 End With
Application.CutCopyMode = False
 
Daar heb ik dus te vlug overheen gelezen en alleen "zonder opmaak" gezien ;)
 
Kan gebeuren.:)
 
Nog even een vraag: waar staat de 4 voor? Ik heb nl. meerdere data die gekopieerd moet worden. Voor zover ik nu kan beoordelen werkt het perfect.
 
Beste mensen, heel erg bedankt. Heb ik nog even een kort vraagje: een van de codes die gekopieerd moet worden doet het nu niet terwijl wanneer ik de formule d.m.v. "fx" bekijk deze de juiste waarde geeft, maar niet in de betreffende cel. Ik heb weleens ergens gelezen dat je dan Alt - Shift o.i.d moet doen.

de formule is:
Code: 
=ALS(D16="";"";MAX(ALS('Rit- & uren adm.'!$D$4:$D$1000='Persoonlijke instelling'!D16;'Rit- & uren adm.'!$N$4:$N$1000)))

Het kopiëren werkt overigs perfect :thumb:
 
Ook matrixformules worden volgens mij netjes gekopieerd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan