CasaDoHardware

Tem dois caminhos escreve um codigo que exibe a aba novamente onde é so alterar xlsheetveryhidden para xlsheetvisible Ou quando for necessario, embora mais trabahoso, mais seguro, entra no editor vba e exibe manualmente, alterando a mesma propriedade.

Cole esse codigo em esta pasta de trabalho Private Sub Workbook_Open() Dim WR As Worksheet Dim Ulinha As Long 'Crie uma Aba com o nome Registro Set WR = Sheets("Registro") 'Oculta a planilha registro (nem aparece o menu ocultar do botao direito) WR.Visible = xlSheetVeryHidden Ulinha = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row 'Registra usuario WR.Cells(Ulinha, 1).Value = Environ("username") 'Registra data WR.Cells(Ulinha, 2).Value = Date 'Se quiser data e hora na mesma celula troque por now 'Registra hora WR.Cells(Ulinha, 3).Value = Time End Sub

Bom se disponiblizar parte do arquivo, com o resultado esperado fica mais fácil ajudar.

Já tentou obter dados externos em Dados pode ser que funcione.

você prentende imprimir o formato do form ou apenas os dados??? Se for os dados, crie uma planilha (que pode permanercer oculta pelo vba), que receba as informações do form e seja impressa. Pode formata-la pra que tenha a aparencia do Formulario. Se nao entender ou nao conseguir poste o arquivo com alguns dados.

Suponha que o nome do arquivo seja a celula A1 então fica assim Dim Arquivo as string Arquivo = Format(Date, "DD.MM.YYYY") & " - " & Range("A1").Value E so usar a do modo que disse anteriormente C:\Users\marcur09\Desktop\A\ & Arquivo & ".xlsx" O arquivo vai ser salvo com a data e o nome que estiver em A1 (troque de acordo com sua necessidade.)

Declara uma variavel para o nome do arquivo Dim arquivo as string Arquivo = nome que quiser No lugar do nome do arquivo use assim No lugar disso C:\Users\marcur09\Desktop\A\3M.xlsx Use isso. C:\Users\marcur09\Desktop\A\ & Arquivo & ".xlsx"

Uma coisa que vi no seu arquivo é que você tem uma lista com os caminhos e uma macro para cada planilha gerada??? E só estes tres??? Se for só o problema de enviar todos os arquivo em um unico comando pode usar esse Sub Enviartudo() 'Se quiser enviar alguma macro antes dessas 3 é so inserir antes aqui Call tst Call tst2 Call tst3 End Sub

Nao entendi o que você altera no codigo manualmente para funcionar... Mas da seja la o que for e so fazer um for para que essa alteração aconteça pelo codigo uma sugestão seria criar uma lista que pode ser apagada cada vez que o codigo rodar, para usar no for de inserção. Posso tentar fazer o For mas nao entendi onde deve ser alterado para funcionar como você precisa.

Daria pra ajudar se você soubessemos o que você precisa, afinal você disse que tem o codigo e que precisa de ajuda, mas nao disse qual.

Que numero você digitou, se ele nao tiver na lista nao vai gravar

Pode ser assim: Lista de nomes e notas.xlsm

E so alterar a coluna pela qual deseja pesquisar. O ideal é fazer uma rotina para cada campo ou colocar uma combox que indique a coluna da pesquisa.

Tenho quase certeza que isso nao é possivel.

Nao entendi. disponibilize o arquivo Assim fica mais fácil entender Mostre na planilha o resultado esperado

Minha pergunta o aluno recebe todos os materiais de uma vez, ou corre o risco de receber o material parcialmente?

você testou??? O comando vai criar um novo arquivo somente com a guia desejada e vai salvar esse novo arquivo com o nome que você definiu anteriormente. A linha so cria um novo arquivo. Insira a linha que indiquei nessa parte do codigo Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.DisplayAlerts = False 'Aqui você coloca o nome correto da aba Sheets("Plan1").Copy NameFolder = "\\ln008svr03\processos\Projeto BPF Bonsucesso\01_Controle_de_Qualidade\08_Não_Conformidades\Internas" NameFile = Replace([AU19], "/", "_") ThisWorkbook.SaveAs NameFolder & "\" & NameFile, 51

Adicione essa linha antes de salvar o arquivo Sheets("Plan1").Copy Altere o nome da aba de acordo com seu codigo

você consegue aquele resultado apenas com o Filtro ou você fez manualmente?

Sua planilha nao tem legenda. Entendi que F e folga e so o restante seria bom esclarecer.

Aparentemente o que você quer nao é difícil mas seria importante você demonstrar manualmente o resultado esperado

Disponibilize o arquivo. Ajude ser Ajudado

Como eu disse no post anterior nao consegui salvar a primeira planilha e a segunda nao tem nenhum botao.

So consegui salvar a planilha exemplo e nao entendi direito você quer copiar os dados da plan Inicial para a aba bd_sd? E isso mesmo? Se sim como os dados devem ser apresentados na plan bd_sd Em resumo quais celulas devem ser copiadas e para onde

Ve se isso ajuda Reuniao.xlsm