Gravar em Outro Arquivo/MesmaPasta

[joseA]

Bom dia!!



Salvos em uma mesma pasta, tenho dois Arquivos: Dados e Teste. Em Dados tenho um formulário, como faço para lançar no arquivo Teste diretamente, quando clicar no botão Gravar??

Código: Selecionar todos

Private Sub GRAVAR_Click()
Dim Chk As Control
Dim Lin As Integer

'Limpa a area
Range("A2:A100") = ""


Lin = 2
For Each Chk In Controls
    If TypeName(Chk) = "CheckBox" Then
        If Chk.Value = True Then
            Cells(Lin, 1) = Chk.Caption
            Lin = Lin + 1
        End If
    End If
Next

End Sub

[webmaster]

Jose,

Vamos às nossas dúvidas:

São arquivos do Excel? O que você quer é lançar os dados na planilha como se fosse um banco de dados? Se for isso, tome como base a planilha de modelo cadastro do site:

http://www.tomasvasquez.com.br/blog/mod ... soft-excel

e aponte a variável wsCadastro para a planilha do seu novo arquivo. Se precisar de ajuda com o código, é só avisar.

Abraços

[joseA]

...São arquivos do Excel? O que você quer é lançar os dados na planilha como se fosse um banco de dados?

...Se precisar de ajuda com o código, é só avisar.

Obrigado pela atenção!!

São arquivos de excel e estão no mesmo diretório.

Sim. De Dados.xls para Texte.xls e seriam lançados sempre no mesmo endereço (digamos b5, b6...) sequêncial.

Preciso de ajuda.

[webmaster]

Jose,

Chegou a olhar o modelo de cadastro? Não deu nenhuma luz?

Abraços

[Guima]

OLá José,

Acho que chegou a hora de retribuir em ao menos 1% toda ajuda que vc já me deu. Meu projeto é exatamente dessa forma. Irei te enviar um exemplo pra você, verá como é simples.... infelizmente não posso te mandar os arquivos agora, pois não estou no escritório. Chegando te envio.

Abraços

[joseA]

...Chegou a olhar o modelo de cadastro? Não deu nenhuma luz?

Sim! Mas não seria, exatamente, o que procuro. Quando verifiquei estava com o tempo escasso, verificarei com mais calma.

[joseA]

...Meu projeto é exatamente dessa forma. Irei te enviar um exemplo pra você, verá como é simples.... infelizmente não posso te mandar os arquivos agora, pois não estou no escritório. Chegando te envio...

Ok! Fer@,

Ficarei no aguardo.

[Guima]

Demorei José... desculpe. Mas espero que ainda esteja em tempo. Veja se esse exemplo atende sua necessidade. Como você pode ver é muito simples, basta ambos os arquivos estarem abertos, e você atribuir para qual Workbook estará enviando os dados. Tomara que seja o que precisa.

Abraço

[joseA]

Muito obrigado Guilherme,

Problema resolvido, atende a necessidade.

Novamente, obrigado pela atenção dispensada.


PS.:

Sem perder a oportunidade:

Depois sou eu que sou fera...

[Guima]

Rs... vc é uma figura José..rs...mas falando sério fico feliz que tenha contribuído contigo.

Abraço