Este fórum está sendo desativado

[OliveiraRodrigo]

Bom dia,

Criei seguinte código para identificar ordens de compra novas, e colá-las dentro uma outra planilha dentro da mesma pasta de trabalho. O código está funcionando bem até chegar na parte de colar as linhas. Alguém poderia me ajudar?

Sheets("ME2N").Select
Range("B2:U2").Select
Selection.AutoFilter
Selection.AutoFilter
Range("J3:K20000").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveSheet.Range("$B$2:$U$2").AutoFilter Field:=2, Criteria1:="#N/D"
Range("D3:U3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("BASE").Select
Range("B11:AB11").Select
Selection.AutoFilter
Selection.AutoFilter
Range("C12").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

[alexandrevba]

Bom dia!!

Por favor poste seu arquivo modelo!


Att

[DJunqueira]

Selection.AutoFilter
Selection.AutoFilter

Duas vezes seguidas p/ q?