Excel - Validar la no repetición de un texto en un libro xlsm.

 
Vista:
sin imagen de perfil

Validar la no repetición de un texto en un libro xlsm.

Publicado por Rafael (90 intervenciones) el 30/05/2024 19:37:10
Mediante una macro pretendo verificar que el texto introducido en el TextBox TEXTBOX1” del Userform USERFORM1”, no figura en la Columna “B” de la hoja “HOJA3”del libro, al objeto de que, si fuese el caso de que no figurase, el usuario pueda incluirlo en tal hoja tras contestar afirmativamente a un MsgBox vbyes/no que le preguntaría si da de alta en HOJA3 tal valor … pero esto último es otra historia: lo que pregunto ahora es simplemente cómo verifico si el dato introducido en el TextBox figura o no en tal HOJA3.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Validar la no repetición de un texto en un libro xlsm.

Publicado por Antoni Masana (2499 intervenciones) el 30/05/2024 21:19:56
Una opción:

1
2
3
4
5
6
7
8
9
10
11
Sub Function Existe_Texto(Testo as String) As Boolean
    Dim Fila As Long,
 
    Existe_Texto= False
    With Sheets("Hoja1")
        Fila = 2
        While .Cells(Fila, "B") <> Empty And Not Existe_Texto
            If .Cells(Fila,"B") = Texto Then Existe_Texto = True
        Wend
    End With
End Function

Otra Opción:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Function Existe_Texto(Testo as String) As Boolean
    Dim Fila As Long
 
    On Error Goto Error
    Fila = Application.WorksheetFunction.Match(Texto, Sheets("Hoja1").Range("B:B"), 0)
    Existe_Texto = (Fila > 0)
    Exit Function
 
Error:
    Fila = 0
    Resume Next
End Function

Cualquiera de las dos funciones si devuelve TRUE es que el Texto existe en la columna B.

P.D.: La funciones no están probadas y podría haber un error de escritura.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Validar la no repetición de un texto en un libro xlsm.

Publicado por Rafael (90 intervenciones) el 05/06/2024 19:51:16
Gracias Antoni!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar