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.
Saludos.
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
0