Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Desdobramento de macro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Desdobramento de macro    Dom Nov 25, 2012 4:04 am

Boa noite

Precisava rodar a macro abaixo, em intervalos diferentes para gerar valores também diferentes, então repliquei a macro, renomeando cada uma como:

Sub Rand_1, para a 1ª macro: Sub Rand_2, para 2ª e assim por diante, até a Sub Rand_9, ou seja 9 macros (cópia) para atender o que preciso. Atribui para cada macro intervalos diferentes ou seja a 1ª macro, intervalo "N8"; 2ª "O8"; 3ª "P8"... e a 9ª "V9".
1º intervalo gerar valores entre:
01_10
2º intervalo gerar valores entre:
11_21
3º intervalo gerar valores entre:
22_31
4º intervalo gerar valores entre:
32_41
5º intervalo gerar valores entre:
42_51
6º intervalo gerar valores entre:
52_61
7º intervalo gerar valores entre:
62_71
8º intervalo gerar valores entre:
72_81
9º intervalo gerar valores entre:
82_91


Alterei os parâmetros para satisfazer os valores de cada intervalo, mas não deu muito certo. Mad

Segue o código.

Sub Rand_1()
Dim i, z, choice, balls(10)
Range("N8").Select
For i = 1 To 10
balls(i) = i
Next
Randomize Timer
For i = 1 To 1 Step -1
For z = 10 To 1 Step -1
choice = 1 + Int((Rnd * (11 - 1)))
ActiveCell.Offset(0, i - 1).Value = balls(choice)
Next z
balls(choice) = 1
Next
Range("AE15").Select
End Sub

Se alguem puder ajudar, agradeço
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Desdobramento de macro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Macro Regiões da Europa - real economy
» Como valido cpf e cnpj em vba no access?
» [Resolvido]Criar Macro no Access que importe dados do Excel
» [Resolvido]Desativar mensagens de aviso em uma macro!
» 102 Códigos VBA para Access

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: