Páginas

viernes, 27 de marzo de 2015

VBA Excel: Como utilizar expresiones regulares para encontrar patrones de texto

Excelente explicacion en en este post de StackOverflow:

Private Sub simpleRegex()
    Dim strPattern As String: strPattern = "^[0-9]{1,2}"
    Dim strReplace As String: strReplace = ""
    Dim regEx As New RegExp
    Dim strInput As String
    Dim Myrange As Range

    Set Myrange = ActiveSheet.Range("A1")

    If strPattern <> "" Then
        strInput = Myrange.Value
        strReplace = ""

        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With

        If regEx.Test(strInput) Then
            MsgBox (regEx.Replace(strInput, strReplace))
        Else
            MsgBox ("Not matched")
        End If
    End If
End Sub

domingo, 22 de marzo de 2015

Como ser más productivo.

La perfección es enemiga de la productividad. La perfección es muy poco notada por las demás personas. Las tendencias perfeccionistas evitan que completes una tarea, y producir es lo verdaderamente importante en la vida.

Una lista diaria de tareas te da concentración. Escribe una lista diaria de objetivos desde la noche anterior de manera que puedas examinar objetivamente que es lo que se debe completar en el día y en que deberías enfocar tu tiempo.

Toma notas constantemente. La productividad puede venir como una inspiración repentina, así que asegúrate de tomar notas y no dejar que las grandes ideas queden en el olvido.

Comprometerse públicamente. Si compartes tus objetivos con tus amigos te sentirás presionado a cumplirlos, y a sentirte avergonzado si no lo haces. Éste es un motivador muy efectivo 

Agrupa tus tareas, y tus interrupciones con el fin de ahorrar tiempo y no cambiar  constantemente de una tarea a otra.

Sugestionate de forma positiva. Define claramente tu recompensas a corto y largo plazo.

Mira a las tareas complejas como una colección de otras más pequeñas, las cuales serán mucho más fáciles de manejar y e ir eliminando.

Después de levantarte, hazte la rutina de realiza revisar tus objetivos diarios, comenzando una tarea importante y no revisando tu correo, ni Twitter, ni Facebook, ni Youtube hasta que hayas completado la primera cosa en tu lista.

Haz una lista de cosas que NO debes hacer. Identifica cuáles son las cosas que te hacen perder el tiempo e inclúyelas en tu lista para rechazarlas. Esto acelerará tu productividad aumentará tu concentración.

Si te das cuenta de que has perdido la concentración en lo que haces, toma un descanso en lugar de seguir a la fuerza con una tarea. A veces simplemente lo que se necesita es un break.

Crea primero, edita después. No te atasques en los detalles de la edición, completar una tarea es lo más importante, luego puedes regresar y revisar lo que has hecho para maximizar tu producción y tu productividad.

La multitarea es para las computadoras. No puedes hacer varias cosas a la vez de forma efectiva. Tú no eres la excepción. Hacer una tarea 100% concentrado siempre será mejor que hacer tres tareas a media llave.

Si divides tu lista de tareas en categorías  serás mucho más organizado y ahorrarás tiempo no debiendo decidir cual tarea viene después de otra. Las categorías recomendadas son: atención,en progreso, seguimiento, porvenir, ideas.

Cómo hacer que los demás respeten tu tiempo. Haz que la gente actúe primero antes de pedirte algo. Si se acercan a ti a pedirte algo o te llaman y quieren un reporte o algo, pídeles un correo. Somételos a la carga de la acción antes de que monopolicen tu tiempo.

Evita enfrascarte en pequeños detalles e ideas sin importancia. No pierdas de vista la tarea principal. Eso es una señal de procrastinacion.

Aprende a decir que no a las personas que te distraen. Entiende que hacerlo no es de por sí no es de mala educación pero sí te ahorrará horas a la semana.

Comienza el día con una tarea que hayas dejado pendiente desde hace algún tiempo o con una que parezca compleja y difícil. De esta manera te aseguras de que el día haya sido productivo y el resto de las cosas por hacer parecerán mas sencillas.

Y el principio de Pareto aplicado a la productividad: El 20% del esfuerzo inicial puesto en una tarea representará el 80% de los resultados.

Notas Basadas en el libro:



martes, 10 de marzo de 2015

VBA Outlook: Como guardar los adjuntos de un mail en una carpeta



Sí, sí, quizás sea DEMASIADA vagancia, pero yo recibo muchos mails que van a la misma carpeta y me fastidia hacer click derecho, guardar como, seleccionar la carpeta y etc... con esta macro para Outlook solo tengo que hacer Alt+F8 y ENTER
Para utilizarla primero hay que permitir que las macros se ejecuten en outlook, vayan a File/Options/Trust Center/Trust Center Settings/Macro Settings/ y selecciona "Enable All Macros". Luego reinicia Outlook.
Sí se que da pereza hacer todos estos pasos, pero no seas ordinario, piensa en todo el tiempo y las molestias que te ahorrarás de ahora en adelante.
Ahora ingresa a Outlook y presiona Alt+F11, sobre el nombre del proyecto (por lo general "Project 1") haz click derecho Insert/Module así como se ve en la imagen:

Ahora si en el espacio en blanco pega este código:
Sub guardar()

Dim mensaje As MailItem
Dim adjunto As Attachment
Dim carpeta As String

'escribo el nombre de la carpeta
carpeta = "D:\miCarpeta\"

'primero verifica si la ventana activa es del tipo inspector
If TypeName(Application.ActiveWindow) = "Inspector" Then
    Set mensaje = Application.ActiveWindow.CurrentItem 'selecciona el mail abierto
    If mensaje.Attachments.Count > 0 Then
        For Each adjunto In mensaje.Attachments 'explora cada adjunto en el mensaje
            adjunto.SaveAsFile (carpeta & adjunto.FileName)
        Next
        MsgBox "Adjuntos guardados."
    Else
        MsgBox "Sorry, no hay adjuntos que guardar."
    End If
Else
    MsgBox "Hello, no se guardó es NADA!"
    
End If
End Sub
Ya casi está, ahora solo tienes que poner entre comillas, el nombre de tu carpeta de archivos y reemplazarlo en la línea que dice carpeta = "D:\miCarpeta\" por ejemplo puede quedar como carpeta = "D:\misArchivos\" o "C:\MisDocumentos\" no se cual sea tu caso.
Y listo, ya está. Ahora cada vez que te llegue un mail, solo dale Alt+F8, se te abrirá una ventana, solo daleENTER
Parece que la macro hiciera algo muy sencillo pero este codigo tiene muchas posibilidades, puedes modificarlo para que vacie carpetas y guarde solo los nuevos adjuntos, puedes crear varias macros para cada carpeta, en fin lo que te imagines...

domingo, 8 de marzo de 2015

Davis Cup GB - USA (Andy Murray - John Isner)

jueves, 5 de marzo de 2015

Cual es la partida arancelaria de un Drone para uso comercial

Uno de los nombres con el que se conoce a estas naves no tripuladas es UAV (Unnamed Aerial Vehicle).




La Federacion Aeronautica Internacional los define de la siguiente manera:

Un aerodyne con un medio de propulsión, que no transporta humanos, el cual ha sido diseñado para investigación científica o propósitos comerciales, gubernamentales o militares.

Por lo que, sí su peso en vacío es inferior o igual a 2000kg me parece que la partida arancelaria debe ser la 8802.11