Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

jtiagodias

[Resolvido] Colocar valores seguidos em células

Recommended Posts

jtiagodias

Ora bom dia,

Por motivos profissionais, há algum tempo que não aparecia por estas bandas...

Ora então cá vai mais uma dúvida. E$stou para aqui há cabeçada a fazer uns ciclos for dentro de outros e não me estou a conseguir safar. COmo sei que por vezes é melhor parar fica aqui o pedido de ajuda...

Para trás todo o código está feito. Neste momento tenho valores em células, seleccionados de acordo com os critérios que eu pretendo. Acontece que, uma vez que se tratam de valores já "escolhidos" existem células em branco.

O que queria fazer era, numa coluna ao lado, obter uma lista sem células em branco.

Passo a mostrar:

1            1

              3

3            5

              7

5            8

7            9

8

9

Share this post


Link to post
Share on other sites
jtiagodias

Poderia mostrar-te caso tivesse algo.

O código que possuo é para seleccionar os valores das células que estão pintadas. Depois queria colocá-los na coluna ao lado "ordenados"...

Share this post


Link to post
Share on other sites
jpaulino

Ok, se não tens nada um simples copy/paste para a coluna do lado, seguido de um sort não resolve o teu problema?

Mesmo que seja necessário fazer por código só precisas de gravar uma macro.

Share this post


Link to post
Share on other sites
jtiagodias

Nessa hipótese tinha eu pensado...

Ponderei apenas que alguém poderia já ter uma macro, para fazer isto, guardada e que, dessa forma, seria mais rápido.

Obrigado Paulino, vou mesmo fazer assim.

Abraço

Share this post


Link to post
Share on other sites
jpaulino

está a funcionar paulino.

podes dar como resolvido.

obrigado e abraço

Tu também podes marcar como resolvido. Só tens de editar e colocar [Resolvido] (mas já está)

Já agora, e para não veres a macro a trabalhar, podes fazer isto:

Sub Macro()

Application.ScreenUpdating = False

' código da macro

Application.ScreenUpdating = True

End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.