Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar e excluir li...
 
Notifications
Clear all

Copiar e excluir linha por parâmetro

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
4 Posts
3 Usuários
0 Reactions
987 Visualizações
RSS
 Synth
(@synth)
Posts: 70
Trusted Member
Topic starter
 

Boa tarde, pessoa. Beleza?

Estou com uma ideia e não sei exatamente como fazer esse macro. Preciso que ele procure tal parâmetro (tava pensando em abrir uma caixa de diálogo para digitar o que quero) na planilha. Uma vez identificado, ele copie todas as linhas, cole em outra planilha e depois disso exclua todas essas linhas. Encaminho uma planilha que ilustra minha dúvida, e na segunda aba, o resultado que espero:
Espero que possam me ajudar.

Grato,

S.

 
Postado : 16/01/2018 12:08 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Synth,

Boa tarde!

Veja se é assim.

Pasta1.zip

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 : 18/01/2018 12:29 pm
 Synth
(@synth)
Posts: 70
Trusted Member
Topic starter
 

Synth,

Boa tarde!

Veja se é assim.

Assim mesmo, Wager! Só tenho mais uma dúvida, se eu copiar essa macro pra excluir outro parâmetro, ele irá colar as linhas excluídas na outra planilha uma embaixo da outra? Meu medo é que as colagens se substituam.

 
Postado : 22/01/2018 5:02 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Sub Localizar()
    Dim i As Long
    Dim UltimaLinha As Long
    Dim Linha As Long
    
    Linha = 3
    
    While Plan2.Cells(Linha, 2).Value <> ""
    
    Linha = Linha + 1
    Wend
    
    UltimaLinha = Sheets("Plan2").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    If UltimaLinha < 3 Then UltimaLinha = 3
    
    For i = UltimaLinha To 3 Step -1
        If Range("K" & i).Value Like "*k*" Then
            Sheets("Plan2").Range("B" & i & ":K" & i).Copy Destination:=Sheets("Plan3").Range("B" & Linha)
            Linha = Linha + 1
            Sheets("Plan2").Range("B" & i & ":K" & i).Delete
        End If
    Next
    
End Sub
 
Postado : 22/01/2018 5:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico