Macro tabel toevoegen aan andere macro?

[dvejam]

Goedemiddag,

Ik heb in bestand in bijlage 3 macro's zitten. Ze werken individueel prima maar wil graag deze macro's onder 1 button krijgen.

Tot 2 macro's lukt mij wel maar de macro maaktabel werkt alleen vanuit activesheet. In dit geval sheet2.

Kan deze macro toegevoegd worden aan macro orderhistorie zodat het 1 macro wordt?

Alvast bedankt.

Dennis

 

[HSV]

Het bestand is op dit moment 8 keer bekeken.
Ik heb zo mijn vermoedens dat de vraag niet duidelijk is.
Er staat inderdaad 'Activesheet', maar als dat veranderd moet worden zie ik andere codes staan waar je wel netjes verwijst naar een bladnaam.

 

[dvejam]

Harry,

Excuses voor de onduidelijkheid. Wat ik graag zowel willen is 1 code waarin orderhistorie macro en maaktabel code samen zitten. De maaktabel code dient van het tabblad data een tabel te maken.

Omdat ik er niet uitkwam heb ik een separate macro met hierin activesheet gebruikt om de omzetting naar tabel voor elkaar te krijgen op tabblad data.

 

[HSV]

Bedoel je zo?

Sub Orderhistorie()
Application.ScreenUpdating = False
With Sheets("Data")
    .Cells.Clear
        With Sheets("Import")
            .UsedRange.Cells.Copy Sheets("Data").[A1]
            .Cells.AutoFilter
        End With
       .Columns.AutoFit
       .Columns(6).Insert
       .Cells(1, 6) = "Bestelwijze"
      End With
       
 
[COLOR=#3366ff]With Sheets("data")[/COLOR]
[COLOR=#3366ff]  For Each Lo In .ListObjects[/COLOR]
[COLOR=#3366ff]     .ListObjects(1).Unlist[/COLOR]
[COLOR=#3366ff]  Next Lo[/COLOR]
[COLOR=#3366ff]   .ListObjects.Add(xlSrcRange, .Cells(1).CurrentRegion.Resize(1580), _[/COLOR]
[COLOR=#3366ff]                                 , xlYes).Name = "Tabel1"[/COLOR]
 
    .Range("F2").Formula = "=VLOOKUP(E2,Bestelwijze!$A:$B,2,0)"
    .Range("F2:F" & .Cells(Rows.Count, 5).End(xlUp).Row).FillDown
   
End With
End Sub

Het eerste stuk van je code geeft een fout bij ".cells.autofilter" (er staan ook geen gegevens in blad "Import").
Daar heb ik dus niet mee gedaan.

 

[dvejam]

Harry,

Dat is hem helemaal.:thumb:

Klopt dat import leeg is die had ik even leeg gelaten.

Ik heb de .cells.autofilter weggelaten want heeft hier geen toegevoegde waarde.

Is er nog een mogelijkheid om op op tabblad data aflopend te sorteren op kolom In tijd

Dan is ie helemaal af.

 

[HSV]

Als je blad 'data' eerst helemaal leeg maakt, heb je aan iets minder code genoeg.

Sub Orderhistorie()
Application.ScreenUpdating = False
With Sheets("Data")
    .Cells.Clear
        With Sheets("Import")
            .UsedRange.Cells.Copy Sheets("Data").[A1]
            '.Cells.AutoFilter
        End With
       .Columns(6).Insert
       .Cells(1, 6) = "Bestelwijze"
       .Columns.AutoFit
 
  'For Each Lo In .ListObjects
   '  .ListObjects(1).Unlist
  'Next Lo
   .ListObjects.Add(xlSrcRange, .Cells(1).CurrentRegion.Resize(1580), _
                                 , xlYes).Name = "Tabel1"
 
    .Range("F2").Formula = "=VLOOKUP(E2,Bestelwijze!$A:$B,2,0)"
    .Range("F2:F" & .Cells(Rows.Count, 5).End(xlUp).Row).FillDown
    
    .ListObjects(1).Range.Sort .[m2], , , , , , , 1
End With
End Sub

 

[dvejam]

Superbedankt voor de hulpvaardigheid! En fijne avond.