Imposible Clasificar

Buenos días
creo que insistiremos para que verifiquen si no hay ninguna celda fusionada, ¡porque Excel es bastante preciso en su mensaje!
Para ello, seleccionen toda la hoja a través de la casilla con el triángulo blanco a la izquierda de la regla de columnas y desfusionen todo;
vuelvan a ordenar y vean
crdlmnt

--
Errar es humano, perseverar es diabólico

Aquí están mis macros.

Las líneas 1 y 2 son títulos.
La columna A contiene fechas, algunas de las cuales, anteriores a 1900, tienen el formato martes 25 de agosto de 2015.
La columna B contiene las fechas + 1000 años en el formato 28/08/2015
Sin cálculos en la hoja.

BORDE INFERIOR CÉLULA

Public Sub OK()
Dim rango As Range
Set rango = Range("A3:G3000")
rango.Borders(xlEdgeBottom).LineStyle = xlContinuous
rango.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End Sub

VENIR INICIO TABLA

Private Sub CommandButton1_Click()
Application.Goto Range("A1"), True
End Sub

IR FIN TABLA

Private Sub CommandButton2_Click()
Range("A" & Rows.Count).End(xlUp).Select
End Sub

INSERTAR FILA ENCIMA FILA ACTIVA

Private Sub CommandButton3_Click()
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

BUSCAR

Private Sub CommandButton4_Click()
Application.CommandBars("Edit").Controls.Item("Buscar...").Execute
End Sub

ORDENAR POR FECHA

Private Sub CommandButton5_Click()
' Macro Ordenar
' Ordenar por fecha
Range("B3:B3000").Select
ActiveWindow.ScrollRow = 6
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A3:G3000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
End Sub

COLORAR CÉLULA ACTIVA + COLORAR GRUPO CÉLULAS

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then 'Rango'
Application.ScreenUpdating = False
' Limpiar el color de todas las celdas
Cells.Interior.ColorIndex = 0
' Resaltar la celda activa
Target.Interior.ColorIndex = 8
Range("C1:E1").Interior.Color = 10092543 'Pone el rango dado al color de: adaptar el color con Código Microsoft...'
Range("A2:G2").Interior.Color = 16777164 'Pone el rango dado al color de: adaptar el color con Código Microsoft...'
Range("F1:G1").Interior.Color = 13434828 'Pone el rango dado al color de: adaptar el color con Código Microsoft...'
Application.ScreenUpdating = True
End If
End Sub

Seguramente descubrirán errores o fórmulas que simplificar...

Gracias a todos...

--
Windows 8.1 Office 2013

Hola,

si Excel te lo dice, es con razón. Rara vez se equivoca...
Si ordenas por A:G, selecciona esas columnas, fusiona y desfusiona para hacer limpieza.

Eric

PD: Siempre podemos subir un archivo de ejemplo. Solo hay que poner Mr. Patata en lugar de Mr. Martin y 12 en lugar de 150000

Intentando continuamente, se acaba por lograrlo.
Así que cuanto más falla, más posibilidades tenemos de que funcione. (los Shadoks)
Además de dar las gracias (¡sí, sí, se hace!), piensa en marcar como resuelto. Gracias

Envía tu segunda captura de pantalla de la publicación inicial, pero capturando también los títulos de filas y columnas ...

--
¡Está bien, la jubilación! Sobre todo en las Antillas ... :-)
Raymond (INSA, AFPA, CF/R)

Hola
He ejecutado su macro de ORDENACIÓN, le falta la línea que aplica la ordenación ".Apply".
Dado que no nos proporciona ningún documento en el que podamos basarnos para probar, he creado una hoja con las 2 columnas en A y B como ustedes, ejecuté la macro de ordenación y todo funcionó sin problemas.

Private Sub CommandButton5_Click() ' Macro de Ordenación ' Ordenar por fecha ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("A3:G3000") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Si el error persiste en su caso y no hace el esfuerzo de proporcionarnos lo que todos le están solicitando (una copia de su hoja sin datos confidenciales) para poder ayudarle, a pesar de todas las buenas intenciones de este foro, no podremos hacer mucho por usted.
Atentamente

PD: ¿Ha copiado su hoja (solo los datos) en otra hoja y ha hecho una ordenación?