Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation on 04/16/2015 in all areas

  1. 4 points
    pegones1

    Separar email

    Hola Antonella, prueba el adjunto con la siguiente fórmula matricial, introducida presionando simultáneamente las teclas <Ctrl> + <Shift> + <Enter>: =ESPACIOS(EXTRAE(SUSTITUIR($B2; " ";REPETIR(" ";LARGO($B2))); (COINCIDIR(1;ENCONTRAR("@";EXTRAE(SUSTITUIR($B2; " ";REPETIR(" ";LARGO($B2))); (FILA($A$1:$A$20)-1)*LARGO($B2)+1; LARGO($B2)));-1)-1)*LARGO($B2)+1; LARGO($B2)))[/CODE] En este código se ha limitado a 20 el número de palabras a encontrar en los ejemplos, lo que se puede ampliar modificando el 20 de: FILA($A$1:$A$[b]20[/b]) En el primer ejemplo: [b]234 barcelona [email]example1@gmail.com[/email] 2345 barcelona [/b]está separada por un espacio en blanco de la dirección de correo. Por lo que no debe aparecer [b]barcelona[/b] como nombre del correo: [email]example1@gmail.com[/email] file1_PW1.xls
  2. 1 point
    Antoni

    Menú sin límites

    Hola amado pueblo: Hoy va de menús. Os dejo un formulario que permite cualquier número de puntos de menú y cualquier número de niveles. Cada punto de menú es un label cuyo nombre es la dirección de la celda de la hoja Menú. En el módulo de clase Controles, procedimiento Etiqueta_Click() podeis completar el código necesario para cada punto de menú. He puesto unos ejemplos con los primeros puntos del menú. La anchura del formulario es automática, pero la altura no. Paz y amor PD. Y a los seguidores del R. Madrid, deciros que me embarga una profunda tristeza por vuestra derrota de ayer. :D:p Macromenús full.xls
  3. 1 point
    karlos83

    Problema con macro

    Buenos días. Estoy iniciándome en el mundo de la programación con macros, de manera forzada, porque intento hacer una tabla para cálculo de riego, ya que la necesito para mi trabajo pero tengo un problema. Lo que intento hacer es que en una columna, la cual son los días del año, se coloque un valor x, durante un número de casillas y, a partir de una determinada celda de la columna, no se si me explico. Si la plantación se inicia el día 20 de enero, por ejemplo, que empiece a rellenar a partir de esa celda con el valor x durante un número y de celdas. Tanto x, como y y como la celda de inicio cambiará. A ver si me podéis echar una mano, que estoy bastante atrancado y mi nivel de excel deja algo que desear, jejeje. Muchas gracias
  4. 1 point
    Ahi te va una opcion con formulas, revisa y nos comentas Silvia sencillamente IMPRESIONANTE!!! no hay dudas AMÉRICA es el continente mas bello del mundo! Saludos Obtener posiciones (celdas) de rango_GP.rar
  5. 1 point
    [uSER=9328]@Gerson Pineda[/uSER] pa´ti
  6. 1 point
    Hola de nuevo! Dejo por aquí mi propuesta. Uso un nombre definido con fórmula. Bendiciones a ambos! I Leave here a proposal. Use a name defined formula. Blessings to you! Alphanumeric.xls
  7. 1 point
    Aquí puedes encontrar algunos ejemplos similares: https://www.ayudaexcel.com/foro/threads/generar-combinaciones-excluyendo-un-listado.38627/#post-188287 https://www.ayudaexcel.com/foro/threads/numeros-aleatorios-para-loteria.36462/#post-176465 https://foroexcel.com/threads/combinaciones-aleatorias-sin-repeticion.423/ y por aquello: https://www.google.com/search?client=opera&q=combinaciones+aleatorias+vba&sourceid=opera&ie=UTF-8&oe=UTF-8 Salu2
  8. 1 point
    Antoni

    Insertar varias imagenes en vba

    Prueba así: Private Sub Worksheet_SelectionChange(ByVal Target As Range): On Error Resume Next If Target.Column = 3 And Target.Row > 12 And Target.Rows.Count = 1 Then foto = Target.Value Image1.Picture = LoadPicture("C:\Users\Victor\Desktop\VARIOS\Informe de Quietos\CONSOLIDADO FOTOS\NoImagen.jpg") Image2.Picture = LoadPicture("C:\Users\Victor\Desktop\VARIOS\Informe de Quietos\CONSOLIDADO FOTOS\NoImagen.jpg") Image1.Picture = LoadPicture("C:\Users\Victor\Desktop\VARIOS\Informe de Quietos\CONSOLIDADO FOTOS\" & foto & "(2).jpg") Image2.Picture = LoadPicture("C:\Users\Victor\Desktop\VARIOS\Informe de Quietos\CONSOLIDADO FOTOS\" & foto & "(3).jpg") End If End Sub [/CODE]
  9. 1 point
    Fleming

    Busqueda de fecha mas antigua

    Supongo que no será difícil incorporar a tu macro =MAX(A1:A100)[/CODE] y [CODE]=MIN(A1:A100)[/CODE] Saludos
  10. 1 point
    Julibaga

    Convertir a alfanumerico

    Esta es una opción con fórmula. Espero te sirva. This is one option with formulas. I hope it works for you. Saludos /Johnmpl file_1-Julibaga2.xls
  11. 1 point
    Gracias Gerson. Hasta ahora estuve dándole con mis 67 que casi se vuelve liquido el cerebro. Te falto algo en tu formula o, lo hiciste propositadamente para que mi cerebro ya debilitado por el recorrido echo, 67 Km, se liquido
  12. 1 point
    . Cambia el este código: Guardar_Registros msg = MsgBox("¿Desea imprimir el registro actual?", vbQuestion + vbYesNo, "Imprimir Registro") If msg = vbYes Then Me.PrintForm End If [/CODE] por este otro: [CODE] msg = MsgBox("¿Desea imprimir el registro actual?", vbQuestion + vbYesNo, "Imprimir Registro") If msg = vbYes Then Me.PrintForm End If Guardar_Registros [/CODE] El problema viene porque modificas el valor del combo [b]cmbNumRegistro[/b] dentro del procedimiento[b] Guardar_Registros, [/b]por lo que se ejecuta el evento [b]Change [/b]del combo, y ahí borras el formulario. .
  13. 1 point
    ¡Gran Jefe! bienvenido al foro. ¡Hay tantos recursos en Internet sobre Excel! En mi perfil de Blogger voy recopilando los sitios que visito más a menudo y de los que siempre aprendo algo. Decirte que el conocimiento "profundo" solo se gana con mucho tiempo y mucha dedicación y aún así acabamos diciendo como el gran filósofo griego Sócrates: "Sólo sé que no sé nada" Los más de 100 sitios Excel que sigo habitualmente aquí: Perfil del blogger Pedro Wave Uno de mis favoritos es el de Jorge Dunkelman: JLD Excel en Castellano - Usar Microsoft Excel eficientemente Pero lo más gratificante es compartir conocimientos en un foro como éste: https://www.ayudaexcel.com/foro/


  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png