Gerson Pineda

Pedro como estas! Si, me enrolle jeje con mi UDF, tu propuesta esta mas restringida/completa en el hecho que si no es fecha no arrojara error... tambien comentarte que no puedo probarla/valorarla ya que el office 2003 de mi trabajo es bastatante complicado, por cierto haber si me indicas que debo hacer para poder probar las UDFs ya que ni la tuya ni la mia me funcionan me tira error de valor... supongo va por el tema de las librerias? bueno tu me diras... Fleming Tienes razon me enrolle nuevamente con macros y formulas jeje no era necesario la funcion Fecha/Dateserial respectivamente, bastaba comprobar el ultimo dia del mes para reflejarlo con la funcion Dia Saludos a ambos y que esten bien

Hola! No se si en el foro esta UDF ya fue proporcionada por alguien (no recuerdo haberla visto), pero de todos modos la dejo como un aporte (desde luego mejorable y pues como las UDFs son precisamente para ahorrarnos tiempo, espero sirva de algo:)), tambien es probable que se encuentre en algun lugar en internet, como dice un amigo por ahi, los problemas que aqui se presentan, ya alguien los enfrento antes y se los resolvieron:cool: Sirve para ver los dias que contiene un mes cualquiera, solo es necesario digitar una fecha valida en Excel Saludos a todos! UDF diasmes.zip

Pedro Muy bueno tu aporte, no espere que despetara mas adiccion esta formula;) pero que bueno para todos Saludos macro/tuve/fleming/fornelasa/sailepaty

Antoni esta excelente! bueno pues el archivo esta quedando muy bien jeje Adjunto el agrupado de las formulas y macro (para comodidad de todos) Me la debes jajaja Saludos Extraer numeros de cadena alfanumerica.zip

Antonia Bienvenida al foro, esta es tu casa asi que ya sabes, pregunta y pregunta que aqui hay mano calificada (ojo no olvides leerte las normas y recomendaciones) Saludos desde Honduras

Re: Bienvenida nuevamente a Ioyama! NOCOTUC dejalo amigo, no vez que se nos puede ausentar de nuevo, asi que mejor sientate en tu sillon y observa nada mas:) te parece? Saludos

tuve muy buena solo integrar a INDICE y listo:) Saludos

Saile Excelente y bien elaborada tu formula (como siempre) Saludos

re: Bienvenida nuevamente a Ioyama! JAI gracias por el abrir el tema (estaba a punto de hacerle la bienvenida a IOYAMA) pero ya no sera mas necesario... y pues me uno a las bienvenidas a nuestro gran amigo y master ioyama, esperando que no se ausente mucho tiempo jejeje Saludos a todos

