Notifications
Clear all

Função Aleatórioentre

9 Posts
3 Usuários
0 Reactions
2,039 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola pessoal tem como colocar um botão para acionar a função "ALEATÓRIOENTRE()" para funcionar somente quando apertado o botão?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/06/2011 10:36 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá jonas!
Quanto ao botão basta adicionar o codigo calculate a ele.
Porem essa formula é acionada toda vez que a planilha é calculada se há alguma forma de bloquear isso eu não sei.

BLZ?

T+

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/06/2011 4:22 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se os intervalos estiverem en células adjacentes fica fácil pelo VBA:

Option Explicit

Sub TESTE()
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
Dim I, J As Long
For I = 1 To 20
For J = 1 To 5
Plan1.Cells(I, J).Value = Application.RandBetween(10, 50)
Next J
Next I
Application.ScreenUpdating = True
End Sub

A variável I se refere às linhas e a variável J às colunas.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/06/2011 8:41 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado pessoal pela ajuda, valeu!!!
Mais se eu quiser colocar esses números em lugares diferentes e específicos como faço com essa macro?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/06/2011 9:37 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se for no exemplo do :

Anderson é só colocar a formula =ALEATÓRIOENTRE(1;10) nas Celulas que quer os numeros e executar a rotina.

Do Paulo, como ele mesmo informou : A variável I se refere às linhas e a variável J às colunas.
Então em For I = 1 To 20 - significa da Linha 1 até a Linha 20, e, For J = 1 To 5 Colunas 1 até a Coluna 5, ou seja, preenche com numeros aleatórios de A1 até E20, é só alterar estes parametros.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/06/2011 7:58 pm
(@neybarbosa)
Posts: 1
New Member
 

OLá pessoal!

Desculpa reviver este tópico, mas é que a minha dúvida está dentro deste tema.

Consigo criar os números aleatórios, beleza.

Porém, quero utilizá-los em cartões numerados, que serão inutilizados quando usados o código. Ex.: cliente recebeu um cartão com número X, para determinado serviço. Ao solicitá-lo e passar o código, este será anulado por mim, para não ser usado outra vez.

Porém, como criei uma página com inúmeros códigos, fica difícil localizá-lo sem uma referência ao código.

Então pensei: é possível juntar ao código aleatório a linha e coluna ao qual a célula pertence?

A ideia é gerar o código já com esta informação, que nos ajudará a localizá-lo na folha. Ex.: código gerado = 123654. Com os dados da célula, ficaria sendo 1D123654, onde "1" é a linha e "D" é a coluna.

Muito obrigado, antecipadamente!

Ney Barbosa

 
Postado : 09/11/2011 9:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Seja Bem Vindo!!!
Cara o problema é para localizar ou gera o codigo?
porque a função aleatorio mudaria toda vez que a planilha fosse calculada e isso prejudicaria não?
explica melho e se possivel posta um modelo com dados ficticios pra gente entender...
BLZ?
T+ :D

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/11/2011 8:25 am
(@pangarexcel)
Posts: 6
Active Member
 

Aproveitando os posts anteriores, eu gostaria de saber se tem alguma forma de, após ser calculado o número aleatório, este ficar FIXO na célula em que ele apareceu, SEM que ele mude após apertar F5 abrir o arquivo novamente.

 
Postado : 15/09/2012 7:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja no anexo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/09/2012 9:31 am