dezelfde kolom van meerdere tabbladen kopieren

[wilbert1967]

hallo

ik heb een spreadsheet met 6 tabbladen met elk 6 kolommen en nu wil ik van elk tabblad de 2e kolom naar een nieuw excel bestand kopieren.
maar ook zo dat ik weer 6 tabbladen heb maar nu met 1 kolom.

weet iemand hoe ?

mvg wilbert

 

[wampier]

Probeer deze macro eens. Enige voorwaarde is dat de tabbladen geen standaardnaam hebben (zoals "blad1")

Sub t()
    
    Set hb = Application.ThisWorkbook
    Set nf = Application.Workbooks.Add
    T_sheets = nf.Sheets.Count
    
    For Each wbt In hb.Sheets
        With nf.Sheets.Add(, nf.Sheets(nf.Sheets.Count))
            wbt.[b:b].Copy Destination:=.[b:b]
            .Name = wbt.Name
        End With
    Next wbt
    Application.DisplayAlerts = False
    For i = 1 To T_sheets
        nf.Sheets(1).Delete
    Next i
    Application.DisplayAlerts = True
End Sub