excel + vba

[marcelokai]

Boa noite a todos .. bom ai vai meu primeiro post..

bom eu construi um formulário VBA que transfere dados direto para uma planilha de Excel, tudo funciona perfeitamente da coluna 4 até a 29.. antes da quarta coluna eu tenho formulas e depois da coluna 29 eu tenho mais 4 formulas. o formulário transfere os dados que eu digito nele para a planilha como deve ser, só que não pega a bendita das fórmulas (sempre vai para baixo das formulas )

se alguém puder me ajudar!!!!!

o código que eu uso pra salvar é o seguinte:

Private Sub salvar_Click()
totalregistro = ActiveSheet.UsedRange.Rows.Count + 1
With ActiveSheet.UsedRange
.Cells(totalregistro, 4) = Documento
.Cells(totalregistro, 5) = Pedido
.Cells(totalregistro, 6) = vale
.Cells(totalregistro, 7) = data_emissão
.Cells(totalregistro, 8) = Hospital
.Cells(totalregistro, 9) = valor
.Cells(totalregistro, 10) = médico
.Cells(totalregistro, 11) = paciente
.Cells(totalregistro, 12) = vendedor
.Cells(totalregistro, 13) = linha
.Cells(totalregistro, 14) = proced
.Cells(totalregistro, 15) = convenio
.Cells(totalregistro, 16) = inf_vale
.Cells(totalregistro, 17) = status
.Cells(totalregistro, 18) = nf
.Cells(totalregistro, 19) = data_de_dev
.Cells(totalregistro, 20) = obs_vi
.Cells(totalregistro, 31) = cod_prod
.Cells(totalregistro, 22) = lote
.Cells(totalregistro, 23) = validade
.Cells(totalregistro, 24) = quant
.Cells(totalregistro, 25) = pedido_saida
.Cells(totalregistro, 26) = nf_saida
.Cells(totalregistro, 27) = emissao_ultima


End With
MsgBox "gravando com sucesso"
End Sub

Tem como os dados que sai do useform respeitar as formulas da planilha. não irem para baixo, não sobrepor os dados que já estão na planilha. simplesmente se alinharem com a formula e seguir o baile... eu já estou ficando maluco com isso!!!!

desde já agradeço a atenção.

Editado Maio 17, 2010 por quintelab
Adicionado BBCode Code