USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Excel
Psicose
SÃO PAULO
SP - BRASIL
Postada em 20/08/2004 14:29 hs            
Ola Pessoal estou com uma grande duvida..
Gostaria de saber como que eu faço para mim excluir uma linha do excel via codigo, ou recortar ela e colar em outra Planilha do mesmo arquivo ... ali embaixo.
 
Isso tudo em VBA ... e criando um botao ele ordenar em ordem crescente
 
No aguardo urgente...
 
Abraço a todos..
Valeuuuu
E pra mim
     
Geronimo
não registrado
Postada em 20/08/2004 18:33 hs   
Psicose neste link você encontrar um vasto material expecifico sobre vba :
 
Agora a grosso modo para você descobrir algumas destas rotinas basta você criar uma macro e executar cada uma destas situações em uma macro diferente. depois vá na barra ferramentas insera o editor visual basic ele mostrara todo o codigo que você criou para fazer cada uma destas situções.
E o help do VBA do excel também tem otimas dicas e exemplos.
 
 
     
Psicose
não registrado
Postada em 20/08/2004 19:23 hs   
Eu ja consegui.. o que queria ..
Agora so esta faltando ..um codigo para ordenar... sem ter que usar o proprio botao no excel...
 
Noa aguardo...
     
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 22/08/2004 15:56 hs            
Bem amigo você não precisa usar o botão para rodar uma macro,
Deixa ver se o processo é este que você esta usando você quer baixar dados da tabela para o excel, ou abrir uma planilha no excel pelo vb e estes dados aparecerem ordenados em ordem crescente????
Se for para ordenar todas as colunas use este codigo em um modulo dentro de sua planilha:
Sub Macro1()
'
'
    Range("A2").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Se for para ordenar somente um coluna:
Sub Macro2()
'
'
    Columns("B:B").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
 
Depois vá em esta pasta de trabalho e cole o seguinte:
Private Sub Workbook_Open()
Macro1 ou macro2
End Sub
Salve o projeto, então toda vez que você chamar esta planilha ela ira ordenar os dados automaticamente sem precisar acionar qualquer outro botão.
 
 

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página