Fóruns Microsoft Excel - 2... 2024 - VBA & Macros UDF Notifications Clear all UDF 2024 - VBA & Macros Post Recente por Fernando Fernandes 11 anos atrás 6 Posts 2 Usuários 0 Reactions 990 Visualizações RSS dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Bom dia Capturei essa Udf do site excel-user.com Função GetFontColor (ByVal Target As Range) As Object GetFontColor = Target.Fonte.ColorIndex End Function Na folha: GetFontColor (A2) Ao rodar apresenta erro. Grato Postado : 14/04/2014 5:18 am Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Bom dia dimorais, Esta é uma função própria criada em VBA, é necessário implementar o código que deve ter sido disponibilizado pelo site. Abraço Marcos Rieper Existem mil maneiras de preparar Neston. Invente a sua! http://www.youtube.com/ExpressoExcel Postado : 14/04/2014 5:22 am dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Marcos, essa Udf é a original do site, curtinha assim. http://www.excel-user.com/2009/11/vba-g ... ction.html Postado : 14/04/2014 5:28 am Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member 1º ) Não é Função e sim Function; 2º ) Não é Fonte e sim Font 3º) No proprio site que citou tem a correção logo abaixo : This function wouldn't work for me until I defined the GetFontColor as Long (not as Object) - and then it worked perfectly! []s Existem mil maneiras de preparar Neston. Invente a sua! http://www.youtube.com/ExpressoExcel Postado : 14/04/2014 5:29 am dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Tem razão Mauro, está nos comentários. Falha nossa Postado : 14/04/2014 5:32 am Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Verdade, não vi a função somente a chamada dela. Ato falho. Existem mil maneiras de preparar Neston. Invente a sua! http://www.youtube.com/ExpressoExcel Postado : 14/04/2014 5:38 am
