Hola amigos, estuve programando un poco y tuve la necesidad de crear una funcion llamada: "CONCATENAR.SI", que sirva para concatenar celdas si es que cumplen una condición, y tengan un sepadador.
Hice mi codigo:
Function CONCATENARSI(ByVal rango As range, ByVal criterio As String, ByVal rango_c As range, ByVal sep As String) As String
'Concatena celdas si cumplen una condición
Dim celda As Variant: Dim dif As Integer
dif = rango.End(xlDown).Row - rango.Rows.Count
For Each celda In rango.Cells
If celda.Value = criterio Then
If rango_c(celda.Row - dif, 1) <> "" Then
CONCATENARSI = CONCATENARSI & rango_c(celda.Row - dif, 1) & sep
End If
End If
Next celda
If Len(CONCATENARSI) > Len(sep) Then
CONCATENARSI = Mid(CONCATENARSI, 1, Len(CONCATENARSI) - Len(sep))
End If
End Function
[/CODE]
Todo bien, pero buscando en Google una función más nativa, para que sea más rapida, ya que trabajo con hasta 20'000 datos y esa función se hace muy lenta.
Me encontré que alguien habia creado la funcion [b]CONCATENAR.SI [/b]en excel [b]sin usar macros.
[/b]
El autor habla de una Hoja Internacional de macros "xl" que no se puede visualizar a simple vista.
Mi pregunta concreta es: como demonios puso el codigo en esa hoja? he sido capas de visualizar la hoja, pero no de ver el codigo fuente donde se defina esa función.
Si alguien quiere ver esa hoja: "xl" que esta oculta, en el archivo que descarguen coloquen:
[CODE]Sub Mostrar()
Sheets("xl").Visible = True
End Sub[/CODE]
Me he quedado sorprendido, ya que esa hoja .xls tiene un procedimiento que permanece oculto en una hoja internacional de macros, y me da curiosidad por saber más. No he encontrado información util que me explique lo que realmente pasa.
Alguien sabe?
Saludos desde Piura, Perú.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Resumen: Como crear funciones sin usar macros?
Hola amigos, estuve programando un poco y tuve la necesidad de crear una funcion llamada: "CONCATENAR.SI", que sirva para concatenar celdas si es que cumplen una condición, y tengan un sepadador.
Hice mi codigo:
Todo bien, pero buscando en Google una función más nativa, para que sea más rapida, ya que trabajo con hasta 20'000 datos y esa función se hace muy lenta.
Me encontré que alguien habia creado la funcion [b]CONCATENAR.SI [/b]en excel [b]sin usar macros.
[/b]
El autor habla de una Hoja Internacional de macros "xl" que no se puede visualizar a simple vista.
Dejo el enlace del autor: Concatenar SI funcion excel - officefull (Word, Excel, Calc, Writer,...)
Mi pregunta concreta es: como demonios puso el codigo en esa hoja? he sido capas de visualizar la hoja, pero no de ver el codigo fuente donde se defina esa función.
Si alguien quiere ver esa hoja: "xl" que esta oculta, en el archivo que descarguen coloquen:
Sheets("xl").Visible = True
End Sub[/CODE]
Me he quedado sorprendido, ya que esa hoja .xls tiene un procedimiento que permanece oculto en una hoja internacional de macros, y me da curiosidad por saber más. No he encontrado información util que me explique lo que realmente pasa.
Alguien sabe?
Saludos desde Piura, Perú.