Macro para copiar planilha e renomear

[paulo tadeu pereira]

Boa Tarde amigos

 

Estou criando uma planilha e nao consegui fazer um detalhe.

 

Fiz uma planilha que vai ser a matriz e outra chamada "01" que vai ser o modelo, Esse modelo vai ser utilizado para cada dia da semana durante o mes, exceto o domingo,  ai fiz umas formulas (bem amadoras) para desconsiderar o domingo e utilizar os dias do mes de segunda a sábado e criar a quantidade de copias de acordo com a quantidade de dias no mes.

 

Problemas 

 

01 - queria que quando a macro fizesse a copia ela ja renomeasse as planilhas seguindo a sequencia dos dias que esta na listagem (Q7:Q37)

 

02 - Na concontaneçao dos itens na coluna Q ela mantivesse o padrão 01-08 e nao 1-8 como esta ficando 

 

A macro que estou usando é essa:

 

 

Sub DuplicaERenomeia()

 

    Dim NumCopias As Integer

    

    NumCopias = Cells([7], [10])

    

    

    For numtimes = 1 To NumCopias

 

    Sheets("01").Copy After:=Sheets(ThisWorkbook.Worksheets.Count)

    

    Dim NovaPlanilha As Worksheet

    Set NovaPlanilha = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

    NovaPlanilha.Name = ThisWorkbook.Worksheets("Matriz").[Q7]

    

    

    Next

    

    

End Sub

[Xflapc2]

...

[Visitante]

Sub CópiaPlan01()

 Dim Pn As Range

  Range("Q7:Q37").Copy

  [T7].PasteSpecial Paste:=xlValues

   For Each Pn In Range("T7:T37")

    If Pn.Value <> "" Then

     Sheets("01").Copy After:=Sheets(Sheets.Count)

      ActiveSheet.Name = Format(Left(Pn, Len(Pn) - 2), "00") & "-" & _

       Format(Right(Pn, 1), "00")

    End If

   Next Pn

 Sheets("Matriz").[T:T] = ""

End Sub

[paulo tadeu pereira]

@osvaldomp a sua macro ficou boa para o que eu queria mas ficou om um problema, se ele encontrar o X ele funciona normal, mas se ele nao encontra ele para, e queria que ele pulasse e continuasse. 

[Xflapc2]

....

[Visitante]

@osvaldomp a sua macro ficou boa para o que eu queria mas ficou om um problema, se ele encontrar o X ele funciona normal, mas se ele nao encontra ele para, e queria que ele pulasse e continuasse. 

 

Encontrar o "X" ? Onde está esse "X" ?

O código lê as células no intervalo "Q7:Q37" para renomear as cópias criadas e nesse intervalo não existe "X" na figura que você postou...(???)

Disponibilize uma amostra do seu arquivo com o código instalado.

[paulo tadeu pereira]

@osvaldomp desculpa eu que viajei, a sua formula procura por valores diferentes de "" (vazio) né e quando nao encontra ele para. 

[Visitante]

@osvaldomp desculpa eu que viajei, a sua formula procura por valores diferentes de "" (vazio) né e quando nao encontra ele para. 

 

Com base nas suas respostas me parece que você não testou o código pois esta observação sua aí acima também não é verdadeira...   

Ainda com base nas suas respostas eu não consigo concluir se o código atendeu ao que você deseja...

 

O código faz cópias da planilha "01", A quantidade de cópias será igual à quantidade de células com valor no intervalo "Q7:Q37", Não foi isso que você pediu?

[paulo tadeu pereira]

@osvaldomp, cara eu testei e pelo que entendi do codigo era aquilo que relatei ( nao sou muito experiente em macros então pode ser isso) vou mandar dois prints para você ver, ela faz a copia ate 09-08 e depois para. 

[Visitante]

@paulo

Só olhando as figuras eu não consigo reproduzir o problema que está ocorrendo aí.

Repito a sugestão que passei no post #6: Disponibilize uma amostra do seu arquivo com o código instalado. Sem ver e fazer os testes no seu arquivo fica difícil te ajudar.

[paulo tadeu pereira]

@osvaldomp http://www.4shared.com/file/6xFebn_fce/Mapa_Carregamento.html esta ai se puder dar uma olhada. 

[Visitante]

@paulo

 

A sua fórmula em "Q7" é =SE(N7=$Q$5;CONCATENAR(P7;-$L$8;);" ")
Então, se Falso, a fórmula retorna "espaço", e deveria retornar "vazio". É isso que provoca o travamento na execução do código.
Altere para =SE(N7=$Q$5;CONCATENAR(P7;-$L$8;);"") (para retornar "vazio" as aspas devem estar juntas, sem espaço entre elas)

 

Verifique também em "P7", embora a coluna "P" não seja considerada na execução do código, é conveniente arrumar também as fórmulas dessa coluna: =_xlfn.IFERROR(PROCV("X";N7:O7;2);"Domingo ") >> corrija para ...;"Domingo") >> elimine o espaço antes da última aspa

[paulo tadeu pereira]

@osvaldomp Deu certo, muito obrigado.