Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 matriz de células e agrupamento

Ir para baixo 
2 participantes
AutorMensagem
alexandrelteixeira




Mensagens : 2
Data de inscrição : 27/04/2015

matriz de células e agrupamento Empty
MensagemAssunto: matriz de células e agrupamento   matriz de células e agrupamento EmptySeg Abr 27, 2015 9:41 pm

olá,

a situação é a seguinte:

tenho uma planilha preenchida de a1 até m1 com valores inteiros de 1 a 100 misturados podem ou não ser sequenciais.
exemplo;

a1=20 b1=1 c1=9 d1=55 e1=2 f1=45

preciso agrupar e mostrar os valores de de 1 a 10 em N1 e de 11 a 20 em O1 e 21 a 30 em P1 e assim sucessivamente até dar 100.

preciso que os valores sejam agrupados e mostrados dentro da célula.

exemplo:
dentro de N1 ficaria 1,3,8
dentro de O1 ficaria 13, 18
dentro de P1 22, 23, 24, 28, 29


onde não tivesse agrupamento ficasse 0, exemplo;
de 70 a 80 não tem algarismo no intervalo, ai na celula equivalente ficaria 0.


no aguardo.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

matriz de células e agrupamento Empty
MensagemAssunto: Re: matriz de células e agrupamento   matriz de células e agrupamento EmptyQua Abr 29, 2015 5:53 pm

Bom dia!!

Seria algo quase como isso?
Código:
Sub AleVBA_1025()
Application.ScreenUpdating = 0
    Sheets("Plan1").Range("A1:CV1").Copy
    Sheets("Plan2").Select
    [A1].Value = "AleVBA"
    Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
    Range("A2").CurrentRegion.Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlGuess
    ActiveSheet.Range("$A$1:$A$1000").RemoveDuplicates Columns:=1, Header:=xlYes
    Call ParteII
Application.ScreenUpdating = 1
End Sub
Sub ParteII()
Dim rng As Range
Dim I As Long
   
    Set rng = Range("A2")
    While rng.Value <> ""
        I = I + 1
        rng.Resize(10).Copy
        Range("B" & I).PasteSpecial Transpose:=True
        Set rng = rng.Offset(10)
       
    Wend
    rng.EntireColumn.Delete
End Sub

Att
Ir para o topo Ir para baixo
alexandrelteixeira




Mensagens : 2
Data de inscrição : 27/04/2015

matriz de células e agrupamento Empty
MensagemAssunto: Re: matriz de células e agrupamento   matriz de células e agrupamento EmptyQua Abr 29, 2015 8:04 pm

olá. eu aacredito que irá me ajudar, mais vou explorar vc mais um pouquinho.... eu não tenho a manha de programação,logo queria apenas um norte, onde eu tenho que criar essa macro? é um botão, controle, .. sem querer ser chato mais poderia me dar uma moral pra montar?

desde já muito agradecido.


alexandrevba escreveu:
Bom dia!!

Seria algo quase como isso?
Código:
Sub AleVBA_1025()
Application.ScreenUpdating = 0
    Sheets("Plan1").Range("A1:CV1").Copy
    Sheets("Plan2").Select
    [A1].Value = "AleVBA"
    Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
    Range("A2").CurrentRegion.Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlGuess
    ActiveSheet.Range("$A$1:$A$1000").RemoveDuplicates Columns:=1, Header:=xlYes
    Call ParteII
Application.ScreenUpdating = 1
End Sub
Sub ParteII()
Dim rng As Range
Dim I As Long
    
    Set rng = Range("A2")
    While rng.Value <> ""
        I = I + 1
        rng.Resize(10).Copy
        Range("B" & I).PasteSpecial Transpose:=True
        Set rng = rng.Offset(10)
        
    Wend
    rng.EntireColumn.Delete
End Sub

Att
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

matriz de células e agrupamento Empty
MensagemAssunto: Re: matriz de células e agrupamento   matriz de células e agrupamento EmptyQua Abr 29, 2015 8:23 pm

Boa tarde!!

Então faça o seguinte, venha para http://gurudoexcel.com/forum/index.php

lá após cadastrar se poste seu arquivo modelo compactado, que eu vou te ajudar!

At
Ir para o topo Ir para baixo
Conteúdo patrocinado





matriz de células e agrupamento Empty
MensagemAssunto: Re: matriz de células e agrupamento   matriz de células e agrupamento Empty

Ir para o topo Ir para baixo
 
matriz de células e agrupamento
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Matriz VBA
» Dúvida com matriz
» Cálculo de Matriz
» Dúvida nas funções matriz
» Concatenar Valores de uma Coluna usando um Valor como Matriz para não repetir

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: