Notifications
Clear all

copiar e colar linhas que tenham 3 informações diferentes

4 Posts
2 Usuários
0 Reactions
812 Visualizações
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Em nossa base há resposta bem próximas de sua necessidade.

Caso contrário poste seu arquivo modelo!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/06/2014 7:59 am
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Oi... então!
Eu já tinha procurado... mas não encontrei... inclusive no google.. acho situações com números, com uma variável, mas não sei adaptar...
esgotei minhas fontes... =/

anexo a planilha...

 
Postado : 24/06/2014 8:15 am
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Oi.. eu acho que encontrei o problema...
eu tenho 2 variáveis...
preciso que na coluna k tenha "..."
e na coluna j o valor seja maior que zero.

to usando essa programação aqui:

código
Sub devolver_receitas_1_dezena_nao_recebidas_ao_draft()
For i = 1 To 1000
If Plan2.Range("j" & i) = 1000 Then
Plan2.Range("j" & i).Select
Selection.EntireRow.Select
End If
Next
End Sub
fim do código

o que acontece é que ele seleciona a última opção que ele encontra na varredura...
e depois que ele fizer isso ele teria que colar em outra planilha, na linha 10, por exemplo....
será que tem como?

 
Postado : 24/06/2014 3:50 pm