Ir ao conteúdo
  • Cadastre-se

4hosanaj

Membros Juniores
  • Total de itens

    8
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Pessoal estou com dificuldades em fazer uma alteração no VBA abaixo: Meu objectivo é adicionar mais um critério para além do actual (do jeito que funciona a função =SE(E). Para além da coluna E ou 5 que precisa ser igual a "Depositado" como mostra o meu código, preciso que a coluna A ou 1 seja diferente de vazio "", ou se for possível é claro que tenha alguma validação do valor usado no meu caso uma data qualquer válida desde que siga o formato dd/mm/aaaa. Sub Deposita() ultimaLinha = Folha4.Cells(Rows.Count, "a").End(xlUp).Row For i = 2 To ultimaLinha If Folha4.Cells(i, 5) = "Depositado" Then lin = Folha5.Cells(Rows.Count, "a").End(xlUp).Row + 1 Folha5.Range(Folha5.Cells(lin, 1), Folha5.Cells(lin, 5)).Value = _ Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).Value Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).ClearContents End If Next End Sub adicionado 14 minutos depois Com o código abaixo consegui inserir o segundo critério, quero saber se esxiste algum código para validação validação do valor usado no meu caso uma data qualquer válida desde que siga o formato dd/mm/aaaa, porque com este código qualquer valor ele processa. Sub Deposita() ultimaLinha = Folha4.Cells(Rows.Count, "a").End(xlUp).Row For i = 2 To ultimaLinha If Folha4.Cells(i, 5) = "Depositado" And Folha4.Cells(i, 5) <> "" Then lin = Folha5.Cells(Rows.Count, "a").End(xlUp).Row + 1 Folha5.Range(Folha5.Cells(lin, 1), Folha5.Cells(lin, 5)).Value = _ Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).Value Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).ClearContents End If Next End Sub
  2. @Valdir Alvarenga Partilha ai a pasta de trabalho como exemplo, a linkagem precisa ser feita em VBA e não hyperlinks.
  3. Boa tarde @Edson Luiz Branco Funcionou perfeitamente, é justamente esse detalhe que eu precisava. Abraços.
  4. @Edson Luiz Branco Ainda assim não funciona, envio em anexo o ficheiro com o código inicial funcionando (mover os dados de uma folha para outra), e se possível efectuar por favor a alteração do códico para o efeito pretendido. Desde já agradeço a atenção ao assunto. Nota: Envio Zipado por que não aceita carregar livro com permissão para macros. Processamento MCI.zip
  5. @Lorenna.Escobar Insira $ entre a referência da coluna e linha (Ex. A$2), assim ele move as coluna e tranca as linhas.
  6. @Arthur Luiz Alves Costa Confere se satisfaz. Planilha notas.xlsx
  7. @CasaDoHardware alterei a linha mas, ainda assim continua substituindo as informações antigas. Eu quero que ela ignore as linhas com informações e cole nas vazias.
  8. Pessoal eu estou com uma situação delicada, Tenho um livro do excel com duas planilhas para processamento de facturas, na Folha1 insiro os dados digitalizados e depois uso uma macro para copiar estes dados para a folha2 por critério. Tenho uma segunda macro que limpa os dados copiados e reorganiza a infomação na Folha1 para não existirem linhas vazias. O problema é que os dados da Folha2 já copiados anteriormente são sempre substituídos pelos novos da Folha1 e eu preciso de um código que apenas cole nas linhas vazias para poder ter um histórico. Abixo a macro que usei: Sub Digitalização3() ultimaLinha = Folha1.Cells(Rows.Count, "a").End(xlUp).Row lin = 2 For i = 2 To ultimaLinha If Folha1.Cells(i, 5) = "Feito" Then Folha2.Cells(lin, 1) = Folha1.Cells(i, 1) Folha2.Cells(lin, 2) = Folha1.Cells(i, 2) Folha2.Cells(lin, 3) = Folha1.Cells(i, 3) Folha2.Cells(lin, 4) = Folha1.Cells(i, 4) Folha2.Cells(lin, 5) = Folha1.Cells(i, 5) lin = lin + 1 End If If Folha1.Cells(i, 5) = "Feito" Then Folha1.Cells(i, 1).ClearContents Folha1.Cells(i, 2).ClearContents Folha1.Cells(i, 3).ClearContents Folha1.Cells(i, 4).ClearContents Folha1.Cells(i, 5).ClearContents End If Next End Sub Em anexo envio um ficheiro modelo. Desde já agradeço pela ajuda. Processamento MCI.xlsx

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×