Cel verplaatsen en dan andere cellen automatisch mee verplaatsen

D. den Hooglander

unread,

Jul 4, 2002, 3:53:43 PM7/4/02

to

Hallo ;
Ik wil graag een macro maken dat wanneer ik de inhoud van een cel b3
verplaats naar B7 , de inhoud van de cellen C3 en D3 worden meeverplaatst.
Ik heb geprobeert dit in een macro op te nemen (newbie in VBA) maar slaag
hier niet in.Weet iemand een oplossing ??

Ber Visser

unread,

Jul 5, 2002, 4:42:04 PM7/5/02

to

Selecteer B3:D3 en sleep het geheel naar een andere plaats, bij
voorbeeld naar B7

--
Met vriendelijke groeten,
Ber Visser

"D. den Hooglander" <d.den.ho...@hccnet.nl> schreef in
bericht news:ag2914$j2a$1...@news.hccnet.nl...

DdH

unread,

Jul 6, 2002, 4:30:13 AM7/6/02

to

Ber ,
Ik ben niet duidelijk genoeg geweest , het punt is dat een deel van de
cellen die ik wil verplaatsen in verborgen kolommen staat. Dit om de
leesbaarheid van de sheet te bevorderen. De data van een cel die
zichtbaar blijft wordt vaak verplaatst Degene die met het spreadsheet
werkt ziet de informatie in de verborgen kolommen dus niet . Ik had
een knop gemaakt die de kolommen zichtbaar maakte en daarna weer
verborg maar het constant openen en verbergen van de kolommen werd als
irritant ervaren.
Wat ik dus wil proberen is als ik een zichtbare cel verplaats de
verborgen cellen mee worden verplaatst. Denk jij dat dit kan ???

On Fri, 5 Jul 2002 22:42:04 +0200, "Ber Visser" <viss...@pandora.be>
wrote:

Ber Visser

unread,

Jul 6, 2002, 10:37:33 AM7/6/02

to

Klik rechts op de bladtab en kies Programmacode weergeven.
Plaats deze macro in het rechter venster.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim driecellen As Range
If Target.Column = 2 Then
Target.Select
Set driecellen = Application.Union(Selection, Selection.Offset(0,
1), Selection.Offset(0, 2))
'De regel hierboven dient op één regel te staan
driecellen.Select
Set driecellen = Nothing
End If
End Sub

Deze macro wordt geactiveerd wanneer een cel in kolom B wordt
geselecteerd.
Ondanks dat kolom C en D verborgen zijn worden op dezelfde rij
ook de cellen in C en D geselecteerd hetgeen te zien is aan de
dikke zwarte rand die nu om de cel in B staat.
Wanneer nu de cel in kolom B wordt verplaatst gaan de waarden in
kolom C en D ook mee.

--
Met vriendelijke groeten,
Ber Visser

"DdH" <wr3...@wolmail.nl> schreef in bericht
news:3d26a92...@news.hccnet.nl...

Ber Visser

unread,

Jul 6, 2002, 10:57:08 AM7/6/02

to

Herstel :

> Deze macro wordt geactiveerd wanneer een cel in kolom B wordt
> geselecteerd.

Moet zijn:

Deze macro wordt geactiveerd wanneer een cel in kolom B wordt

veranderd.

Ber Visser

unread,

Jul 6, 2002, 4:26:25 PM7/6/02

to

En deze wordt geactiveerd wanneer een cel in kolom B wordt
geselecteerd.
Met Application.ScreenUpdating = False worden de kolommen wel
zichtbaar gemaakt maar je ziet het niet.

Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
If Selection.Column = 2 And Selection.Cells.Count = 1 Then
Application.ScreenUpdating = False
Range(Selection.Offset(0, 1), Selection.Offset(0,
2)).Columns.Hidden = False
Range(Selection, Selection.Offset(0, 2)).Select
Selection.Cells(0, 3).Columns.Hidden = True
Selection.Cells(0, 2).Columns.Hidden = True
Application.ScreenUpdating = True
End If
End Sub

--
Met vriendelijke groeten,
Ber Visser

"Ber Visser" <viss...@pandora.be> schreef in bericht
news:O4AgK1PJCHA.2052@tkmsftngp08...

DdH

unread,

Jul 7, 2002, 4:54:39 AM7/7/02

to

Ber,
Dank je wel voor de geleverde code , ik zal een maandag direct aan de
slag gaan en zal je op de hoogte houden van mijn vorderingen.
Nogmaals dank !!
Dick den Hooglander

On Sat, 6 Jul 2002 22:26:25 +0200, "Ber Visser" <viss...@pandora.be>
wrote:

>En deze wordt geactiveerd wanneer een cel in kolom B wordt