filteren, copieren, en filterwaarde aanpassen

[Guidolavespa]

Volgende code zou moeten doen:

Even nazien aub:



Private Sub cmdxxx_Click()
'Autofilter in veld 16 checken voor waarde N
Selection.AutoFilter Field:=16, Criteria1:="N"
'Range selecteren
Sheets("Opvolgingslijst").Range("A3").Select
Range(ActiveCell, ActiveCell.End(xlDown).Offset(0, 14)).Select
'Geslecteerde copieren naar nieuw blad
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
'Kolommmen fitten
Selection.Columns.AutoFit
'Vorig blad weer actief maken en selctie N wijzigen naar J >>> dit werkt niet !! hoe terug naar VORIG blad?
Windows("xxx.xlS").Activate
Sheets("(vorig)").Select
Columns("P").Select
Selection.Replace What:="N", Replacement:="J", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A3").Select
'Dan weer alles tonen. (filter wegdoen)
ActiveSheet.ShowAllData

End Sub

 

[Ingrid B]

Sheets(ActiveSheet.Index - 1).Select

 

[Guidolavespa]

Ik krijg de foutmelding,

het subscript valt buiten bereik.

moet ik niet eerst terug naar het vorig bestand aangezien ik een nieuw heb geopend?

 

[Ingrid B]

Die melding wijst erop dat het eerste werkblad actief is, je kan dus niet naar het vorige gaan.

 

[Guidolavespa]

Sheets ??

bestaat er geen instructie terug naar vorig workbook?

 

[Ingrid B]

Workbooks("vorige.xls").Activate

 

[Guidolavespa]

ok,

maar hoe kan ik de naam bepalen van de nieuwe workbook?

Workbooks.Add ........

Dan kan ik hem inderdaad terugroepen.

 

[Ingrid B]

Dim map1 As String, map2 As String
  map1 = ActiveWorkbook.Name
  Workbooks.Add
  map2 = ActiveWorkbook.Name
  Windows(map1).Activate