Olá. Eu tenho uma planilha que em uma aba "plan2" eu preciso COPIAR linhas inteiras e colar na "plan7". (encontrar o local onde colar eu consigo. Só não consigo fazer se repetir o procedimento)
Mas para isso, essas linhas precisam conter 3 dados simultaneamente.
São eles:
"..." na coluna K
"memo" na coluna H
"2ªD" na coluna B
Para você entender, é o seguinte:
é uma planilha financeira.
ela é composta de 3 relatórios
um rascunho (que contem todos os dados do início do mes), que gera o relatório da dezena.
um relatório por dezena. Deste relatório da dezena, ele constroi o relatório mensal.
no relatório mensal só aparece os valores PAGOS. Até aí tudo bem.
O problema é que os valores NÃO PAGOS na primeira dezena (por exemplo), tem que ir para a segunda dezena. Mas para isso eu preciso devolver para o 'rascunho', e do rascunho eu criar o relatório da segunda dezena.
Eu tentei fazer funcionar com o FOR, mas ele não encontra direitinho.
o problema está em a programação encontrar exatamente aquela linha com essas 3 variáveis, e copiar e colar todas que tiverem essas 3 variáveis.
Quando ele cola, eu consigo definir certinho aonde colar.
Consegui me fazer entender?
Eu uso essa macro aqui pra
(1) deletar as linhas onde contenham "..."
não sei se dá pra adaptar de alguma forma nas condições que eu informei acima..., lembrando que eu preciso copiar e colar em outra planilha todas as linhas que contenham
"..." na coluna K
"memo" na coluna H
"2ªD" na coluna B
Dim Col As Variant, Word As String
Let Col = ("k:k")
If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)
Let Word = "..."
With Columns(Col)
.Replace Word, "#N/A", xlWhole
.SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
Columns("k:k").Select
Selection.Delete Shift:=xlToLeft
Plan7.Range("a1").Select
Agradeço demais a ajuda!!
Postado : 24/06/2014 7:53 am