Planilha para criar pastas automaticamente

[@AdrianaRibeiro-qh6lo]

Excelente conteúdo! Didático, prático e objetivo. O código é perfeito, já estou utilizando. Com certeza vou conferir o curso. Obrigada

[@gianclaudioalvesdeoliveira4243]

Boa tarde, Rieper.... precisei criar 272 pastas. Fiz isso em segundos! Obrigado por compartilhar conhecimento.

[@marcosbrunosilva6716]

Muito bom! Prático e diferente do que conheço. Sem criar muitas variáveis, declará-las. Bem mais direto. Muito interessante!!

[@gilvandresilva4658]

Professor... muito obrigado.. Tem me ajudado muito...

[@GuiadoExcelOficial]

Valeu Gilvandre. Grato por assinar e acompanhar o canal.

Caramba Rieper.... precisei criar 38.000 pastas. Fiz isso em minutos! E ainda adicionei uns recursos para facilitar ainda mais a criação. Deus te abençoe mestre. Obrigado pelo ensinamento.

[@GuiadoExcelOficial]

Valeu! Feliz Natal e obrigado por me acompanhar.

[@jeffersonrhoads]

​@@GuiadoExcelOficialAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?

[@lh.cardoso]

Muito bom Rieper ! Dei uma ajustada aqui na minha panilha, onde eu adicionei uma coluna para "chamar" o nome da pasta...e assim que também consegui inserir / criar subpastas.

[@GuiadoExcelOficial]

Excelente, bom trabalho. Grato por assinar e acompanhar o canal.

[@jeffersonrhoads]

​@@GuiadoExcelOficialAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?

[@joaovitortarantino4933]

Sugestão de melhoria de planilha era que dps de criar a planilha para criar pastas a planilha tivesse a opção de mover arquivos com o nome da pasta pra dentro da pasta criada

[@GuiadoExcelOficial]

Olá João, veja neste artigo: www.guiadoexcel.com.br/mover-e-renomear-arquivos-excel-vba/. Grato por assinar e acompanhar o canal.

[@joaovitortarantino4933]

@@GuiadoExcelOficial vlw

[@jaimeluno2541]

Olá. Excelente código. Acabei de montar igual e vai me ajudar muito, para cada mês tenho que abrir 70 pastas na mão. Gostaria de inserir um arquivo Excel padrão (igual para todas) dentro de cada pasta criada para ser usado em cada pasta.

[@GuiadoExcelOficial]

Olá Jaime, veja: www.guiadoexcel.com.br/mover-e-renomear-arquivos-excel-vba/

[@nelsoncamargodasilvaa4343]

Show

[@GuiadoExcelOficial]

Valeu! Grato por assinar e acompanhar o canal.

[@albanoteles4924]

Excelente dica e obrigado pela partilha. Será que (pode ensinar o envio em lote de ficheiros por email e para impressão também em Lote?) Tipo Mala directa dos Emails e formulários em lote.

[@GuiadoExcelOficial]

Olá sr. Albano, sim veja neste artigo: www.guiadoexcel.com.br/copiar-planilha-e-enviar-como-anexo-por-email-com-outlook/

[@cristianaleffermino9409]

Boa tarde, Para pastas que estão com um caminho na rede compartilhada, como ficaria? Com o código explicado ele não encontra o caminho e não estou conseguindo mudar isso. Alguém consegue me ajudar? Desde já obrigado.

[@WagnerCavalcanteS]

Aqui retorna um erro no Mkdir lPasta, informando que o caminho não foi informado. Nesse caso eu realmente não sei como lPasta irá chamar o caminho que eu quero...

[@cesarnataliasilva]

Parabéns pela Aula, tem como fazer este mesmo procedimento pelo Google Planilhas?

[@GuiadoExcelOficial]

Olá Cesar, não tem como. Não roda VBA no Google Sheets. Eu não sou especialista em Google Sheets para te ajudar com isso, talvez possa ser feito via programação Apps Script do Google Sheets. Grato por assinar e acompanhar o canal.

[@asouzarr]

Private Sub lsCriarPasta(ByVal lPasta As String, ByRef strStatus As String) On Error Resume Next strStatus = "Pasta Criada!" MkDir lPasta If Err.Number > 0 Then strStatus = Err.Description End If End Sub Public Sub lsCriarPastas() Dim iTotalLinhas As Long Dim i As Long Dim strStatus As String iTotalLinhas = CriarPastas.Cells(CriarPastas.Row.Count, 2).End(xlUp).Row i = 9 While i

[@juliooliveira5467]

Private Sub lsCriarPasta(ByVal lPasta As String, ByRef strStatus As String) On Error Resume Next strStatus = "Pasta Criada!" MkDir lPasta If Err.Number > 0 Then strStatus = Err.Description End If End Sub Public Sub lsCriarPastas() Dim iTotalLinhas As Long Dim i As Long Dim strStatus As String iTotalLinhas = CriarPastas.Cells(CriarPastas.Rows.Count, 2).End(xlUp).Row i = 9 While i