Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Ordenar celdas sin espacios en blanco

Excel - Ordenar celdas sin espacios en blanco

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ordenar celdas sin espacios en blanco

Publicado por seooo (1 intervención) el 14/03/2017 14:36:51
Buenas tardes espero se encuentren bien miren tengo una duda les explico tengo una hoja de excel que tiene una numeracion en el rango de celda del A1 al A14

1
2
3
4
espacio en blanco
6
7
8
espacio en blanco
10
11
espacio en blanco
13
14

Lo que quiero es que en otro rango de celdas B1 al B11 me los ordene de la siguiente manera
1
2
3
4
6
7
8
10
11
13
14

Ya quitando los espacios en blanco sin que sea por filtro ni de forma manual espero me puedan ayudar muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ordenar celdas sin espacios en blanco

Publicado por Antoni Masana (2477 intervenciones) el 15/03/2017 08:47:36
Puedes hacerlo con esta macro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Sub Macro1()
    Range("A1:A14").Select
    Selection.Copy
 
    Range("B1").Select
    ActiveSheet.Paste
 
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add _
                                       Key:=Range("B1"), _
                                       SortOn:=xlSortOnValues, _
                                       Order:=xlAscending, _
                                       DataOption:=xlSortTextAsNumbers
 
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range("B2:B14")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    Range("A1").Select
End Sub

Pero tendrás que ejecutarlo de alguna forma.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar