kopieren zonder opmaak

[bara]

Bijgevoegd heb ik een bestand waarin data van het ene naar een ander blad gekopieerd wordt. Super wanneer het gaat om dat die afkomstig is van her en der geplaatste cellen.

Alleen, de opmaak wordt mee gekopieerd, dat wil ik juist niet. Hoe kan dit script aangepast worden aan mijn wens.

Alvast bedankt

 

[Thankyou]

Met de (rechter) muisknop kiezen voor plakken speciaal --> waarden
(wel eerst kopieren natuurlijk)

Succes,
Martin

 

[bara]

Dat laatste lukt wel, maar hoe wordt dat opgenomen in het VBA script. Dat is het probleem, zeker om dit te combineren met het bestaande script.

 

[Thankyou]

Als je het opneemt met een macro krijg je dit:

Sub Macro1()
'
' Macro1 Macro
'
    Range("F3:F9").Select
    Selection.Copy
    Range("F18").Select
    [COLOR="Red"]Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False[/COLOR]
End Sub

ik denk dat het om het rode gedeelte gaat. Misschien kan je hier iets mee?

Succes,
Martin

 

[bara]

Dat had ik ook al gedaan en vervolgens delen van deze code achter of bij de bestaande geplakt. Dat lukte dus niet.
Ter verduidelijking, Ik kopieer b.v. cel B6, D6 en I6 en wil die in een lijst op een ander werkblad plaatsen, nogmaakls zonder opmaak. Kijk even in het script, dan zie je wat gebeurt.
groet

 

[snb]

Sub Macro1()
'
' Macro1 Macro
'
    Range("F3:F9").Select
    Selection.Copy
    Range("F18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Vertaald naar VBA

sub vertaling()
   [F18:F24]=[F3:F9].Value
End sub

 

[bara]

F18:F24 is een range die de inhoud van al die cellen meeneemt, niet?
Kan dat ook met b.v. F18,F24?

 

[snb]

Ik snap de vraag niet.

 

[bara]

is het niet zo dat door de schrijfwijze F3:F14 (dubbele punt) Alle cellen die daartussen liggen gekopieerd worden?
Zo niet kun je mij misschien het scriptje toelichten, zoals je dat aangeeft.
Bovendien moeten ze naar een andere sheet gekopieerd worden.

 

[Thankyou]

Laat ik hier onze VBA specialis maar antwoord op geven . . .

 

[snb]

'kopieer' naar blad2:

sub vertaling()
   [Blad2!F18:F24]=[F3:F9].Value
End sub

 

[Warme bakkertje]

Uit de losse pols

Sub kopie()
[Blad2!A65536].End(xlUp).Offset(1).Resize(1, 7) = _
    Split(Join(Array([A3], [C3], [E3], [G3], [I3], [K3], [M3]), "|"), "|")

 

[bara]

t.a.v. warme bakkertje

Los van de End sub, geeft hij een compilatiefou bij de laatste ,
[Blad2!A65536].End(xlUp).Offset(1).Resize(1, 8) = _
Split(Join(Array([D6], [I6], [L6], [O6], [D7], [I7], [L7]), [O7]),"|"), "|")

Ik heb de celnamen aangepast aan mijn formulier, zoals je ziet.

een andere vraag. Als je Blad 2! gebruikt bedoel je de naam tussen haakjes in het projectoverzicht?

 

[trucker10]

Dan zal je nog eens moeten kijken want met de macro van Rudi werkt het ook al voeg je data bij

 

[bara]

Hallo Daniël

Als ik het formulier van Rudi gebruik, gaat alles goed. Bij mijn formulier werkt het niet.

Komt het mogelijk door:

• cellen samengevoegd
• een xlt ipv xls bestand

ter verduidelijking heb ik een "schoongemaakt"formulier bijgevoegd.
Er staat nog geen VBA code in!!

gr
Bart

 

[trucker10]

Beste , je mùoet ook je verwijzing naar je blad aanpassen in jouw geval Blad1
samengevoegde cellen durven ook al eens voor problemen zorgrn .

 

[bara]

Daniel

Dat was deel 2 van mijn laatste vraag?

Maar volgens mij werkt het nu, tot ik weer een vraag heb, want ik wil nog meer met dit formlier.

Hartstikke bedankt

Vooralsnog zet ik deze draad op "opgelost"