Necesito una macro que en una celda me organice los resultados de toda una hoja
Necesito una macro que me digan los numeros que se repiten en un rango determinado de celdas solo aquellos números que están repetidos no únicos y mostrar en otra celda la cantidad que se repiten y en otra celda la ubicación en la hoja
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro, recuerda cambiar "IZ" por la columna en la que deseas el resultado.
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
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub‘ F E L I Z A Ñ O T E D E S E A D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s :)
me dice que ls comentarios sl pueden
me dice que los cmentarios solo pueden aarecer despues de end sub end function o end property
me dice que los comnetarios solo pueden aareces despues de end sub end function o end property
ademas me señala sub repetidos
Borra todas las macros que tengas y copia correctamente la macro
