Problema con macro para ordenar datos
Hola Estimados. Quisiera me apoyaran a corregir una macro que utilizo para ordenar datos, específicamente me da problemas con valores en millones, pues la he utilizado con cifran en cientos y no me ha dado problemas:
Sub Macro1()
ActiveSheet.Unprotect "pepito"
Range("E11:H16").Select
Selection.Copy
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P2:S7").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("S2"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("P2").Select
ActiveSheet.Protect "pepito"
End Sub
Esta es la forma en que me ordena los datos:
P Q R S
EMPRESA A 1,250,000.00 1,250,000.00 1,250,000.00
EMPRESA DE 980,000.00 980,000.00 980,000.00
EMPRESA C 999,999.99 999,999.99 999,999.99
EMPRESA F 1,125,897.32 1,125,897.32 1,125,897.32
EMPRESA B 1,300,000.00
EMPRESA E 725,000.00
Sub Macro1()
ActiveSheet.Unprotect "pepito"
Range("E11:H16").Select
Selection.Copy
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P2:S7").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("S2"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("P2").Select
ActiveSheet.Protect "pepito"
End Sub
Esta es la forma en que me ordena los datos:
P Q R S
EMPRESA A 1,250,000.00 1,250,000.00 1,250,000.00
EMPRESA DE 980,000.00 980,000.00 980,000.00
EMPRESA C 999,999.99 999,999.99 999,999.99
EMPRESA F 1,125,897.32 1,125,897.32 1,125,897.32
EMPRESA B 1,300,000.00
EMPRESA E 725,000.00
{"lat":14.3495478371854,"lng":-90.5712890625}
1 Respuesta
Respuesta de owate
1
Para ordenarlo usa esta macro, si lo quieres hacer por la columna ES, si es por otra; simplemente cambia la letra.
Sub Ordenar()
'
' Ordenar Macro
'
'
Range("P1:S7").Select
Selection.Sort Key1:=Range("S2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
No debería darte problemas, independientemente si son centenas o millones. Si los sigues teniendo será porque en alguna de las celdas no tenga el mismo formato. Es posible que estén mezcladas celdas con formato de texto y numéricas. Compruébalo.
Sub Ordenar()
'
' Ordenar Macro
'
'
Range("P1:S7").Select
Selection.Sort Key1:=Range("S2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
No debería darte problemas, independientemente si son centenas o millones. Si los sigues teniendo será porque en alguna de las celdas no tenga el mismo formato. Es posible que estén mezcladas celdas con formato de texto y numéricas. Compruébalo.
