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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 matriz de células e agrupamento

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
alexandrelteixeira



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

MensagemAssunto: matriz de células e agrupamento   Seg 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: matriz de células e agrupamento   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrelteixeira



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

MensagemAssunto: Re: matriz de células e agrupamento   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: matriz de células e agrupamento   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: matriz de células e agrupamento   Hoje à(s) 10:48 pm

Voltar ao Topo Ir em baixo
 
matriz de células e agrupamento
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Células
» [Aula] Array e Matriz em GML
» BATALHA NA MATRIZ
» Como mesclar células do fórum (tal como no phpBB3)
» VPN PPTP com 1 matriz e 2 filial ?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: