Olá, Bom Dia
Estou com um problemão aqui, e até agora não consegui solucioná-lo.
É o seguinte. tenho várias planilhas na minha pasta de trabalho, e essas possuem várias células com uma mesma fórmula. Pra não ter que ficar fazendo isso manualmente, por ser uma quantidade muito grande, queria automatizar isto, e se possível deixar meu arquivo mais leve também(porque está muito pesado, e talvez poderia ajudar).
Eu criei um formulário com três campos, e fiz o teste sem fórmulas. Deu tudo certo, consegui inserir os dados com êxito. Inseri pequenas fórmulas, como algo do tipo : =C15+C16*C17, novamente tudo ocorreu normalmente. Porém quando fui inserir as fórmulas que eu quero, deu erro. Elas são consideravelmente grandes, e não sei se isso interferiu, me retornou o seguinte erro:
Erro em tempo de exucução '1004:
Erro de definição de aplicativo ou de definição de objeto.
O código que usei para o formulário foi o seguinte :
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Port.")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'copia os dados para as celulas
ws.Cells(5, 4).Value = Me.TextBox1.Value
ws.Cells(15, 6).Value = Me.TextBox2.Value
ws.Cells(20, 4).Value = Me.TextBox3.Value
End Sub
Postado : 21/04/2014 4:23 am