¿Alquilar o comprarte un pisito?. Esa es la pregunta que se hacen nos hacemos todos los treintañeros...

Con los tiempos que corren no es fácil decidirse, así que por gentileza de mi osita economista ahí os dejo este link a una página que no se si os ayudará a resolver la duda, aunque seguro que os entretendrá un rato:

Is it better to buy or rent [NYTimes.com]

Hoy quiero rendir homenaje a una persona que nos ha dejado y que merece ser recordada por todo lo que nos ha dejado: Steve Jobs.

Y que mejor homenaje que una frase que a él le cambió la vida, y que entraña mucho más que lo que parece:

"If you live each day as if it was your last, someday you'll most certainly be right."

Steve Jobs (1955-2011)

Por fin he encontrado un buen conversor de coordenadas en el formato GMS (grados-muinutos-segundos) a notación decimal y viceversa. La gran diferencia es que este conversor está integrado con Google Maps y puedes visualizar rápidamente la ubicación de las coordenadas introducidas.

Así que aquí os dejo el link a esta fantástica utilidad: Conversor de coordenadas GMS-decimal

He comenzado hace un par de días los entrenos con mi equipo cadete femenino y ya he tenido los primeros confrontamientos con algunas jugadoras debido a que creen que con 14 años lo saben todo sobre el baloncesto, así que en la próxima sesión les hablaré de la siguiente paradoja. ¿La entenderán?....¡espero que sí!. Más me vale que entiendan mi mensaje, porque hacer estas polladas con niñas de 14 años es tirarse al vacío...¡o sale bien o me pego una hostia de escándalo!



LA TAZA VACÍA – APRENDER A DESAPRENDER

Según una vieja leyenda, un famoso guerrero va de visita a la casa de un maestro Zen. Al llegar se presenta a éste y comienza a hablarle de todos los títulos y aprendizajes que ha obtenido en años de sacrificados y largos estudios.

Después de la presentación, le explica que ha venido a verlo para que le enseñe los secretos del conocimiento Zen.

El maestro se limita a invitarlo a sentarse y le ofrece una taza de té.

Aparentemente distraído, sin dar muestras de mayor preocupación, el maestro vierte té en la taza del guerrero, y continúa vertiendo té después de que la taza está llena.

Contrariado, el guerrero le advierte al maestro que la taza ya está llena, y que el té se escurre por la mesa.

El maestro le responde con tranquilidad: “Eso es lo que le pasará a usted, porque usted ya viene con la taza llena, así que ¿cómo podría usted aprender algo?”.

Ante la expresión incrédula del guerrero el maestro enfatizó: “A menos que su taza esté vacía, no podrá aprender nada”.

Hace ya bastante tiempo descubrí un mini fallito en las funciones BUSCARH y BUSCARV de Excel, y programé mi propia función LOOKUPH en este artículo. Sin embargo, hoy he estado programando unas macros en Excel y necesitaba hacer algo similar, con lo que reutilicé el código original, dándome cuenta que tenía una fallo:

la función estaba limitada al rango A1:Z9, es decir, a columnas y filas de un único caracter.

¡Así que aquí os dejo la nueva función ligeramente modificada y mejorada!

'/**************************************************************************
'* Function: LOOKUPH                                                       *
'*                                                                         *
'* Author: Ruben Alvarez                                                   *
'* Date: 01/07/2011                                                        *
'*                                                                         *
'* Description: Search a reference text into any row in a range and        *
'*              returns the value in the same column in the specified row  *
'**************************************************************************/

Public Function LOOKUPH(RefText As String, LookupRange As String, LookupRow As Integer, ReturnRow As Integer) As String
           
    Dim s As Variant
    s = Split(LookupRange, ":", , vbTextCompare)
    If UBound(s) = 1 Then
        
        start_col_number = CNumber(CStr(s(0)))
        final_col_number = CNumber(CStr(s(1)))
        start_col_letter = CLetter(CLng(start_col_number))
        final_col_letter = CLetter(CLng(final_col_number))
                
        start_row_number = CInt(Right(s(0), Len(s(0)) - Len(start_col_letter)))
        final_row_number = CInt(Right(s(1), Len(s(1)) - Len(final_col_letter)))
    Else
        LOOKUPH = "#ERROR#"
        Exit Function
    End If
    
    For lookup_col = start_col_number To final_col_number
        If Cells(start_row_number + LookupRow - 1, lookup_col).Text = RefText Then
            LOOKUPH = Cells(start_row_number + ReturnRow - 1, lookup_col).Value
        End If
    Next lookup_col
    
End Function

Public Function CLetter(v As Long) As String
    CLetter = Left(Cells(1, v).Address(1, 0), InStr(1, Cells(1, v).Address(1, 0), "$") - 1)
End Function
Public Function CNumber(v As String) As Integer
    CNumber = Range(v & "1").Column
End Function