Hola! Esta vez aportare una formula la cual sirve para extraer solo numeros de una cadena de texto (o sea de una celda), pues bien la he mojorado, ya que con un colega en otro foro, la referenciamos y me pico lo adicto y la mejore para que sea utilizada en diferentes idiomas de Excel (GUANCHE si pasas por aqui dime si resulta con el sueco:cool:) No estoy seguro que exista en nuestro foro, la busque mas de una vez (o a lo mejor se perdio con el ultimo cambio que sufrio el mismo) =--EXTRAE(A2,COINCIDIR(1,--ESNUMERO(--EXTRAE(A2,FILA(INDIRECTO(1&":"&LARGO(A2))),1)),),CONTAR(--EXTRAE(A2,FILA(INDIRECTO(1&":"&LARGO(A2))),1)))[/HTML] Mejoras 1- Modifique esto a =COINCIDIR(VERDADERO... por esto =COINCIDIR(1... 2- Modifique esto = FILA($1:$9)... por esto FILA(INDIRECTO(1&":"&LARGO(A2)))... 3- Modifique esto =1*EXTRAE(... por esto =--EXTRAE(... {en toda la formula} Espero sea de utilidad y comprension para todos:) La formula original/fuente se encuentra aqui: [b]Extraer numeros de cadena alfanumerica [/b] Proporcionado por Microsoft MVP Ashish Mathur {Antoni sii sii ya se, seguro vendras con una de las tuyas } Saludos desde Honduras Extraer numeros de cadena con texto.zip

Re: Cual fue tu primer post en AyudaExcel? Ioyama, pues unos de tus primeros mensajes fue este:) (por fortuna sigue vivo en la BD del foro, Dic/2008 ) y aprovecho para desearles lo mismo a todos! Tema: Felices Fietas Saludos

jeje Antoni, te tengo una de formulianos, en cuanto tenga un chance la envio, ponte alerta macroniano Saludos y que estes bien

Re: Cual fue tu primer post en AyudaExcel? Ioyama Resucitaste, y pues que bueno amigo! que seas re-bienvenido nuevamente a este tu foro Ya extrañabamos bastante tu saludo Pensamos que nunca volverias... Saludos

Hola! Adjunto un archivo, contiene userform (formulario) para visualizar la fecha y hora en el titulo y en la celda activa Espero sea de utilidad:) Saludos desde Honduras Fecha y Hora en Titulo de Userform (formulario).zip

Excelente Antoni! sigue aburriendote jeje Saludos tuve/joshua

Hola a todos Como el titulo lo indica, estas dos funciones son muy similares, pero "Replace" tiena ventaja... explico Ayuda de la funcion Application.WorksheetFunction.Substitute: El método Substitute reemplaza el texto nuevo por el texto original dentro de una cadena de texto. Utilice el método Substitute cuando desee reemplazar texto específico en una cadena de texto; use el método Replace si desea reemplazar cualquier texto que aparezca en una ubicación específica dentro de una cadena de caracteres. Sintaxis expresión.Substitute(Arg1, Arg2, Arg3, Arg4) expresión Variable que representa un objeto WorksheetFunction. Ayuda de la funcion VBA.Replace: Devuelve una cadena en la que se reemplazó una subcadena especificada con otra subcadena un número especificado de veces. Sintaxis Replace(expresión, encontrar, reemplazarCon [, inicio[, Contar[, comparar]]]) Imaginemos una columna con datos, y que a esta en cada celda se debe reemplazar o sustituir algunos caracteres, pues bien he elaborado un archivo en el cual pueden realizar pruebas y notar, que la ventaja de VBA.Replace es que se puede reemplazar los caracteres cuantas ( Contar[ ) veces necesite dentro de la cadena de texto, por el contrario Substitute tiene la limitante de poder hacerlo solo una vez Sub sustituir() Dim texto1 As String Dim texto2 As String texto1 = Application.InputBox("Sustituir!", "Texto1", , , , Type:=1 + 2) texto2 = Application.InputBox("Sustituir!", "Texto2", , , , Type:=1 + 2) With Application .ScreenUpdating = False For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Cells(x, 1) = .Trim(.Substitute(Cells(x, 1), texto1, "", 1)) Cells(x, 1) = .Trim(.Substitute(Cells(x, 1), texto2, "", 1)) Next x .ScreenUpdating = True End With Range("A1").Select End Sub[/PHP] [PHP]Sub reemplazar() Dim texto1 As String Dim texto2 As String texto1 = Application.InputBox("Reemplazar!", "Texto1", , , , Type:=1 + 2) texto2 = Application.InputBox("Reemplazar!", "Texto2", , , , Type:=1 + 2) With Application .ScreenUpdating = False For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Cells(x, 1) = VBA.Trim(Replace(Cells(x, 1), texto1, "", 1, 1)) Cells(x, 1) = VBA.Trim(Replace(Cells(x, 1), texto2, "", 1, 1)) Next x .ScreenUpdating = True End With Range("A1").Select End Sub [/PHP] NOTA: No confundir ninguna de las dos funciones arriba con Application.WorksheetFunction.Replace si necesitan ver la diferencia busquen en la ayuda de VBA en Excel Espero sea de mucha utilidad y experimento Saludos desde Honduras Reemplazar texto en cadena (macro).zip

Antoni Muy buena la macro, que importante es tenerte aqui, ya que con tus aportes, vas abriendo brecha a todos... gracias por tu tiempo e ideas Saludos

Javier Bienvenido a este gran foro y sigue las normas porfavor, con ello notaras las respuestas acertadas Saludos

Hola Pedro Muy interesante tu tema, en verdad que esta gente si tiene dinero jeje Saludos

Hola Si efectivamente como lo sospeche, en mi trabajo el Microsoft Office Excel 2003 me muestra error y si alguien puede saber a que se debe, espero lo comente, lo estoy probando en mi casa y me funciona si declararlo como valor (.Value) Saludos

Hola verzulsan Que gran analisis el tuyo muchacho! solo asi es como aprendemos, como los foros son sinonimos de discusion, y mientras Antoni se despierta de sus ciestecita jeje, quiciera saber si a ti te carga/funciona bien el ComboBox sin el .Value lo he intentado sin el pero no me fuciona, de verdad quiero saber que pasa? o es mi Office o no se la razon, pero si en ese metodo no me muestra nada el Combobox, a espera de tus comentarios amigo y un gusto compartir con Antoni/tuve porsupuesto Saludos

Pues a mi no me carga el combobox y que yo sepa el combo se carga con su rango como "Celda.Value", al menos asi lo he experimentado cuando los he ocupado Saludos

Hey Antoni, muy bueno y practico, aunque notar que el combobox no se cargaba, hacia falta el .value (ComboBox1.AddItem Cells(x, ActiveCell.Column).Value) dentro del bucle y claro no mostraba error por el controlador de errores ON ERROR RESUME NEXT ojo no pretendo hacer ver que se mas que tu, solo que no se cargaba el combo por lo ya explicado y para el resto que tuviesen dificultad, por lo demas esta excelente mi estimado Saludos

logroastur gusto de saludarte nuevamente De verdad que me agrada esta opcion de excel, de hecho se pueden hacer varias cosas, por ejemplo en el mismo cuadro de dialogo, puedes usar la opcion de "Importar" desde un rango de celdas, por ejemplo desde A1 a A12 escribes {logroastur1, logroastur2, logroastur... etc} hasta llegar a A12 (te vas a menu/herramientas/listas personalizadas para 2003, menu/opciones de excel/mas frecuentes... modificar listas personalizadas para 2007), marcas el rango A1:A12 luego click en Importar y aceptar Recuerdo tambien que Never... utilizo este metodo para aplicar listas personalizadas en TD tablas dinamicas aqui en este mismo foro Asi que en hora buena con esta opcion muy buena pero poca utilizada Saludos

Hola Aqui un video de este truco sencillo pero util... espero sea de utilidad Saludos desde Honduras