Extraer caracteres numéricos de celda

Hola.

Si tenemos la necesidad de extraer los números de una celda que está computas por números y letras como el siguiente ejemplo:

Lo que debemos hacer es crear la siguiente función:

Public Function ExtraeNumeros(celda)
   Dim n As Long, c As String, r As String
   For n = 1 To Len(celda)
      c = Mid(celda, n, 1)
      Select Case c
      Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
         r = r & c
      End Select
   Next
   ExtraeNumeros = r
End Function

Quedando de la siguiente manera:

Saludos

Juan A.

Frases Motivadoras de Will Smith Que Te Harán ¡Volar de la Silla y Hacer Algo!

Estas son algunas frases motivadoras tremendamente poderosas del reconocido actor y cantante Will Smith que transmiten su estilo de vida y que estoy seguro te harán ¡volar de la silla y hacer algo!. Léelas, compártelas y vívelas en grande.

1. "Sé quién soy y sé en qué creo y eso es todo lo que necesito saber. Así que a partir de eso haces lo que necesites hacer. Lo que creo que sucede es que hacemos la situación más complicada de lo que tiene que ser. ¡No puede ser tan fácil"!

2. "La diferencia entre talento y habilidad es uno de los conceptos peor entendidos para las personas que están tratando de sobresalir, que tienen sueños, que quieren hacer cosas. El talento lo tienes naturalmente. La habilidad solo se desarrolla a través de horas y horas y horas de dedicación a tu actividad"

3. "Mientras los demás duermen yo estoy trabajando, mientras los demás comen yo estoy trabajando". 

4. "No hay un modelo fácil de hacerlo, no importa qué tan talentoso seas. Tu talento te va a fallar si no estás capacitado, si no estudias, si no trabajas realmente duro y te dedicas a ser mejor cada día nunca serás capaz de dedicar tu arte a la gente que quieres". 

5. “Jamás me digas que hay algo que no puedes hacer” – No tratas de construir una pared, no sales a construir una pared. No dices “voy a construir la pared más grande e imponente que se haya construido jamás”, no, no empiezas así. Dices “voy a poner este ladrillo tan perfectamente como un ladrillo pueda ponerse” y lo haces todos los días, pronto tienes una pared.

6. "Quiero representar una idea, quiero representar posibilidades, quiero representar la idea de que tú realmente puedes hacer lo que quieras. Uno de mis libros favoritos es El Alquimista de Paulo Coelho, yo simplemente me lo creo. Yo creo que puedo crear lo que sea lo que sea que quiera crear".

7. "El primer paso: antes de que alguien más lo crea tú tienes que creerlo. No hay razón para tener un plan B porque te distrae del plan A". 

8. ¿Por qué ser realista? ¿Qué sentido tiene ser realista? ¡Lo voy a hacer! Esta hecho. Ya está hecho. Tan pronto lo decido está hecho. Es sólo encontrar el modo de que todos ustedes lo vean. 

9. "No es realista entrar a una habitación, pulsar un botón y tener luz. No es realista. Afortunadamente Edison no pensaba así. No es realista pensar que doblarás un pedazo de metal y enviaras personas volando sobre el océano. No es realista. Pero afortunadamente los hermanos Wright y otros no creyeron eso".

10. "Me doy cuenta de que para tener el nivel de éxito que yo quiero tener es difícil dispersarse y hacer múltiples cosas. Se requiere un FOCO tan desesperado y obsesivo. Realmente tienes que concentrarte con toda tu vibración, tu corazón y tu creatividad". 

11. "Estoy motivado por el temor ¿sabes? ¿Temor de qué? Temor del temor. Odio tener temor de hacer algo y creo que lo que se desarrolló en mis comienzos fue la actitud de que empecé a atacar las cosas a las que le tenía miedo".

12. "Jamás permitas que alguien te diga que no puedes hacer algo. Ni siquiera yo. ¿De acuerdo? Si tienes un sueño tienes que protegerlo. Cuando las personas no pueden hacer algo, van a decirte que tú tampoco puedes. ¿Quieres algo? Ve y lógralo. Punto". 

Aplicaciones móviles orientadas a tu público objetivo

CÁMARA NOTIFICA es una aplicación móvil construida para la Cámara de comercio de Medellín para Antioquia. Consiste en un sistema de recordatorios para los eventos y planes de capacitación de la Cámara de Comercio hacia los empresarios. Adicional a ello recuerda una obligación de los empresarios para con la cámara llamada el Registro Único de Proponentes. Los recordatorios se integran con el calendario nativo que trae el sistema operativo del teléfono.

