Utilizar rangos como parametros opciones - Funciones vba



   AUTOR PREGUNTA

Publicado 07 mayo 2014 - 18:33

Estoy trabajando con Excel y vba y quisiera saber cómo utilizar los rangos como parámetros opcionales para funciones de mi aplicación?


¿Tienes la misma pregunta? Yo también

 

Publicado 07 mayo 2014 - 20:59

Prueba con lo siguiente, esta probada con Excel 2007, lo único es que necesitas colocarlo en un módulo para que funcione sin problemas:

Public Function testfuncion(S As String, Optional R As Range = Nothing) As String
testfuncion = S 
if not R is nothing then
For Each cell In R
testfuncion = testfuncion & cell 
Next cell
end if
End Function


   AUTOR PREGUNTA

Publicado 08 mayo 2014 - 14:02

Gracias Felipe, me funciono