Jump to content

pasar formula como funcion personalizada


Recommended Posts

Me ha parecido que en tu archivo adjunto la UDF que tienes es para extraer el texto.

Esta UDF te puede servir.

Function ExtraeTexto(Txt As String)
With CreateObject("VBScript.RegExp")
.Pattern = "\d+"
.Global = True
ExtraeTexto = .Replace(Txt, "")
End With
End Function[/PHP]

Link to comment
Share on other sites

gracias obed, solo que me gustaria saber si se puede pasar fácilmente de la fórmula en ingles a una funcion directamente por ejemplo para la funcion que pretendo resolver :

Function formulafun(Cadena As Range) As String

con formula es en la celda A9

=SI(ESERROR(ENCONTRAR("/",(IZQUIERDA(A9,(IZQUIERDA((ENCONTRAR((extraernumeros(A9)),A9))))-1)))),(IZQUIERDA(A9,(IZQUIERDA((ENCONTRAR((extraernumeros(A9)),A9))))-1)),IZQUIERDA((IZQUIERDA(A9,(IZQUIERDA((ENCONTRAR((extraernumeros(A9)),A9))))-1)),ENCONTRAR("/",(IZQUIERDA(A9,(IZQUIERDA((ENCONTRAR((extraernumeros(A9)),A9))))-1)))-1))

esta formula es la que me funciona correctamente para lo que pretendo su equivalente en ingles es:

=IF(ISERROR(FIND("/",(LEFT(A9,(LEFT((FIND((extraernumeros(A9)),A9))))-1)))),(LEFT(A9,(LEFT((FIND((extraernumeros(A9)),A9))))-1)),LEFT((LEFT(A9,(LEFT((FIND((extraernumeros(A9)),A9))))-1)),FIND("/",(LEFT(A9,(LEFT((FIND((extraernumeros(A9)),A9))))-1)))-1))

ahora solo quiero saber si se puede expresar como funcion sin modificarla en su formato en ingles, pensaba yo que seria asi:

formulafun = formulafun & "formula en ingles"....de tal manera que hice este intento

formulafun = formulafun & IF(ISERROR(FIND("/",(LEFT(cadena,(LEFT((FIND((extraernumeros(cadena)),cadena))))-1)))),(LEFT(cadena,(LEFT((FIND((extraernumeros(cadena)),cadena))))-1)),LEFT((LEFT(cadena,(LEFT((FIND((extraernumeros(cadena)),cadena))))-1)),FIND("/",(LEFT(cadena,(LEFT((FIND((extraernumeros(cadena)),cadena))))-1)))-1))

solo que no me funciona no se porque, en otro caso si me resulto como en ejemplo 1 con

formulafunejemplo = formulafunejemplo & Mid$(Cadena, 1, 3)

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • 57 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      165
    • Comments
      89
    • Reviews
      25

    Latest File
    By pegones1

    1    0

  • Crear macros Excel

  • Posts

    • Estimados buenas tardes, Estoy teniendo problemas con el menú contextual ingresando datos en formulario ,  eventualmente se abre y esto ocasiona problemas Hay alguna manera de desactivarlo en el formulario para que no aparezca? Adjunto imagen para que lo ubiquen Saludos  Gracias  
    • Sin hacerle cambios, no. El lenguaje VBA es el mismo por lo que en teoría deberían poder ejecutarse, sin embargo los ActiveX, o las referencias a objetos no necesariamente son compatibles. Tomar en cuenta que es posible hacer que las macros funcionen pero requieren ajustes y pruebas, ésto debido a las diferencias entre los sistemas.  Es muy posible que debas adaptar el código para que funcione en Mac o buscar alternativas a ciertas funciones o características que no estén disponibles en ese dispositivo. Saludines  
    • ¡Magia! Mil gracias, ahora voy a estudiarla a ver si consigo aprender algo Un saludo
    • Pon esta macro en la hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 Then If Target.Column = 4 Or Target.Column = 7 Then Application.EnableEvents = False Range("H" & Target.Row) = "" If Target.Column = 4 Then Range("G" & Target.Row) = "" Application.EnableEvents = True End If End If End Sub  
    • Buenas tardes amigos, un saludo, uds saben si es posible ejecutar unas macros que fueron desarrolladas en Windows de excel y tratar de ejecutarlas en excel de Mac? , tengo un archivo que usa macros y me han pedido que se pueda utilizar el archivo en una máquina de MAC, pero al abrirlo este me despliega un mensaje que el archivo que intento abrir tiene errores y que excel de mac podría repararlo en su máxima capacidad, realizo el proceso y me descompone el formato así como no me traslada los códigos de macros,  no se si debo tomar en cuenta algunas variaciones que necesite saber para modificar mis código y pueda llevarlo a ejecuta a excel de mac. muchas gracias!
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy