Eliminar datos repetíos utilizando un TextBox para buscarlo
Tengo una consunta espero que me puedan ayudar tengo un formulario en el cual ingresa datos… en ciertas ocasiones repito 3 a 4 bases un mismo código ahora lo que yo quiero es eliminar algunos cogito que ya no necesito.
Laque quiero es cuanto yo ingrese en un TextBox un código que me los vea cuantas veces esta repetido dichoo código y me lo elimine….
1 Respuesta
Buenas quiera que se elimine la fila yo tengo este código pero solo me elimina un solo registro.. y yo quisiera que si tengo 4 o mas registro con un mino código me los borre todos por.. ejemplo si pongo en mi TextBox el código (2290) si tengo 3 registro en ese ,ismo numero me los bore
Fila = 2
Do While Hoja05.Cells(Fila, 1) <> ""
Fila = Fila + 1
Loop
final = Fila - 1
For Fila = 2 To final
If CDbl(Me.cod.Text) = Hoja05.Cells(Fila, 1) Then
Hoja05.Cells(Fila, 1).EntireRow.Delete
Exit For
End If
Next
H o l a
Te paso la macro.
Cambia todo el código por esto
'Por Aortiz
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja05")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u
If h1.Cells(i, "A") = CDbl(Me.cod.Text) Then
h1.Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Fin"Valora para finalizar Excelente o bueno saludos!
Te paso la macro actualizada
'Por Aortiz
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja05")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = u To 2 Step -1
If h1.Cells(i, "A") = CDbl(Me.cod.Text) Then
h1.Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Fin"Valora para finalizar Excelente o bueno saludos!
