Boa tarde,
Estou com um grande problema,
Elaborei um começo de um VB :
Sub SegundaTentativa()
Dim i As Integer
Dim k As Integer
i = 1
Do While Range("F" & i).Value <> ""
ActiveSheet.Range("$A$1:$G$2000").AutoFi… Field:=6, Criteria1:=Range("F" & i).Value
Range("A2:G2000").Select
Selection.Copy
i = i + 1
Loop
End Sub
Porem eu quero que as linhas que ele copiou ele cole na aba correspondente aquele valor.
Por exemplo se ele encontrar o valor 1101 na coluna 1 eu quero que ele filtre por todos 1101 e que cole essas linhas na aba declarada como 1101.
Alguem pode ajudar?
Início