La aplicación se encuentra construida para las siguientes plataformas:

•Android

•IOS

•BlackBerry

Lo invitamos a hacer parte de la base de clientes que depositan su confianza en CEIBA.



Fuente: http://www.ceiba.co/

No darnos por vencidos

Listar Carpetas, Archivos, SubCarpetas y Archivos de las SubCarpetas

Alguna vez has necesitado hacer un listado de todos los archivos que tienes en una carpeta?

Si tienes esto:

Imagen 1

y pasarlo para ver esto:

Imagen 2

Comparto una macro creada por Hector Miguel.

En un módulo normal vas a pegar el siguiente código. Posteriormente en la celda A1 ingresas la ruta por ejemplo teniendo la carpeta como se observa en la imagen 1 escribimos: D:\Datos Juan A


Sub Lista_de_archivos()
  Application.ScreenUpdating = False
  Dim Carpeta As String: Carpeta = Range("A1"): Cells.Clear
  Range("a2:e2") = Array("Ruta", "Nombre", "Tamaño", "Modificado", "Tipo")
  Listar_archivos_en Carpeta, True
End Sub

Sub Listar_archivos_en(Carpeta As String, Completo As Boolean)
  Dim Archivo, SubCarpeta, Fila As Long
  Fila = Range("a65536").End(xlUp).Row + 1
  With CreateObject("scripting.filesystemobject")
    With .GetFolder(Carpeta)
      For Each Archivo In .Files
        With Archivo
          Range("a" & Fila & ":e" & Fila) = Array( _
            Application.Substitute(.Path, .Name, ""), .Name, .Size, .DateLastModified, .Type)
        End With
        Fila = Fila + 1
      Next
      If Completo Then
        For Each SubCarpeta In .SubFolders
          Listar_archivos_en SubCarpeta.Path, True
        Next
      End If
    End With
  End With
  Range("a1:e1").EntireColumn.AutoFit
  Range("a1") = Carpeta
  Debug.Print ActiveSheet.UsedRange.Address
End Sub

Ejecutamos la macro Lista_de_archivos y listo, el resultado será tal como se ve en la imagen 2.

Saludos

Juan Alejandro

Qué es selfie

Definición:

Un selfie es, en una palabra, un autorretrato. El término se usa por lo general en el mundo de Internet para referirse a una fotografía de autorretrato que se publica en línea. Es muy común encontrar selfies en blogs, redes sociales e Instagram. Para el viajero solitario, un selfie es un medio muy común para documentar los lugares que visita.

Actualizar tareas - Microsoft Project 2010

Si necesitamos hacer un seguimiento más detallado del progreso de las tareas podemos hacerlo mediante el cuadro de diálogo Actualizar tareas.

Teniendo la tarea seleccionada, en el menú Tarea, grupo calendario, seleccionamos la opción "Actualizar Tarea"

 El sistema mostrará la siguiente pantalla:

Tener en cuenta que no van ser las mismas opciones las que estén habilitadas si la actualización va a ser para una tarea sin comenzar, una tarea en curso o un grupo de tareas.

1. % completado: Aquí podremos introducir el porcentaje completado de la tarea o las tareas seleccionadas. Esta misma información la podemos introducir desde el cuadro de diálogo Información de la tarea en la pestaña General.

Duración real y Duración restante: Aquí podemos introducir el tiempo real que necesita la tarea para completarse. Si la tarea ya se completó debemos ingresar las horas o días que se necesitaron para completarse y si aún no está completa ingresar las horas o días ya trabajadas, también podemos introducir lo que resta para completarse en el cuadro Duración restante. Project actualizará la duración programada y la duración restante para que coincida con la duración real que hemos ingresado.

2. Sección Estado real

Comienzo y Fin: Si ingresamos una fecha en cualquiera de los dos campos, éstas tienen prioridad sobre los datos que hayamos ingresado en los recuadros anteriores. Por ejemplo, si ingresamos que una tarea se ha completado el 65% e ingresamos una fecha de fin real Project establecerá que la tarea ya se ha completado al 100%.

3. Sección Estado actual

Comienzo y Fin: Muestra la fecha en que se ha programado la tarea, si estamos actualizando varias tareas a la vez, estos cuadros se mostrarán vacíos.

Botón Notas: Podemos ingresar una nota de tarea, si la tarea ya tuviera una nota desde aquí podemos modificarla o leerla