Este fórum está sendo desativado

[Levishiroma]

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

[osvaldomp]

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

[Levishiroma]

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