Amigos, bom dia.
Como substituo o código abaixo por um que faça o mesmo, ou seja, que faça a mesma coisa mas com outra codificação.
Function ConfigPlanilhasBase() As Variant
Dim sNomeDasPlanilhas As String
'Digite o nome das Planilhasonde os dados deverão ser procurados,separados por ponto-e-vírgula (;)
sNomeDasPlanilhas = "contrato" '<----- Informe as planilhas aqui
Do While (Right(sNomeDasPlanilhas, 1) = ";")
sNomeDasPlanilhas = Left(sNomeDasPlanilhas, Len(sNomeDasPlanilhas) - 1)
Loop
ConfigPlanilhasBase = Split(sNomeDasPlanilhas, ";")
End Function
Postado : 13/12/2013 6:52 am