Como copiar parte da formatação de uma célula para outra no Excel

Поделиться
HTML-код
  • Опубликовано: 4 дек 2024

Комментарии • 13

  • @jeffersonrhoads
    @jeffersonrhoads Год назад

    Boa tarde. Saberia informar um código para colar a formatação de uma pasta de trabalho em várias outras pastas que estão localizadas em um mesmo diretório? Eu criei um código que faz apenas da primeira pasta. Usei a estrutura For Each

    • @PlanilhasExcel
      @PlanilhasExcel  Год назад +1

      Eu fiz uma macro que copia dados de uma planilha pra outra e pega todas as planilhas de uma pasta. Veja se isso te ajuda, daí é só trocar a parte que copio os dados para formatação:
      pasta = "C:
      wc\Stat\dados\"
      Set arqFinal = ThisWorkbook.Sheets("dados")
      ultLin = arqFinal.Range("A" & Rows.Count).End(xlUp).Row + 1
      arq = Dir(pasta & "*.xlsx")
      Do While arq ""
      Workbooks.Open Filename:=pasta & arq
      Set arqOrigem = ActiveWorkbook.Sheets(1)
      For cont = 1 To 198
      arqFinal.Cells(ultLin, cont).Value = arqOrigem.Range(celulas(cont - 1)).Value
      Next cont
      ActiveWorkbook.Close SaveChanges:=False
      ultLin = ultLin + 1
      ' próximo arquivo na pasta
      arq = Dir
      Loop

    • @jeffersonrhoads
      @jeffersonrhoads Год назад

      @@PlanilhasExcel valeu!! Como sempre você é um dos poucos que respondem no RUclips e apresenta uma solução. Continua assim, você está de parabéns.
      É por isso que sempre que alguém pergunta sobre Excel eu menciono o seu canal. Sucesso!!!

    • @jeffersonrhoads
      @jeffersonrhoads Год назад

      @@PlanilhasExcel oi, eu testei a macro e ela está copiando os nomes das planilhas e colando na principal (a que tem a Macro). Na verdade queria que ela copie a formatação da principal e cole em outras pastas de trabalho que estão em um diretório específico. Eu criei uma macro que está fazendo o procedimento somente na primeira pasta de trabalho. Queria que fizesse nas outras. Vou mandar do código por aqui daqui a oocuo

    • @PlanilhasExcel
      @PlanilhasExcel  Год назад +1

      @@jeffersonrhoads pode me mandar por email rafael@cinoto.com.br que é mais fácil. Eu só mandei esse código pra entender como abrir todos os arquivos da pasta, mas você teria que adaptar o código para copiar a formatação. Como você disse que já tinha feito um código que fazia isso para uma pasta, teria que colocar isso dentro desse loop. Mas me manda por email que ajeito pra vc, deve ser simples agora

    • @jeffersonrhoads
      @jeffersonrhoads 11 месяцев назад

      @@PlanilhasExcel oi, obrigado novamente pela força. Enviei por e-mail.

  • @Gamarishi
    @Gamarishi 4 года назад +1

    Macro pode ser uma mão na roda!