Acho que seu problema é facilmente resolvido se vc colocar no evento inicialize do formulario.

Use esse código no botao Unload me

Um exemplo pratico facilita muito o entendimento.

Troque Sheets.Add After:=Sheets(Sheets.Count) Por Sheets("Plan1").Copy After:=Sheets(Sheets.Count) Mas coloque no mesmo local

Nao precisa preencher uma listbox para transferir para a planilha, e dois trabalhos. E como vc ter que levar uma carga para São Paulo saindo do Rio d...

Assim!!

Onde? Em que linha? Disponibiliza o arquivo?

Onde vai gravar, sem esse layout nao é possivel ajudar, outra coisa imagens de nada servem no forum e so te da trabalho. Poste sempre, sempre mesmo P...

Eu nao vi as planilhas mas pelo titulo da do Patropi quero supor que uma tabela dinamica atende com facilidade sua necessidade.

Lançar dados em separado nao é uma boa ideia, o ideal e centralizar e se for o caso separar os dados depois. Cadastro deve ser sempre unico. No ent...

Insira nos codigos do formulario No inicio do codigo desprotege a planilha para realizar a gravação/alteração dos dados ActiveSheet.Unprotect Pass...

Se os itens forem unicos um Procv Resolve

Em Esta Pasta de Trabalho Cole este codigo Private Sub Workbook_Open() Sheets("Senha").Select End Sub

Cole esse codigo em um modulo Sub Criar() Dim QTD As Integer Dim WSPlan As Worksheet Dim Nome As String Dim Cont As Integer QTD = InputBox("...

Pessoalmente eu faria isso tudo automatizado,ou seja um nome pre definido e uma pasta unica, assim vc evita erros de digitação e todos os relatorios t...