Controlar rango de celdas desde texbox
Buenas días
Me gustaría que me colaboraran tengo un código que me pinata los datos repetidos, paro quisiera que este código no me pinte los espacios en blanco y que yo le pueda designar el rango en que va actuar desde un texbox
gracias
Sub coloreaDup()
'x Elsamatilde
'controla col A
Range("A2").Select
ultima = Range("A65536").End(xlUp).Row
'recorro hasta la fila última
While ActiveCell.Row <= ultima
'guardo fila para volver del bucle
filax = ActiveCell.Row
'controlo si aún no tiene color
If ActiveCell.Interior.ColorIndex = xlNone Then
dato = ActiveCell.Value
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell = dato Then
ActiveCell.Interior.ColorIndex = 4
'opcional: colorear también el dato original
Cells(filax, 1).Interior.ColorIndex = 4
End If
Loop While ActiveCell.Row <= ultima And ActiveCell.Row <> filax
End If
'paso a la fila sgte y repito el bucle
Cells(filax + 1, 1).Select
Wend
End Sub
Me gustaría que me colaboraran tengo un código que me pinata los datos repetidos, paro quisiera que este código no me pinte los espacios en blanco y que yo le pueda designar el rango en que va actuar desde un texbox
gracias
Sub coloreaDup()
'x Elsamatilde
'controla col A
Range("A2").Select
ultima = Range("A65536").End(xlUp).Row
'recorro hasta la fila última
While ActiveCell.Row <= ultima
'guardo fila para volver del bucle
filax = ActiveCell.Row
'controlo si aún no tiene color
If ActiveCell.Interior.ColorIndex = xlNone Then
dato = ActiveCell.Value
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell = dato Then
ActiveCell.Interior.ColorIndex = 4
'opcional: colorear también el dato original
Cells(filax, 1).Interior.ColorIndex = 4
End If
Loop While ActiveCell.Row <= ultima And ActiveCell.Row <> filax
End If
'paso a la fila sgte y repito el bucle
Cells(filax + 1, 1).Select
Wend
End Sub
1 Respuesta
Respuesta de Enrique Bernal
1
Prueba con esta macro y me comentas, si te funciona no olvides finalizar la pregunta
Sub coloreaDup()
'controla col A
inicio = InputBox("Indicar la columna y la Fila Inicial", "INICIO")
Range(inicio).Select
ultima = InputBox("Indicar la columna y la Fila Final", "FIN")
ultima = Range(ultima).End(xlUp).Row
While ActiveCell.Row <= ultima
'guardo fila para volver del bucle
filax = ActiveCell.Row
'controlo si aún no tiene color
If ActiveCell.Interior.ColorIndex = xlNone Then
dato = ActiveCell.Value
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell = dato And ActiveCell <> vacio Then
ActiveCell.Interior.ColorIndex = 4
'opcional: colorear también el dato original
Cells(filax, 1).Interior.ColorIndex = 4
End If
Loop While ActiveCell.Row <= ultima And ActiveCell.Row <> filax
End If
'paso a la fila sgte y repito el bucle
Cells(filax + 1, 1).Select
Wend
End Sub
Sub coloreaDup()
'controla col A
inicio = InputBox("Indicar la columna y la Fila Inicial", "INICIO")
Range(inicio).Select
ultima = InputBox("Indicar la columna y la Fila Final", "FIN")
ultima = Range(ultima).End(xlUp).Row
While ActiveCell.Row <= ultima
'guardo fila para volver del bucle
filax = ActiveCell.Row
'controlo si aún no tiene color
If ActiveCell.Interior.ColorIndex = xlNone Then
dato = ActiveCell.Value
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell = dato And ActiveCell <> vacio Then
ActiveCell.Interior.ColorIndex = 4
'opcional: colorear también el dato original
Cells(filax, 1).Interior.ColorIndex = 4
End If
Loop While ActiveCell.Row <= ultima And ActiveCell.Row <> filax
End If
'paso a la fila sgte y repito el bucle
Cells(filax + 1, 1).Select
Wend
End Sub
