Excel VBA - Ordem

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba ordem ascendente e copiar Excel planilha vba ordem ascendente e copiar

    popular!
    Adicionado em: 28/05/2011
    Modificado em: 28/05/2011
    Tamanho: 22.64 KB
    Downloads: 800

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

    Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma ordem ascendentes em valores na coluna(A) na folha de planilha, para facilitar o teste, inserí uma macro para copiar e colar dados de um determinado intervalo para uma célula especifica como mostra no segundo código(Macro). Observe que nomeei os dois intervalos de células para copiar os dados e facilitar na realização dos testes. Fiquem com Deus, Expedito Marcondes.


    Sub ordenar_coluna_a()
    Saber1.Range("A1:A65000").Sort Saber1.Range("A2"), xlAscending
    MsgBox ("Ordem ascendente inserida coluna[A]"), vbInformation, "Saberexcel - o site das macros"
    End Sub

    'copiando e colando com muita simplicidade:
    'Ao invez de várias linhas de códigos que geralmente usam, aqui fiz algo com bastante simplicidade e muito funcional,
    'veja bem, nomeei um intervalo de células na folha de planilha com o nome de 'x' Range(L1:L25) , e nomeei a célula para receber(colar)
    'como [y] Range(A1) . se quiser visualizar melhor, baixe o exemplo de planilha no final da página. Espero que o exemplo possam ajudá-los. Fiquem com Deus.
    Expedito Marcondes

    Sub copiar_simples()
    [x].Copy [y]
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel







    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planilha vba ordem crescente decrescente Excel planilha vba ordem crescente decrescente

    popular!
    Adicionado em: 24/05/2011
    Modificado em: 24/05/2011
    Tamanho: 70.98 KB
    Downloads: 932

    SaberExcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

    E
    sses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem ordem crescente e decrescente de determinados números na folha de planiha, também usamos a propriedade offset(descloc) para inserir a ordem inversa. Baixe o exemplo de planiha no final da página. Fique com Deus, Expedito Marcondes


    Sub Ordem_Crescente()
    limpar_teste
    For i = 0 To 7
    [A1].Offset(0, i) = "=2^" & i
    Next i
    End Sub

    Sub Ordem_decrescente()
    limpar_teste
    For i = 7 To 0 Step -1
    [A1].Offset(0, 7 - i) = "=2^" & i
    Next i
    End Sub

    ' **************************
    Sub Ordem_decrescente_I()
    For i = 7 To 0 Step -1
    [H3].Offset(0, -i) = "=2^" & i
    Next i
    End Sub

    Sub Ordem_decrescente_II()
    limpar_teste
    For i = 0 To 7
    [A3].Offset(0, i) = "=2^" & i
    Next i
    End Sub

    Sub limpar_teste()
    [A3:H3].ClearContents
    End Sub




    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    vba ordem macro insere ordem inversa em numeros coluna vba ordem macro insere ordem inversa em numeros coluna

    popular!
    Adicionado em: 26/11/2010
    Modificado em: 26/11/2010
    Tamanho: 42.06 KB
    Downloads: 1519

    Saberexcel - o site de quem precisa aprender macros
    Essas macros do Aplicativo Microsoft Excel VBA, inverte a ordem de números de uma determinada coluna, observe que não é ordem descendente, é uma inversão de ordem, como pode ver na imagem abaixo, a posição dos números na ordem inversa. baixe a planilha exemplo no final da página.


    '................'
    Option Explicit
    Option Base 1

    Sub Inverter_Valores_Celulas()
    Dim WkbBook As Workbook
    Dim wsPlan As Worksheet
    Dim rnDados As Range
    Dim VlrDados As Variant, VlrTemp As Variant
    Dim i As Long
    On Error Resume Next
    Set WkbBook = ActiveWorkbook
    Set wsPlan = WkbBook.Worksheets("Inverter valores celula")

    With wsPlan
    Set rnDados = .Range(.Range("A2"), .Range("A65536").End(xlUp))
    End With

    VlrDados = rnDados.Value

    For i = 1 To (UBound(VlrDados, 1) / 2)
    VlrTemp = VlrDados(i, 1)
    'Aqui para posições 1 a 9 na matriz» do último 9 valores a
    'partir da matriz original.
    VlrDados(i, 1) = VlrDados(UBound(VlrDados) - i + 1, 1) * 1
    'Aqui para posições 10 a 18 na matriz» do 9 valores a
    'partir da matriz original.
    VlrDados(UBound(VlrDados) - i + 1, 1) = VlrTemp * 1

    Next i

    With wsPlan
    .Range("B2:B" & UBound(VlrDados, 1) + 1).Value = VlrDados
    End With

    End Sub

    Sub limpar()
    Range("B2:B19").ClearContents
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - Saberexcel




    Publicidade
    Compre com garantia, segurança e ótimos preços nas lojas submarino. Eletrônicos - Submarino.com.br


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA