Ejecutar datos repetidos mediante mensaje o alerta
Tengo la siguiente macro que cada vez que ingreso un dígito y se repite lo sombrea, quisiera en vez de sombrearse hay forma que me de una Alerta o mensaje que ya existe el dato registrado, a la vez me puedan ayudar en reducir la ejecución de las macros y formulaciones que existe en el modulo.
2 respuestas
Como le adjunto para que puedan revisar.
envíame a [email protected]
Este es el resultado de la macro
y esta es la macro
Sub validar_nombre()
nombre = InputBox("introduce nombre")
cuenta = WorksheetFunction.CountIf(Range("a:a"), nombre)
If cuenta >= 1 Then MsgBox ("ya existe este nombre"), vbInformation, "AVISO"
End Sub
Como adjunto mi archivo para que me puedan ayudar.
Súbelo a un servicio de nube y luego pegas el link aquí para descargarlo
https://mega.nz/#F!HvYECYyJ!iHAXmSsp_kf1vjSMi0Saxg
Le adjunto archivo su ayuda por favor.
Prueba esta macro
Sub Concatenar()
FILAS = Range("k7").CurrentRegion.Rows.Count
Set DATOS = Range("k8").Resize(FILAS - 1, 2)
With DATOS
.Columns(2).Formula = "=+CONCATENATE(RC[-3],""-"",RC[-1])"
End With
Set DATOS = Nothing
End Sub
Sub ConvertirFormulas()
Range("L8:L1000").Copy
Range("L8").PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.Save
End Sub
Sub DuplicadosUnaColumna()
Set DATOS = Range("k7").CurrentRegion
With DATOS
FILAS = .Rows.Count
numero = .Cells(FILAS, 1)
cuenta = WorksheetFunction.CountIf(.Columns(1), numero)
If cuenta > 1 Then
MsgBox ("numero repetido"), vbCritical, "AVISO"
.Rows(FILAS).Resize(1, 2) = Empty
End If
End With
Set DATOS = Nothing
End Sub
Sub ultimacelda_columna()
Range("L8").End(xlDown).Select
End Sub
Hola lo que busco es que cuando ingreso información en le columna I, QUE se concatenan en L, es en L donde se debe verificar si hay duplicado, a la vez si hago otra macro con más columnas a concatenar pueda modifcarlo, porque cambio la macro de Duplicidad y no me procesa nada:
Sub DuplicadosUnaColumna()
Set DATOS = Range("K8").CurrentRegion (si ya no es K, lo cambio con otra columna)
With DATOS
FILAS = .Rows.Count
numero = .Cells(FILAS, 1)
cuenta = WorksheetFunction.CountIf(.Columns(1), numero)
If cuenta > 1 Then
MsgBox ("numero repetido"), vbCritical, "AVISO"
.Rows(FILAS).Resize(1, 2) = Empty
End If
End With
Set DATOS = Nothing
End Sub
Gracias por la ayuda.
Ajunto macro on los ambios realizaos.https://mega.nz/#!6rIVGIAC!r2bQ-DLL3Y335P9cxd8G0jaBqMkzmqUqqwYAKFS09m8
por favor su apoyo en la solución.
Muchas gracias.
Este es el resultado de la macro
y esta es la macro
Sub buscar_repetidos()
Set datos = Range("h7").CurrentRegion
With datos
f = .Rows.Count
With .Cells(f, 5)
.Formula = "=CONCATENATE(RC[-3],RC[-1])*1"
numero = datos.Cells(f, 5)
cuenta = WorksheetFunction.CountIf(datos.Columns(5), numero)
If cuenta > 1 Then
MsgBox ("ya existe el numero " & numero), vbCritical, "AVISO"
datos.Rows(f).Clear
End If
End With
End With
Set datos = Nothing
End Sub