Cel tekst vasthouden

[ramonschoemaker]

Hallo,

Ik vraag me af hoe ik de tekst van een cel altijd kan vasthouden, ook als ik kopieer.
Bijvoorbeeld ik wil een tekst van een excelblad kopieren naar een ander excelblad,
en dan wil ik eigenlijk dat in 1 cel de vooraf ingevoerde tekst blijft staan en alles eromheen
wel gekopieert word...

Is dit wel mogelijk???

Bvd

 

[BramB2]

Waarschijnlijk wel, ik snap je vraag niet helemaal, maar denk dat je er wel uit moet komen met "plakken speciaal".
Als je iets heb gekopieerd, linker muisknop, plakken speciaal en dan selecteren wat je precies wil plakken! Kijk maar even!

 

[Roncancio]

Dat kan wel met VBA.

Bijv.: cel B4 van Blad2 houdt dezelfde tekst.

Sub Kopieren()
Dim lGetal  As Long
    lGetal = Worksheets(2).Range("B4").Value
    Worksheets(1).UsedRange.Copy Destination:=Worksheets(2).Range("a1")
    Worksheets(2).Range("B4").Value = lGetal
End Sub

Met vriendelijke groet,


Roncancio

 

[ramonschoemaker]

Nou ik wil eigenlijk dat het automatisch gaat... dat we alles kunnen kopieren, en dat in 1 cel gewoon de vooraf ingevoerde tekst blijft staan ondanks dat ik er wat anders overheen kopieer...

En wat is VBA als ik vragen mag???


Gr.

 

[ramonschoemaker]

En hoe stel ik dit dan in???

 

[Roncancio]

VBA is een programmeertaal van Microsoft dat gebruikt wordt binnen Excel, Word, Outlook etc.

Kan je anders een voorbeeldbestand (zonder gevoelige informatie) sturen waarin je aangeeft wat je precies wilt hebben?

Met vriendelijke groet,


Roncancio

 

[ramonschoemaker]

Voorbeeldje heb ik bijgevoegd...

Ik wil van blad 2 het hele gele vak kopieren naar blad 1,
behalve de tekst van cel b12, en ik wil het wel in 1x in 1 geheel kunnen kopieren.


Gr.

 

[Roncancio]

In je bestand heb ik de macro geplaatst.
De macro vind je via Extra - Macro - Macro's.
De macro kopieert de gegevens van Blad2 naar Blad1 maar cel B12 van Blad1 behoudt zijn oorspronkelijke tekst.

Met vriendelijke groet,


Roncancio

 

[ramonschoemaker]

Ok, zou je dat bestandje mischien eens willen bijvoegen voor me??
Want ik kom er zo toch niet echt uit eigenlijk...

Bvd

 

[Roncancio]

Ok, zou je dat bestandje mischien eens willen bijvoegen voor me??
Want ik kom er zo toch niet echt uit eigenlijk...

Bvd

Tuurlijk.
Bij deze.

Met vriendelijke groet,


Roncancio

 

[snb]

Sub tst()
  With Sheets("laten staan")
    c0 = .[B12]
    Sheets("kopieren").UsedRange.Copy .[A1]
    .[B12] = c0
  End With
End Sub

 

[ramonschoemaker]

Sub tst()
  With Sheets("laten staan")
    c0 = .[B12]
    Sheets("kopieren").UsedRange.Copy .[A1]
    .[B12] = c0
  End With
End Sub

Waar moet ik dat invoeren dan???


En als ik nu het complete gele veld van Blad 2 kopieer naar Blad 1,
word de tekst van cel B12 ook meegekopieert...
(zie bijlage)

 

[Warme bakkertje]

Zie bijlage

Mvg

Rudi