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
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
@@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!!!
@@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
@@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
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
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
@@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!!!
@@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
@@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
@@PlanilhasExcel oi, obrigado novamente pela força. Enviei por e-mail.
Macro pode ser uma mão na roda!