Notifications
Clear all

Macro copiar linha com critério

8 Posts
3 Usuários
0 Reactions
1,259 Visualizações
(@tiagozl)
Posts: 4
New Member
Topic starter
 

Boa tarde, pessoal.
Bem, eu sou mais um desses que devem ter aos montes aqui: não sabe nada de programação, mas se aventura "na raça".
E quando falo que nao sei nada, é pq nao sei nada mesmo.
Mas graças a Deus existem foruns como este onde as pessoas tem a boa vontade de ajudar o próximo.
E foi assim que estou fazendo uma planilha de lançamento de pedidos e controle geral para a empresa que estou trabalhando.
Fuçando, fuçando... cheguei em, digamos, 70% dela pronta. Mas ainda falta muito.
Bem... o que precisaria agora era de uma macro que, me pedisse um critério para buscar todas as linhas que contenham este critério, copiá-la e jogar para outra planilha. Mas nao queria que copiasse toda a linha, mas apenas dá coluna A até a coluna E.
Creio que isso seja simples para vocês.
Desde já, agradeço. E aparecerei com muitas outras dúvidas, pois ainda faltam 30% para ter minha obra pronta... rsrs

Abraços a todos.

 
Postado : 23/01/2014 2:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poste seu arquivo modelo compactado!!!

Use a pesquisa do fórum!!

viewtopic.php?f=10&t=142
http://planilhando.com.br/forum/viewtop ... =16&t=6096
viewtopic.php?f=10&t=1198
viewtopic.php?f=10&t=2635

Att

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

 
Postado : 23/01/2014 4:43 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Tiagozl,

Boa Noite!

Bem... para questionamentos genéricos, respostas genéricas. seria algo assim:

    código = InputBox("Digite o código do cliente", "CÓDIGO", 1)
    For i = 2 To 100
        If Val(Sheets("Plan1").Range("A" & i).Value) = código Then
            Sheets("Plan2").Range("A" & Linha).Value = Sheets("Plan1").Range("A" & i).Value
            Sheets("Plan2").Range("B" & Linha).Value = Sheets("Plan1").Range("B" & i).Value
            Sheets("Plan2").Range("C" & Linha).Value = Sheets("Plan1").Range("C" & i).Value
            Sheets("Plan2").Range("D" & Linha).Value = Sheets("Plan1").Range("D" & i).Value
            Sheets("Plan2").Range("E" & Linha).Value = Sheets("Plan1").Range("E" & i).Value
            Linha = Linha + 1
            Exit For
        End If
    Next

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/01/2014 5:16 pm
(@tiagozl)
Posts: 4
New Member
Topic starter
 

Desculpe, amigos. Realmente nao me expliquei bem.
Seguinte: tenho uma planilha onde lanço pedidos, com nome de cliente, valor, data. O básico.
Queria como que filtrar para outra planilha os pedidos do cliente A, do cliente B, do cliente C. Só que o filtro nao serve, pois quero separar todos os pedidos na mesma planilha, para imprimir tudo separado por cliente, mas na mesma folha. O filtro eu filtraria e poderia imprimir apenas um de cada vez. Espero que tenham entendido.

 
Postado : 24/01/2014 8:42 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se poder postar seu arquivo modelo compactado.

Att

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

 
Postado : 24/01/2014 8:49 am
(@tiagozl)
Posts: 4
New Member
Topic starter
 

Segue minha planilha original.
Quero gerar da planilha "relatorio" para a planilha "cobrança"

Aproveitando, queria saber se é possível também uma macro para "CANCELAR" um lançamento (pedido) na planilha relatório. Por exemplo, uma macro que solicitasse qual PEDIDO eu quero cancelar, e ao informar, ele faça a busca e altere todo o conteudo da linha, da coluna E até a BG, para CANCELADO, mesclado. Ou (tanto faz), informasse na coluna D "CANCELADO" e nas demais apagasse as informações (deixando em branco).

Grato amigos.

 
Postado : 24/01/2014 11:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Tiagozl

Como aqui é exclusivo para apresentação dos novos usuários do fórum, movi o teu tópico para o sub-fórum VBA & Macros.

Para facilitar, por enquanto vc verá o tópico nos 2 lugares, mas daqui a pouco eu excluo o vínculo com esta sala.

At.te

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

 
Postado : 24/01/2014 12:36 pm
(@tiagozl)
Posts: 4
New Member
Topic starter
 

Vim todo ansioso achando q era uma resposta... rsrs
Mas vlw pela dica. Estou aprendendo. ;)

 
Postado : 24/01/2014 12:38 pm