Ajuda No Access Ou Excell

[SHAKA1]

Bem pessoal gostaria de saber see existe alguma função no access ou no excel que pegue um valor total e divida em vezes

Ex:

R$ 50,00 em 5 vezes, ele lança 5 vezes de 10,00 !!!!!!!

ou seja pega campo de valor total e divide pelo campo de parcelar !!!!!!!!!

[SHAKA1]

ninguém sabe?????

[Viny]

Pelo que dá a entender na sua mensagem a fórmula é bem simples:

Digite-a em uma célula qualquer (ex.: C1)

=A1/B1

Onde:

A1 = Total;

B1 = N.º de parcelas.

O resultado será o valor de cada parcela.

Caso não seja isso o que você quer, reformule a pergunta ok?

[]'s

Viny

[SHAKA1]

valeu Viny mas até ai tudo bem o problema todo é fazer ele lançar o lalor picado pelo numero de vezes !!!!

Ex:

total: 50 vezes:5 valor parcela:10

mas estes 10 tem que ser lançados 5 vezes

tipo

jan fev mar abr mai

10 10 10 10 10

entendido??????

[Viny]

Postado Originalmente por SHAKA1@23 jun 2004, 23:40

valeu Viny  mas até ai tudo bem o problema todo é fazer ele lançar o lalor picado pelo numero de vezes !!!!

entendido??????

Entendido!

Desconheço uma função específica que faça isso, mas isso pode ser feito facilmente criando uma macro.

Primeiro, faça toda a planilha, incluindo as fórmulas básicas e layout. Em seguida:

1 - Clique no Menu 'Ferramentas > Macro > Macros...' ou pressione 'Alt + F8';

2 - Na janela que abrir digite um nome para a Macro no campo 'Nome da macro', e em seguida clique em 'Criar';

3 - Vai aparecer uma janela do Editor do Visual Basic com módulo (ou macro) aberta para edição e inserção de códigos. Aparecerá assim:

Sub Macro1()
End Sub

* Onde Macro1 (sem parênteses) é o nome da macro digitada no passo 2.

4 - Entre as linhas 'Sub Macro1()' (que deve ser sempre a primeira linha) e 'End Sub'(que deve ser sempre a última linha), insira os códigos. Ficará assim:

Sub Macro1()
 b = Worksheets("Plan1").Range("A1")
  For c = 1 To b
    Worksheets("Plan1").Cells(4, c).Value = Worksheets("Plan1").Range("C1")
  Next c 
End Sub

Onde:

b = Worksheets("Plan1").Range("A1") armazena na variável 'b' a célula em que consta a quantidade de parcelas (neste exemplo, 'A1' na planilha 'Plan1'). Você deverá alterar esse valor de acordo com a disposição dele na sua planilha (célula).

For c = 1 To b armazena na variável 'c' o número (intervalo) de parcelas. Este valor 1 refere-se à coluna inicial (1 para coluna A, 2 para B e assim por diante). O 'b' se refere ao número de parcelas, já definido anteriormente.

Worksheets("Plan1").Cells(4, c)... define as coordenadas do local onde os valores serão inseridos. Neste caso, na planilha 'Plan1', na linha 4. O 'c' se refere ás colunas. Este valor é o único que não pode ser alterado (para alterar a coluna inicial, faça isso na linha anterior).

....Value = Worksheets("Plan1").Range("C1") preenche as células indicadas nas linhas anteriores com o valor da célula 'C1'. Você DEVE alterar este valor (C1) para o número da célula onde consta o valor de cada parcela (ex.: "A5". Não esqueça das "aspas").

Next c não necessita alterações, deve ser mantida assim.

A macro está pronta.

Para ativar a macro:

- Desenhe um quadrado (ou outro objeto qualquer, ou mesmo insira uma figura) na planilha. Esse será o "botão" que processará a macro assim que for pressionado. Uma vez que ele tiver sido criado, clique com o botão direito sobre ele e clique em 'Atribuir macro...'. Em seguida, clique na macro que você criou e pressione 'Ok'. Está tudo pronto. Assim que você clicar sobre o botão, ele processará as informações e preencherá as células indicas com o valor de cada parcela e de acordo com o número de parcelas.

[]'s

Viny