Macro para Criar Macros ou arquivo .BAS

[madconn]

Boa Tarde,

Desenvolvi uma planilha onde o usuário coloca diversos dados, e a planilha cria automáticamente um código de macro (na propria sheet).

No momento, o usuário precisa copiar este código dentro de uma nova macro e salva-la.

Gostaria de saber se existe uma macro que realize esta ação, ou seja, uma macro que copie este código (J10:J716), e cole-o em uma macro, ou salve um arquivo .BAS para ser importado no VB.

Muito Obrigado.

[MrBeans]

madconn, eu já utilizei esse recurso de criacao de macros a partir de arquivos txt. Caso queira usar essa rotina, vai precisar adapta-la:

Sub InsertNewCode()

'Armazena o VBProject na variável VBP

Set vbp = ActiveWorkbook.VBProject

'Cria uma string chamada "path1" para armazenar o caminho e nome do arquivo que conterá o codigo em VBA

path1 = ThisWorkbook.Path & "\" & "NomeArquivo.txt"

On Error Resume Next

'Seleciona os componentes do atual projeto para remoção e importação de dados

With vbp.VBcomponents

'Importa o código VBA do arquivo txt ou bas armazenado sob o nome "path1"

'O VB vai criar um módulo novo de nome "Module1"

.Import path1

End With

vbp.VBcomponents("Module1").Name = "NovoModule"

End Sub

[madconn]

MrBeans,

Obrigado mesmo, ja ajuda muito, 90% do trabalho.

Agora só preciso salvar o codigo como .txt, o que ficou fácil fácil.

Abs!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.