Leaderboard

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

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

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

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

[uSER=9328]@Gerson Pineda[/uSER] pa´ti

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

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

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]

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

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

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

. 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. .

¡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/