Kollommen verplaatsen in meerdere sheets

[MatthijsE]

Goedemiddag,

In navolg van een eerdere vraag (http://www.helpmij.nl/forum/showthread.php?p=2805833#post2805833) heb nog een soortgelijke vraag :

Hoe kan ik kolom "G" verplaatsen of knippen / plakken naar voor kolom "AM" over meerdere sheets, waarbij ik dit niet wil doen de "activesheet" ?

De volgende code heb ik, maar ik loop op beide manieren vast.

Public Sub Movekolom()
Dim ws As Worksheet
sheetname = ActiveSheet.Name
For Each ws In ThisWorkbook.Worksheets
       ' If ws.Name <> sheetname Then ws.Columns("G:G").EntireColumn.Cut
        ' ws.Sheet.colomn("AM").Selection.Insert Shift:=xlToRight
   If ws.Name <> sheetname Then ws.Columns("G:G").Move after:=ws.Columns("AM")
    
Next ws
End Sub

Bijvoor baat dank,

Matthijs

 

[TeuGem]

Hoi,

De 'macro'-code ziet er in elk geval zo uit:

Sub Macro1()
Columns("G:G").Select
Sheets(Array("Blad1", "Blad2", "Blad3")).Select
Sheets("Blad1").Activate
Selection.Cut
Columns("AL:AL").Select
Selection.Insert Shift:=xlToRight
End Sub

 

[MatthijsE]

Re

Hoi Thieu,

Ik constateerde zojuist dat ik wat type fouten had gemaakt in mijn code (Colomn-> Column etc.) Ik kan volgens mij geen array gebruiken, aangezien de tabs worden gemaakt a.d.h.v. waarden die in de "brondata" -> Activesheet worden gemaakt(bron: http://www.rondebruin.nl/copy5_3.htm) , dit kan dus variabel zijn, het enige wat volgens mij een vast gegeven is, is dat ik alle sheet m.u.v. de activesheet voor de code wil gebruiken. Zodoende denk ik dat het verplaatsen of cut /paste met de ws loop dient te gebeuren.

groet,


Matthijs

 

[Warme bakkertje]

Public Sub Movekolom()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> ActiveSheet.Name Then
        ws.Columns("G").Cut
        ws.Columns("AM").Insert Shift:=xlToRight
    End If
Next ws
End Sub

 

[MatthijsE]

Wederom Bedankt Rudi

Wederom Bedankt Rudi

groet,

Matthijs