Este fórum está sendo desativado

[Angra]

Boa noite
Como trocar o resultado que aparece na box e mostrar diretamente em uma célula previamente informada

[Kledison]

Boa noite!

uma opção é você substituir (MsgBox por Range("A1").Value) por exemplo, onde A1 sé a célula para aparecer o texto.

ficando assim:

Código: Selecionar todos

 Range("A1").Value = (cores.Count) & " Vermelhos"

Att