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
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 28/03/2013 9:36 am