Olá pessoal! Estou precisando de uma ajuda para uma planilha que uso aqui na empresa. Esse codigo roda normal, só que me surgiu outra variavel, preciso de mais 3 variaveis. Exemplo: Quando eu digitar no lugar de ok, 1 vai para planilha PCP 1, Quando eu digitar 2, vai para planilha PCP 2, quando digitar 3 vai para planilha PCP 3 e assim por diante, tentei copiar e colar o codigo adicionando as outras variaveis, mas não deu certo, imagino que tenha que criar um loop, mas não consegui. Por favor poderiam me ajudar. Segue o codigo que uso atualmente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 9 Then Exit Sub If Target.Value <> "ok" Then Exit Sub Dim LR As Long With Sheets("PCP") LR = .Cells(Rows.Count, 1).End(xlUp).Row .Cells(LR + 1, 1).Resize(, 8).Value = Cells(Target.Row, 1).Resize(, 8).Value End With 'Rows(Target.Row).Delete End Sub

perguntou Jan 24 às 16:08

GermaHeidel's gravatar image

GermaHeidel
1

Seja o primeiro a responder a esta pergunta!
mudar para preview

Siga esta pergunta

Por Email:

Uma vez que você entrar você poderá se inscrever para todas as atualizações aqui

Por RSS:

Respostas

Respostas e Comentários

Markdown Básico

  • *italico* ou __italico__
  • **negrito** or __negrito__
  • link:[texto](http://url.com/ "Qual é a sua dúvida?")
  • imagem?![alt texto](/path/img.jpg "Qual é a sua dúvida?")
  • lista numerada: 1. Foo 2. Bar
  • para adicionar uma quebra de linha basta adicionar dois espaços onde você gostaria que a nova linha estivesse.
  • tags HTML básicas também são suportadas

Tags

×114
×27
×15

pergunta feita: Jan 24 às 16:08

pergunta lida: 0 vezes

última alteração: Jan 24 às 16:08