como podria ordenar.... ayuda

Hola, Miguel !

... no coinciden los tipos que puede ser eso

==> ¿Podrias transcribir el codigo "tal cual" lo estas usando?
_______
Saludos,
Héctor.
MS-MVP

es mismo que me pusiste tu lo copia tal cual

Miguel
"Héctor Miguel" escribió en el mensaje
news:

Hola, Miguel !

> ... no coinciden los tipos que puede ser eso

==> ¿Podrias transcribir el codigo "tal cual" lo estas usando?
_______
Saludos,
Héctor.
MS-MVP

Hola, Miguel !

==> Si el codigo [propuesto] lo has asignado a cada objeto "sobre" la columna que "manda" en el orden...
y son objetos "creados" con la barra "Cuadro de controles" [que "NO pasan" por "Application.Caller"]
habria que hacer [ligeras] modificaciones en los codigos [+/- como sigue]
en un modulo de codigo "normal" ==Public ColSort As String
Sub Ordenar_segun_columna_boton()
With ActiveSheet
If TypeName(Application.Caller) = "String" Then
With .Shapes(Application.Caller).TopLeftCell
ColSort = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
End With
End If
.Range("a3:d26").Sort Key1:=.Columns(ColSort)
End With
End Sub
en el modulo de codigo de "la hoja", en el evento _Click DE CADA BOTON ==' => SUSTITUYE "CommandButtonX" por el nombre "real" de cada boton <= '
Private Sub CommandButtonX_Click()
With CommandButtonX.TopLeftCell
ColSort = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
End With
Ordenar_segun_columna_boton
End Sub
_______
Saludos,
Héctor.
MS-MVP

Voy hacer las pruebas, pero tengo unas dudas se puede ordenar un hoja de
excel pero
que tenga lineas vacias, osea que que el listado esta separado por lienas
vacias ya que seria lo que cabe en una hoja para imprimirla, seria con el
mismo codigo o es mas complicado?

Gracias por tus respuestas

Miguel
"Héctor Miguel" escribió en el mensaje
news:eAkn$

Hola, Miguel !

==> Si el codigo [propuesto] lo has asignado a cada objeto "sobre" la

columna que "manda" en el orden...

y son objetos "creados" con la barra "Cuadro de controles" [que

"NO pasan" por "Application.Caller"]

habria que hacer [ligeras] modificaciones en los codigos [+/- como

sigue]

en un modulo de codigo "normal" ==> Public ColSort As String
Sub Ordenar_segun_columna_boton()
With ActiveSheet
If TypeName(Application.Caller) = "String" Then
With .Shapes(Application.Caller).TopLeftCell
ColSort = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
End With
End If
.Range("a3:d26").Sort Key1:=.Columns(ColSort)
End With
End Sub
en el modulo de codigo de "la hoja", en el evento _Click DE CADA BOTON

==> ' => SUSTITUYE "CommandButtonX" por el nombre "real" de cada boton <= '

Private Sub CommandButtonX_Click()
With CommandButtonX.TopLeftCell
ColSort = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
End With
Ordenar_segun_columna_boton
End Sub
_______
Saludos,
Héctor.
MS-MVP