Ir ao conteúdo
  • Cadastre-se

4hosanaj

Membros Juniores
  • Total de itens

    7
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Valdir Alvarenga Partilha ai a pasta de trabalho como exemplo, a linkagem precisa ser feita em VBA e não hyperlinks.
  2. Boa tarde @Edson Luiz Branco Funcionou perfeitamente, é justamente esse detalhe que eu precisava. Abraços.
  3. @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
  4. @Lorenna.Escobar Insira $ entre a referência da coluna e linha (Ex. A$2), assim ele move as coluna e tranca as linhas.
  5. @Arthur Luiz Alves Costa Confere se satisfaz. Planilha notas.xlsx
  6. @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.
  7. 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

×