Evitar celdas con textos repetidos
Hola
Mi consulta es ésta: Quisiera que al introducir un texto en cualquiera
de las celdas, de los rangos (F31:O31) y (F57:O57), comprobara que ese texto ya está en otra celda de ese rango, en la misma fila, y, en este caso, añadiera 1 a
dicho texto.
Muchas gracias
1 Respuesta
¿Añada 1 al texto nuevo introducido o al que esta en alguna celda de los rangos indicados?
Es añadir 1 al texto introducido
Prueba:
'4c7569735f50
Option Explicit
Dim i As Byte
Dim paso As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Rows.Count > 1 Then Exit Sub
Dim n As Integer
Dim nn As Integer
If i > 0 Then End
n = Application.WorksheetFunction.CountIf(Range("F31:o31"), Target)
nn = Application.WorksheetFunction.CountIf(Range("F57:o57"), Target)
If (n + nn) > 0 Then
i = 1
Target = Target & 1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
paso = Target
End Sub
Abre editor de vbasic alt+f11 doble click sobre la hoja a evaluar y pegas el macro
¡ Perfecto !. Cada vez que recurro a vosotros me siento más pequeño, a la vez que super agradecido, por vuestro conocimiento y vuestra atención. Muchas Gracias, tema cerrado.
