Keuzelijst in macro

[Amado]

Hoi Excellers,

Ik heb een macro opgenomen die het resultaat van een filter (=datum) gaat kopiëren :

Sheets("Ingave TRSF").Select
Range("A2").Select
ActiveSheet.Range("$A$1:$D$366").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2021")

Hoe kan ik die macro laten werken voor alle andere maanden?
Dus indien ik op "3/31/2021" filter zou dit in mijn macro moeten staan.

Gr,

Amado

 

[JEC.]

Plaats even een voorbeeldbestand. Ik snap nog niet echt wat er moet gebeuren

 

[Amado]

Hoi JV,

ik heb een stuk van de file doorgestuurd, maar in de macro heb ik de namen en andere gegevens gewist,
dus deze is niet operationeel.
Dus ik wil van mijn Sheet de resultaten elke maand opnieuw kopiëren nadat deze gefilterd is.
Zo moet de macro deze maand de gegevens van Februari kopiëren.

 

[snb]

Maak gebruik van de faciliteiten in Excel.

 

[JEC.]

Dus je gaat handmatig filteren en dan wil je het gefilterde gebied overzetten naar een ander werkboek

Ik denk dat je hier dan al een eind mee komt

Sub j_v()
With Sheets("Ingave").Cells(1).CurrentRegion
 .Offset(1).Copy
  Workbooks("lTransfert.xlsm").Sheets(1).Range("A2").PasteSpecial xlPasteValues
End With
End Sub

 

[Amado]

Dat is idd wat ik zocht JV.
Super bedankt.

Fijne zondag

Amado

 

[snb]

@JVeer

Probeer eens:

Sub j_v()
  Sheets("Ingave").Cells(1).CurrentRegion.Offset(1).Copy  Workbooks("lTransfert.xlsm").Sheets(1).cells(2,1)
End Sub

 

[Amado]

@JVeer

Probeer eens:

Sub j_v()
  Sheets("Ingave").Cells(1).CurrentRegion.Offset(1).Copy  Workbooks("lTransfert.xlsm").Sheets(1).cells(2,1)
End Sub

Hoi snb, ga deze eveneens proberen. Thans

 

[JEC.]

Of als je een tabel gebruikt, zoals in het vb bestand van snb

Sub jv_2()
 With Sheets("Ingave").ListObjects(1)
  .DataBodyRange.SpecialCells(12).Copy
   Workbooks("lTransfert.xlsm").Sheets(1).Range("A2").PasteSpecial xlPasteValues
 End With
End Sub

 

[JEC.]

@Snb, ik ging even uit van pastevalues. :thumb:

 

[Amado]

Of als je een tabel gebruikt, zoals in het vb bestand van snb

Sub jv_2()
 With Sheets("Ingave").ListObjects(1)
  .DataBodyRange.SpecialCells(12).Copy
   Workbooks("lTransfert.xlsm").Sheets(1).Range("A2").PasteSpecial xlPasteValues
 End With
End Sub

het is geen tabel want de data komen via zoekformules in de sheet "ingave"
in het voorbeeld heb enkel waardes gezet