Boa Tarde!
Supondo apenas uma caixa de texto em seu formulário e um botão chamados TextBox1 e CommandButton1 e que você deseja inserir na célula A1 da Plan1 do outro arquivo o conteúdo desse TextBox ao clicar no botão de comando, faça assim:
Private Sub CommandButton1_Click()
'Se o outro arquivo não estiver aberto, abra-o dessa forma:
Workbooks.Open ("C:FundamentalistaRevisao Fundamentalista - 2013 02 28.xls")
'Se já estiver aberto, basta efetuar o comando abaixo:
Workbooks("Revisao Fundamentalista - 2013 02 28.xls").Sheets("Plan1").Range("A1").Value = TextBox1.Text
End Sub
Postado : 28/03/2013 9:36 am