Necesito que el orden de resultados vaya de 0000 a 9999 en una macro
Necesito que la macro que mandaste funcione solamente con cambiarle el orden de botar los números que se repiten desde 0000 a 9999 no importa la cantidad que se repitan si es más o menos ni importa su ubicación claro que es bueno anexarla
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada para ordenar del 0 al 9999
Sub Repetidos()
'Por.Dante Amor
col = "IZ"
'
Application.ScreenUpdating = False
c = Columns(col).Column
Range(Cells(1, c), Cells(1, c + 2)).EntireColumn.ClearContents
For Each n In Range("A1:IX109").SpecialCells(xlCellTypeConstants, 23)
Set b = Columns(c).Find(n.Value, lookat:=xlWhole)
If Not b Is Nothing Then
Cells(b.Row, c + 1) = Cells(b.Row, c + 1) + 1
Cells(b.Row, c + 2) = Cells(b.Row, c + 2) & ", " & n.Address(False, False)
Else
u = Range(col & Rows.Count).End(xlUp).Row + 1
Cells(u, c) = n.Value
Cells(u, c + 1) = 1
Cells(u, c + 2) = n.Address(False, False)
End If
Next
For i = u To 1 Step -1
If Cells(i, c + 1) = 1 Then
Range(Cells(i, c), Cells(i, c + 2)).Delete Shift:=xlUp
End If
Next
'
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range(Cells(1, c), Cells(u, c)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range(Cells(1, c), Cells(u, c + 2))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub‘ Saludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s :)
Si la ubicación de la macro me la diera por hoja
Para entender muy bien lo que necesitas, podrías poner ejemplos claros con datos reales, puedes poner imágenes. Entre más información pongas con ejemplos claros, más fácil podré hacer la macro.
