J'ai besoin d'aide sur celui-ci. J'ai essayé tous les codes possibles, mais malheureusement, rien ne fonctionne bien avec mes codes. Quel est mon problème, je ne peux pas copyr plusieurs gammes dans excel outlook. J'ai besoin de filterr le premier et copyr dans le courrier électronique puis filterr à nouveau sur un autre pays et le coller à nouveau. Ce code fonctionne mais seul le deuxième filter vient sur l'e-mail. premier rng n'a aucune valeur. J'espère que vous pouvez m'aider avec cela.
Set Ash = Sheets("Basic List") Set FilterRange = Ash.Range("E1:AC" & Ash.Rows.Count) FieldNum2 = 5 FieldNum = 1 'Filter column = B because the filter range start in column A 'CopyToRange:=Cws.Range("A1"), 'Add a worksheet for the unique list and copy the unique list in A1 Set Cws = Sheets("Test") FilterRange.Columns(FieldNum).AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Cws.Range("A1"), _ CriteriaRange:="", Unique:=True FilterRange.AutoFilter Field:=FieldNum, _ Criteria1:=cell.Offset(0, -3).Value FilterRange.AutoFilter Field:=FieldNum2, _ Criteria1:="REALM Ops" With Ash.AutoFilter.Range On Error Resume Next Set rng = .SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With Set Ash2 = Sheets("Basic List") Set FilterRange = Ash2.Range("E1:AC" & Ash2.Rows.Count) FieldNum2 = 5 FieldNum = 1 'Filter column = B because the filter range start in column A 'CopyToRange:=Cws.Range("A1"), 'Add a worksheet for the unique list and copy the unique list in A1 Set Cws2 = Sheets("Test2") FilterRange.Columns(FieldNum).AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Cws2.Range("A1"), _ CriteriaRange:="", Unique:=True FilterRange.AutoFilter Field:=FieldNum, _ Criteria1:=cell.Offset(0, -2).Value FilterRange.AutoFilter Field:=FieldNum2, _ Criteria1:="REALM Ops" With Ash2.AutoFilter.Range On Error Resume Next Set rng3 = .SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With