Bom dia Pessoal!
Sou iniciante em VBA/Macros;
Tenho uma planilha de controle de pendencias que fiz, na qual preciso que as pendencias que estiverem com o valor "ok", na coluna "S" da aba "Main", sejam recortadas e coladas na aba "regularized", mas sempre colocando abaixo das outras que ja estiverem lá (as com valores ok).
Existe uma forma? ja tentei de tudo pessoal...
Me desculpem a ingorancia.
(segue planilha para exemplo)
Obrigado!
Boa tarde!!
Não testado!!
Option Explicit
Sub NaoTestado()
Dim i As Long, lrow As Long
Application.ScreenUpdating = False
With Worksheets("Main")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
For i = lrow To 7 Step -1
If .Range("S" & i).Value = "OK" Then
.Rows(i).Copy Worksheets("Regularized").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Rows(i).Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa tarde alexandre!
Então, é quase isso! mas o macro está pegando apenas a ultima linha que está como "ok" na aba "Main", e está levando para a linha 101 da aba "Regularized"...
Talvez seja mais facil entender o que quero dizer abrindo a planilha...
é quase isso! obrigado pela atenção!
Fiz um novo teste aqui e agora deu certo!
Muuuuuito obrigado!!!
Bom dia!!
Eu fico feliz que conseguiu resolver, obrigado pelo retorno!!
att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel