DUDA sobre TEXTbox y Listbox
Hola, primero que todo gracias por estar disponible para responder mi duda.
TE explico:
Necesito que lo que ingreso por un textBox no permita que los datos se repitan, esto es una lista de 34 celdas donde necesito ingresar números enteros del 1 al 4 y que las demás 30 celdas queden vacías. En resumen necesito que al ingresar dos veces el 1 o 2 o 3 o 4 por el textbox, me indique que ese valor está repetido y no permita ingresarlo.
Mi otra duda es que tengo un listbox y necesito ingresar dos columnas, yo sé ingresar una matriz por ejemplo cuando el rango corresponde a A4:B34, pero qué pasa cuando las columnas son separadas, en mi caso necesito solo ingresar la columna A y la Columna H.,...
De antemano muchas gracias
Felipe
TE explico:
Necesito que lo que ingreso por un textBox no permita que los datos se repitan, esto es una lista de 34 celdas donde necesito ingresar números enteros del 1 al 4 y que las demás 30 celdas queden vacías. En resumen necesito que al ingresar dos veces el 1 o 2 o 3 o 4 por el textbox, me indique que ese valor está repetido y no permita ingresarlo.
Mi otra duda es que tengo un listbox y necesito ingresar dos columnas, yo sé ingresar una matriz por ejemplo cuando el rango corresponde a A4:B34, pero qué pasa cuando las columnas son separadas, en mi caso necesito solo ingresar la columna A y la Columna H.,...
De antemano muchas gracias
Felipe
1 Respuesta
Respuesta de tavopz
1
Una forma sencilla de evitar repetición de datos es con fórmulas. Puedes llevar el dato del textbox al rango y usar la función CONTAR. SI para determinar si el dato se encuentra más de una vez, de ser así lo borras e indicas al usuario que debe cambiarlo.
Con respecto al listbox, creo que no puedes hacerlo con columnas separadas.
Con respecto al listbox, creo que no puedes hacerlo con columnas separadas.
Gracia gracias por tu pronta respuesta y claro me ha funcionado excelente...!
Acá dejo el código
Hoja1.Select
'Range(ubica).Value = TextBox1
Dim Rng As Range
Set Rng = Range("M4:M34")
If Application.WorksheetFunction.CountIf(Rng, 1) > 1 Or Application.WorksheetFunction.CountIf(Rng, 2) > 1 Or Application.WorksheetFunction.CountIf(Rng, 3) > 1 Or Application.WorksheetFunction.CountIf(Rng, 4) > 1 Then
MsgBox "Prioridad repetida, Debe Ingresar otra prioridad", vbCritical, "ERROR"
End If
Lástima que no hay posibilidad para mi consulta de Listbox
gracias de todas formas
Acá dejo el código
Hoja1.Select
'Range(ubica).Value = TextBox1
Dim Rng As Range
Set Rng = Range("M4:M34")
If Application.WorksheetFunction.CountIf(Rng, 1) > 1 Or Application.WorksheetFunction.CountIf(Rng, 2) > 1 Or Application.WorksheetFunction.CountIf(Rng, 3) > 1 Or Application.WorksheetFunction.CountIf(Rng, 4) > 1 Then
MsgBox "Prioridad repetida, Debe Ingresar otra prioridad", vbCritical, "ERROR"
End If
Lástima que no hay posibilidad para mi consulta de Listbox
gracias de todas formas
