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
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:
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:
Ubicación:
Ximena Ximena
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
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.File/Options/Trust Center/Trust Center Settings/Macro Settings/
y selecciona "Enable All Macros". Luego reinicia Outlook.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 SubYa 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
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:
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
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
Suscribirse a:
Entradas (Atom)