¿Cómo enumerar una lista con elementos repetidos en Excel?
Dante, buen día solicitando tu apoyo de nueva cuenta me podrías ayudar con el siguiente caso. En el mismo listado del pedido necesito que me enumere con (1) cada numero de sucursal y si esta se repite, coloque el numero (2), tomando en cuenta que si es el código 7128110724 siempre sea (1) si la sucursal tiene más de un código y no tiene el código 712803110724 le asigne (1) y no (2), te anexo el ejemplo de la sucursal 134. Saludos y gracias por tu apoyo.
Prueba con la siguiente macro
Sub orden3()
'Por.Dante Amor
c = "A"
'ant = Cells(2, c)
cod = Cells(2, "B")
n = 1
u = Range("A" & Rows.Count).End(xlUp).Row
Range("C2:C" & u).ClearContents
n24 = False
For i = 2 To u
If ant <> Cells(i, c) Then
n = 1
Else
If n24 Then
n = 2
n24 = False
End If
End If
If Cells(i, "B") = "712803110724" Then
n = 1
n24 = True
End If
Cells(i, "C") = n
ant = Cells(i, c)
Next
End SubSaludos.Dante Amor
Si es lo que necesitas. No olvides valorar la respuesta.
Gracias por tu apoyo Dante me solo que en dos casos la macro me da el (2) cuando no corresponde. Debería de ser uno ya que no corresponde al código (712803110724).
Disculpa, anexo la corrección
Sub orden3()
'Por.Dante Amor
c = "A"
'ant = Cells(2, c)
cod = Cells(2, "B")
n = 1
u = Range("A" & Rows.Count).End(xlUp).Row
Range("C2:C" & u).ClearContents
n24 = False
For i = 2 To u
If ant <> Cells(i, c) Then
n = 1
Else
If n24 Then
n = 2
n24 = False
End If
End If
n24 = False
If Cells(i, "B") = "712803110724" Then
n = 1
n24 = True
End If
Cells(i, "C") = n
ant = Cells(i, c)
Next
End Sub
