Excel - como copiar todas as colunas em uma linha com base em uma condição

0

Sou iniciante em macros e espero que alguém possa ajudar. Tentando fazer um relatório a partir de uma folha de dados que atenda a algumas condições. Eu preciso buscar todos os dados (células) em uma linha, por exemplo, que atendam à condição <1 na coluna 10 e copiar essas células / linha para uma nova planilha. Não consigo encontrar nenhuma função no Excel, então espero que uma macro não avançada que eu possa modificar possa fazer o truque. Desde já, obrigado.

Frank Sannes
fonte

Respostas:

1
  • Abra uma cópia da sua planilha do Excel contendo todos os dados
  • pressione ALT+ F11para abrir o editor VBA
  • abra a planilha1 no painel esquerdo e insira o código abaixo

    Sub mymacro()
      For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        If Cells(myrow, 8) < 1 Then
          i = i + 1
          ActiveWorkbook.Sheets(1).Rows(myrow).Copy Destination:=ActiveWorkbook.Sheets(2).Rows(i)
        End If
      Next myrow
    End Sub
    
  • volte para sua planilha e pressione ALT+ F8e execute sua macro

Esse código será executado até a última linha usada, verifique se o valor da 8ª coluna é <1 e, se sim, copie a linha inteira para a próxima linha livre na planilha 2.

nixda
fonte
ok obrigada Eu vou tentar. São muitas filas com carros que vendemos. Na coluna "H", adiciono um "1" se o carro for entregue. Em todo final de mês, tenho que enviar uma reserva de pedido e, em seguida, quero apenas buscar todas as linhas com carros que não são entregues e fazer um relatório para enviar. É talvez uma maneira complicada de fazer isso, mas eu sou um novato :-)
Frank Sannes
maravilhoso :-) Se eu puder incomodá-lo mais, estou procurando os dados que ocorrem na linha 14 a 1000. talvez seja mais rápido quando a matriz for definida. Ok, eu prometo que vou esforçar mais para aprender a programação macro minha auto :-)
Frank Sannes
Mas eu quero que você aprenda algo :) O que você quer é realmente muito simples. Eu dou uma dica e você tenta, ok? Você precisa editar a linha 2.
nixda