Este fórum está sendo desativado

[Levishiroma]

Ótima tarde a todos, como estão?

Gostaria de pedir a ajuda em uma função que não estou conseguindo ,
é o seguinte:
Tenho uma tabela com 100 números, e entre estes números, pintei as células de alguns em azul
gostaria de uma formula para listar embaixo em ordem crescente as dezenas que correspondem as células que foram pintadas em azul.

segue exemplo em anexo, muito obrigado a todos

[FelipeMGarcia]

Amigo, qual a lógica para pintar as células?

[Levishiroma]

Olá Felipe,
achei uma formula , mas ela somente reconhece uma coluna e passa para outra coluna somente os números com a célula pintada.
é isso que preciso, mas tem que reconhecer as posições que eu irei indicar
e de preferencia listar os números em uma linha vertical em ordem crescente

a lógica é que numa tabela, vou pintar as células de alguns números e preciso que fiquem separados dos demais.

segue a formula que achei:

Sub Main()
Const SOURCE_COLUMN As String = "A"
Const DESTINATION_COLUMN As String = "B"

Dim lastRow As Long
Dim sourceRow As Long
Dim destinationRow As Long
Dim ws As Worksheet

Set ws = ActiveSheet
With ws
lastRow = .Cells(.Rows.Count, SOURCE_COLUMN).End(xlUp).Row
For sourceRow = 1 To lastRow
If .Cells(sourceRow, SOURCE_COLUMN).Interior.ColorIndex <> xlColorIndexNone Then
destinationRow = destinationRow + 1
.Cells(sourceRow, SOURCE_COLUMN).Copy
.Cells(destinationRow, DESTINATION_COLUMN).PasteSpecial Paste:=xlPasteValues
End If
Next sourceRow
End With
End Sub

[osvaldomp]

Experimente o código abaixo.
O resultado será colocado na coluna T.

Código: Selecionar todos

Sub ReplicaPintadas()
 Dim c As Range
  [T:T] = ""
  For Each c In [H6:Q15]
   If c.Interior.ColorIndex = 37 Then Cells(Rows.Count, 20).End(3)(2) = c.Value
  Next c
End Sub

[Levishiroma]

olá Osvaldo
tá dando um erro, diz que não é possível executar o código no modo interromper

[Levishiroma]

deu certo Osvaldo, acho que tava dando conflito com outro código que tava tentando
só uma coisa, lá onde está T:T se eu quiser que fique em um alinha horizontal, é só alterar para S17:CP17 ok?

[Levishiroma]

tudo resolvido, muito obrigado
fiquem com Deus