Sign in to follow this  
Guest Nielsen

Alimentar Automaticamente Excell

Recommended Posts

Guest Nielsen

Tenho um arquivo em Excel, onde na primeira planilha (aba) tenho uma listagem que entro aleatoriamente e quero que na segunda planilha (aba) ele mantenha os mesmos dados só que ordenado alfabeticamente por uma determinada coluna, mas isso automaticamente, ou seja a medida entro com os dados quero que a segunda seja atualizada. Como faço?

Share this post


Link to post
Share on other sites

que dados você quer colocar nessa planilha? que tipo de dados melhor dizendo?

Share this post


Link to post
Share on other sites
Guest Visitante

Uma coluna com nome outra com data aniversário , endereço etc. Nada de especial. O mais importante é a função.

Share this post


Link to post
Share on other sites

Creio que utilizando macros...

Você pode criar alguma regra que classifique quando o foco da celula na planilha 2 mude ou no load está tabela 1... algo assim...

Share this post


Link to post
Share on other sites
Guest Nielsen

Mas ai terei que executar a macro toda vez que fizer uma inserção na primeira planilha? Ou tem um jeito automático da macro ser executada, tipo ao salvar???

Share this post


Link to post
Share on other sites

cara se é funçao que quer então vai uma que pode ter ajudar,

É simples va aonde você que que o valor apareça e digite o sinal de =clique na aba da outra plan clique na celula onde que que o valor apareça na outra e precione enter.....pronto o valor digitado na pla um aparecerar na plan dois vai ficar augo assim...

=Plan1!C14 (onde plan1 siguinifica de onde estar tirando o valor////// C14 (isso é obvio que vai mudar no seu caso) e de onde esta vindo o valor....)

viu simples facil agiu ....espero te ajudado com sucesso....

Falowww... cara...!!!

Share this post


Link to post
Share on other sites
Guest SIR

Para copiar os dados das células basta ir a plan que sera classificada por na 1a célula = e ir com mouse a 1a da celula da original e dar enter. Depois copie essa célula para baixo até onde quiser(dimensione o que precisa pois se for toda coluna demora mais). O mesmo para os outros campos.

quanto a macro:

Veja neste endereço como fazer

http://support.microsoft.com/kb/142154/pt-br

antes=sugiro que grave no gravador de macro uma macro de classificação +- assim

ative o gravador de um nome ex. bdmodificado ou se for igual exemplo do site da microsoft nomeie como KeyCellsChanged e já gravando vai para a plan que terá os dados classificados e seleciona todas as células ou colunas(fica mais fácil) com cabeçalho e tudo, vá para o menu dados/classificar - classifique como quiser de ok e encerre a macro.

ex do site da M$

Sub auto_open()

' Run the macro DidCellsChange any time a entry is made in a

' cell in Sheet1.

ThisWorkbook.Worksheets("Sheet1").OnEntry = "DidCellsChange"

End Sub

Sub DidCellsChange()

Dim KeyCells as String

' Define which cells should trigger the KeyCellsChanged macro.

KeyCells = "A1:A10, B1:B10, C1:C10"

' If the Activecell is one of the key cells, call the

' KeyCellsChanged macro.

If Not Application.Intersect(ActiveCell, Range(KeyCells)) _

Is Nothing Then KeyCellsChanged ' Troque esse nome pelo da macro de classificação criada

End Sub

' Troque isso pela macro de classificação

Sub KeyCellsChanged() Dim Cell as Object

' If the values in A11:C11 are greater than 50...

For Each Cell In Range("A11:C11")

If Cell > 50 Then

' Make the background color of the cell the 3rd color on the

' current palette.

Cell.Interior.ColorIndex = 3

Else

' Otherwise, set the background to none (default).

Cell.Interior.ColorIndex = xlNone

End If

Next Cell

End Sub

-----------------------------------------

o resto é com você. Se gostar da brincadeira faça a cópia via macro das informações que estão sendo inseridas para a planilha que será classificada antes de executar a macro de classificação. Dá mais trabalho mais se se animar...

Share this post


Link to post
Share on other sites

nossa odeio esse quote silencioso,.... quem faz isso tinha ter as pernas cortadas fora... depois dos dedos é claro...

tai fique feliz e execute sua macro a cada 2 minutos

Sub espera()
Application.OnTime Now + TimeValue("00:02:00"), "exportar"
End Sub

ai se faz um loop infinito ai... que vai espera 2 min e volta ... eassim por diante..

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this