Celdas duplicadas VB
Hola buenas, tengo un problema que paso exlpicar:
Tengo un grupo de celdas (B3:E7) que contienen datos. Luego yo los mismos datos los voy cargando en (B14:B38) lo que yo quiero hacer es lo siguiente:
Cuando cargo un dato de (B3:E7) en (B14:B38) quiero que la celda de (B3:E7) que tiene el valor duplicado cambie de color.
¿Cuál seria el código en VB? Muchas gracias
Tengo un grupo de celdas (B3:E7) que contienen datos. Luego yo los mismos datos los voy cargando en (B14:B38) lo que yo quiero hacer es lo siguiente:
Cuando cargo un dato de (B3:E7) en (B14:B38) quiero que la celda de (B3:E7) que tiene el valor duplicado cambie de color.
¿Cuál seria el código en VB? Muchas gracias
1 Respuesta
Respuesta de emoren
1
Bueno voy a revisar su solicitud para ver que posible solución encuentro para su requerimiento, a partir del lunes le escribiría la solución, que tenga un feliz día!
Bueno a continuación le dejo el código el cual debe pegar en un modulo, recuerde que debe remplazar el nombre de la hoja donde se va a ejecutar la macro de no ser así no funcionara, ofrezco una disculpa en la demora en contestar su pregunta pero se me presento un inconveniente y tuve que realizar un viaje.
Sub CAMBIO_COLOR()
'
Application.ScreenUpdating = False
A = 0
B = 0
X = 0
Y = 0
For X = 0 To 3
For Y = 0 To 24
Sheets("Hoja1").Select
Range("B14").Select
ActiveCell.Offset(Y, X).Select
Z = ActiveCell.Value
If (ActiveCell.Value = Empty) Then
Else
For A = 0 To 3
For B = 0 To 4
Range("B3").Select
ActiveCell.Offset(B, A).Select
If (ActiveCell.Value = Z) Then
ActiveCell.Select
With Selection.Interior
.COLOR = 65535
End With
End If
Next B
Next A
End If
Next Y
Next X
Application.ScreenUpdating = True
End Sub
Espero le funcione muy bien, recuerde que cualquier consulta con mucho guso le colaboro, NO OLVIDAR PUNTUAR Y FINALIZAR LA PREGUNTA, que tenga un feliz día!
Sub CAMBIO_COLOR()
'
Application.ScreenUpdating = False
A = 0
B = 0
X = 0
Y = 0
For X = 0 To 3
For Y = 0 To 24
Sheets("Hoja1").Select
Range("B14").Select
ActiveCell.Offset(Y, X).Select
Z = ActiveCell.Value
If (ActiveCell.Value = Empty) Then
Else
For A = 0 To 3
For B = 0 To 4
Range("B3").Select
ActiveCell.Offset(B, A).Select
If (ActiveCell.Value = Z) Then
ActiveCell.Select
With Selection.Interior
.COLOR = 65535
End With
End If
Next B
Next A
End If
Next Y
Next X
Application.ScreenUpdating = True
End Sub
Espero le funcione muy bien, recuerde que cualquier consulta con mucho guso le colaboro, NO OLVIDAR PUNTUAR Y FINALIZAR LA PREGUNTA, que tenga un feliz día!
