Ordenar datos de mayor a menor
Hola tengo el siguiente código, lo estoy tratando de usar para mi archivo, en el tengo datos de la columna A a la BE, y de la fila 12 a la 61.
Necesito que Ordene los datos de la columna BD, pero que ordene la fila completa.
Pero me marca error
Por fa ayudame
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
For fila = 12 To 61
If Cells(fila, 57).Value = " " Then
Rows(fila).Hidden = True
Else
Rows(fila).Hidden = False
End If
Next fila
Dim celdaFinal As String
Sheets("Priorización").Select
ActiveSheet.Range("BD12").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(-1, -57).Activate
celdaFinal = ActiveCell.Address
Range("BD11").Select
Range("BD11:" & celdaFinal).Sort Key1:=Range("BD12"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("BE12").Select
For Each c In Range("BE12:BE61")
Select Case c.Value
Case "Muy Alta"
c.Interior.ColorIndex = 3
Case "Alta"
c.Interior.ColorIndex = 46
Case "Media"
c.Interior.ColorIndex = 6
Case "Baja"
c.Interior.ColorIndex = 43
Case "Muy Baja"
c.Interior.ColorIndex = 33
Case Else
c.Interior.ColorIndex = 0
End Select
Next c
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Necesito que Ordene los datos de la columna BD, pero que ordene la fila completa.
Pero me marca error
Por fa ayudame
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
For fila = 12 To 61
If Cells(fila, 57).Value = " " Then
Rows(fila).Hidden = True
Else
Rows(fila).Hidden = False
End If
Next fila
Dim celdaFinal As String
Sheets("Priorización").Select
ActiveSheet.Range("BD12").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(-1, -57).Activate
celdaFinal = ActiveCell.Address
Range("BD11").Select
Range("BD11:" & celdaFinal).Sort Key1:=Range("BD12"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("BE12").Select
For Each c In Range("BE12:BE61")
Select Case c.Value
Case "Muy Alta"
c.Interior.ColorIndex = 3
Case "Alta"
c.Interior.ColorIndex = 46
Case "Media"
c.Interior.ColorIndex = 6
Case "Baja"
c.Interior.ColorIndex = 43
Case "Muy Baja"
c.Interior.ColorIndex = 33
Case Else
c.Interior.ColorIndex = 0
End Select
Next c
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
1 respuesta
Respuesta de Juan Carlos González Chavarría
1