Guru do Excel e Power BI

Enviado: **15 Jul 2019 às 11:01**

Bom dia Pessoal, tudo bom?

quero pedir a ajuda para em um quadro de 100 números, que no exemplo vai de F3 até O12
eu vou pintar aleatoriamente alguns números.
Preciso que estes números que eu pintar, apareçam na linha de exemplo: F15, .......

segue planilha de exemplo,

muito obrigado,
fiquem com Deus

Enviado: **15 Jul 2019 às 11:28**

Experimente o código abaixo.

Código: Selecionar todos

Sub ReplicaNúmeros()
 Dim nArr(1 To 100), c As Range, i As Long
  For Each c In [F3:O12]
   If c.Interior.ColorIndex = 14 Then nArr(i + 1) = c.Value: i = i + 1
  Next c
  [F15].Resize(, i + 1) = nArr
End Sub

obs. com pequenas alterações no código acima é possível resolver também a questão do seu outro tópico.
viewtopic.php?f=9&t=9824

Enviado: **15 Jul 2019 às 23:19**

Muito obrigado Osvaldo.
este código já matou os 2 tópicos em questão.
com ele já posso copiar e colar células aleatórias, que o exell por si não dá esta opção.
valeu mesmo.
fica com Deus , um grande abraço

Guru do Excel e Power BI

* Formula VBA para separar números aleatórios

* Formula VBA para separar números aleatórios

Re: * Formula VBA para separar números aleatórios

* Formula VBA para separar números aleatórios