Creador de passwords aleatorios Excel sin funciones.

Crearemos contraseñas aleatorias utilizando letras desde [A-Z] números entre [0-9] y letras entre [a-z] con

6 lugares o caracteres. Donde:
la posición 1 corresponde a [A-Z]
la posición 2 corresponde a [a-z]
la posición 3 corresponde a [0-9]

Crear desde una hoja de Excel una lista desde A1 hasta A122
extender la formula =caracter(A1) desde B1 hasta A122
utilizaremos la formula =SI(ALEATORIO.ENTRE(1;3)=1;CARACTER(ALEATORIO.ENTRE(65;90));SI(ALEATORIO.ENTRE(2;3)=2;CARACTER(ALEATORIO.ENTRE(97;122));CARACTER(ALEATORIO.ENTRE(48;57))))

desde la celda C1, copiandola hasta la celda H1

por último en la celda I1 usamos
=C1&D1&E1&F1&G1&H1
para concatenar los caracteres aleatorios que hemos generado.

Espero que esto les sea de utilidad y no olviden comentar...

Saludos.

Utilidades para Joomla

En este sitio podrán encontrar varias utilidades para su sitio con Joomla...

http://www.theartofjoomla.com/

Execute command denied to user x

Este error aparece cuando tratamos de usar o llamar un procedimiento almacenado de Mysql sin tener los permisos adecuados desde la base de datos. Para resolverlos, solo se deben ajustar los permisos para que permita EXECUTE.

Permitir a un usuario ejecutar todos los procedimientos: 

GRANT EXECUTE ON *.* TO 'some_user'@'some_host'; 

Permitir a un usuario ejecutar todos los procedimientos adjuntos a una base de datos específica:

GRANT EXECUTE ON db_name.* TO 'some_user'@'some_host'; 

Permitir a un usuario ejecutar un único procedimiento: 

GRANT EXECUTE ON db_name.proc_name TO 'some_user'@'some_host';

Sds, 

J

how to reset the X342n to factory defaults

So I called Lexmark support and here's how to reset the X342n to factory defaults: After powering up the printer, press Menu, * key, # key (do not hold them, just press and release). You should see a secret menu, the first option being "Serial number". From there, I scrolled down to Network menu -> NVRAM reset to reset the network card. There also seems to be a Utilities menu which allows a full system reset.

Sds,

J

Select null y valores

Una sencilla forma para obtener valores null en una consulta junto con valores diferentes de null,

select (case when tabla.campo is null then 'null' else tabla.campo end) as mi_dato
from
tabla
having mi_dato in (0,1,2,'null')

Sds,

J

ERROR 2002 (HY000): Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2).

Luego de buscar mucho, me dí cuenta que no tenia permisos para acceder a la carpeta de mysql en /var/lib/mysql

lo único que hice fue cambiar los permisos para poder acceder a todo y reinicie.. listo
sin embargo puede ser debido a esto

otra opción puede ser que mysql no se está ejecutando en el sistema,

Sds, a todos.

Función OnlyText Excel

Les dejo el código para crear una función en Excel que les permita validar si una celda en particular contiene o no solo texto, pues Excel puede determinar si el contenido de la celda es o no Numérico mediante la función ESNUMERO(), pero no viene nada para texto, de igual forma la adapté para validar nombres en Español...

Public Function TextOnly(ByVal d As Variant) As Boolean
TextOnly = True
Dim src, ptrn, ptrn1, re, re1, Match, Matches1, Matches
 ptrn = "\W+" ptrn1 = "[0-9]"

 ' Create the regular expression.

Set re = New RegExp
 re.Pattern = ptrn
 re.IgnoreCase = False
 re.Global = False
 Set re1 = New RegExp
 re1.Pattern = ptrn1
 re1.IgnoreCase = False
 re1.Global = False

 ' Perform the search.
 Set Matches = re.Execute(d)
 Set Matches1 = re1.Execute(d)

 ' Iterate through the Matches collection.
 If Matches.Count > 0 Or Matches1.Count = 0 Then
 TextOnly = False
 End If
 End Function

 Public Function Names(ByVal d As String) As Boolean
 Dim src, ptrn, ptrn1, re, re1, Match, Matches1, Matches
 ptrn = "[^ A-Za-zñáéíóú]"

 ' Create the regular expression.
 Set re = New RegExp
 re.Pattern = ptrn
 re.IgnoreCase = False
 re.Global = False

 ' Perform the search.
 Set Matches = re.Execute(d)

 ' Iterate through the Matches collection.
 If Matches.Count > 0 Then
 Names = False
 Else Names = True
 End If

 End Function