Anónimo
13121 duplicado
Hola.
Necesito una macro que me indique si este numero 13121 esta duplicado en la columna ya sea una fila contigua hacia abajo o en filas no contiguas.y de paso como eliminaría los datos junto a este numero en 5 columnas hacia la derecha de el cuando ya este identificado como duplicado.
Dejando el primer numero 13121 de la columna intacto.
Por su ayuda gracias
Necesito una macro que me indique si este numero 13121 esta duplicado en la columna ya sea una fila contigua hacia abajo o en filas no contiguas.y de paso como eliminaría los datos junto a este numero en 5 columnas hacia la derecha de el cuando ya este identificado como duplicado.
Dejando el primer numero 13121 de la columna intacto.
Por su ayuda gracias
1 Respuesta
Respuesta de César Mera
1
Desarrollé un código para lo que preguntas... lo que no me quedó claro es si se deben eliminar los 13121 repetidos o sólo los datos a la derecha del número, el código que yo hice elimina el 13121 y los datos que están a su derecha (6 celdas), si no es así lo modificas y listo.
Otra cosa, el código se evalúa desde la primera fila de la columna que esté activa cuando ejecutes la macro... primero haz pruebas en un archivo temporal teniendo en cuenta que las modificaciones hechas mediante macros no se pueden deshacer.
Option Explicit
Sub Eliminacion()
Dim First As Boolean
First = False
Cells(1, ActiveCell.Column).Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = 13121 Then
If First = False Then
First = True
Else
Range(ActiveCell, ActiveCell.Offset(0, 5)).ClearContents
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cualquier cosa por favor me preguntas, no olvides valorar la respuesta de acuerdo a su calidad y oportunidad.
Cordialmente,
cmera
Otra cosa, el código se evalúa desde la primera fila de la columna que esté activa cuando ejecutes la macro... primero haz pruebas en un archivo temporal teniendo en cuenta que las modificaciones hechas mediante macros no se pueden deshacer.
Option Explicit
Sub Eliminacion()
Dim First As Boolean
First = False
Cells(1, ActiveCell.Column).Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = 13121 Then
If First = False Then
First = True
Else
Range(ActiveCell, ActiveCell.Offset(0, 5)).ClearContents
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cualquier cosa por favor me preguntas, no olvides valorar la respuesta de acuerdo a su calidad y oportunidad.
Cordialmente,
cmera