Excel - CONVERTIR A MAYUSCULA (INPUTBOX)

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 20 puestos en Excel (en relación al último mes)
Gráfica de Excel

CONVERTIR A MAYUSCULA (INPUTBOX)

Publicado por JOSHEP (1 intervención) el 22/06/2019 18:51:40
Buenas tardes a los integrantes de este foro, quisiera que me brinde su apoyo o quizas mejorar la macro, el cual permite hacer una busqueda de datos (APELLIDOS Y NOMBRES) en la celda A, pero al buscar el dato mediante la sixtaxis INPUTBOX lo escribe en minuscula y quisiera que al buscar el dato sea en mayuscula, desde ya agraezco su apoyo y colaboracion.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub BuscarSituarseArriba2018()
Sheets("DESCUENTO").Activate
Range("A1:AA1000").Interior.ColorIndex = 0
Dim palabra As Range
buscapalabra = InputBox("Introducir lo que desea buscar", "Buscador...")
Set palabra = Cells.Find(What:=buscapalabra)
If palabra Is Nothing Then
MsgBox "La palabra no se encuentra en la lista", vbCritical, "???"
Else
If palabra = "" Then
MsgBox "Buscador vacio...", vbCritical, "???"
Else
Range(palabra.Address).Select
ActiveCell.Interior.ColorIndex = 33
MsgBox "Palabra Encontrada " & UCase(buscapalabra) & ".", vbInformation, "???"
End If
End If
Set palabra = Nothing
End Sub

Saludos.
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.149
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

CONVERTIR A MAYUSCULA (INPUTBOX)

Publicado por Antoni Masana (1459 intervenciones) el 24/06/2019 08:36:25
Te hago varias aportaciones:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub BuscarSituarseArriba2018()
    Sheets("DESCUENTO").Activate
    Range("A1:AA1000").Interior.ColorIndex = 0
    Dim palabra As Range, buscapalabra As String
 
    buscapalabra = UCase(InputBox("Introducir lo que desea buscar", "Buscador..."))
 
    If len(buscapalabra) > 0 Then
        Set palabra = Cells.Find(What:=buscapalabra)
 
        If palabra Is Nothing Then
            MsgBox "La palabra no se encuentra en la lista", vbCritical, "???"
        Else
            If palabra = "" Then
                MsgBox "Buscador vacio...", vbCritical, "???"
            Else
               Range(palabra.Address).Select
               ActiveCell.Interior.ColorIndex = 33
               MsgBox "Palabra Encontrada " & UCase(buscapalabra) & ".", vbInformation, "???"
            End If
        End If
        Set palabra = Nothing
    End If
End Sub

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