tabblad selecteren en kopiëren o.b.v. selectie

[dvejam]

Goedemiddag,

In bestand in bijlage wil ik vanuit het import tabblad de keuze maken naar welk tabblad ik kopieer op basis van een selectielijst. Dus van import naar Ma-Data en morgen bijvoorbeeld naar Di-Data.

Ik kwam deze code tegen waarbij jij een specifiek tabblad kunt selecteren.

Sub Listselection()
Dim cbTool As CommandBar
Set cbTool = CommandBars("workbook tabs")
cbTool.ShowPopup
End Sub

Is het mogelijk deze te combineren met onderstaande code:

Sub DagImportMaandag()
Application.ScreenUpdating = False
With Sheets("Ma-Data")
    .Cells.Clear
        With Sheets("IMPORT")
        .UsedRange.Cells.Copy Sheets("Ma-Data").[A1]
            .Cells.AutoFilter
            .Cells.Clear
        End With
       .Columns.AutoFit
       .Cells(1).CurrentRegion.RemoveDuplicates Array(9, 14), xlYes
       .Columns.AutoFit
End Sub

 

[gast0660]

@dve,
Verwacht jij daar echt een antwoord op???
Uw vraag is "een stukje taart' maar!
Je twee codes zijn compleet off topic,daar kom je geen meter verder mee, m.a.w waardeloos.
En uw vb, wat valt er nu te kopiëren of te importeren ??? alles is zo leeg als het maar zijn kan!!

 

[Timshel]

Ik moet Dotchie wel een beetje gelijk geven met betrekking tot het voorbeeldbestandje #AllesWatJeZelfKuntDoen.
Maar goed. Misschien zoals in bijlage, met een custom dialoogschermpje. Start de macro met CTRL SHIFT Z:

 

[dvejam]

gast0660 en timshel, dank voor jullie reacties. ja ik heb het niet duidelijk verwoord en heb ook het bestand waarvan ik dacht dat het gevuld was niet goed aangeleverd.

Mijn excuses voor de onduidelijkheid.

Toch dank voor de geboden oplossing.

Dennis