Foro Excel

Hola, a raíz de una enseñanza de Cacho R, pongo una función que nos devuelve VERDADERO si el texto CONTIENE al menos un caracter en mayúsculas, y la función inversa:
Function CONTIENEMAYUS(Texto As String) As Boolean
Dim Objeto
Set Objeto = CreateObject("VBScript.RegExp")
With Objeto
.Pattern = "[A-Z]"
.IgnoreCase = False
.Global = True
End With
CONTIENEMAYUS = Objeto.Test(Texto)
End Function
Function CONTIENEMINUS(Texto As String) As Boolean
Dim Objeto
Set Objeto = CreateObject("VBScript.RegExp")
With Objeto
.Pattern = "[a-z]"
.IgnoreCase = False
.Global = True
End With
CONTIENEMINUS = Objeto.Test(Texto)
End Function

Hola Adrián, muy buena la función.

Cuando pongas códigos VBA, no olvides seleccionarlo y presionar el botón de "Mostrar Código" así queda encerrado en una caja con barra de desplazamiento.



Salu2.xls

Ok, TodoExcel, ahora veo que muchos usarios colocarn una imagen como la que me mostrás, como hago eso, ya que en algunos casos (muy pocos, según mi criterio) es necesario. Gracias.

Para subir una imagen seguir estos pasos:

1. Ir a la web http://tinypic.com/

2. Subir una imagen (hay un botón para seleccionar una de tu PC y otro botón para subirla)

3. Te devolverá una serie de códigos según donde quieras publicar la imagen.
Debes usar el que dice: "IMG Code for Forums & Message Boards"

4. Pegas ese código en tu mensaje en el foro y listo!

Salu2.xls

Supongamos la cadena a revisar estuviera en A1, entonces

Código: Seleccionar todo

=NO(IGUAL(MINUSC(A1);A1))

y

Código: Seleccionar todo

=NO(IGUAL(MAYUSC(A1);A1))

Muchas gracias por el aporte de como encerrrar en codigo dentro de una caja y por la imagen ya lo probare mas adelante

Att
Fernando