Se pretendermos que, ao abrir um workbook, nos seja pedido para digitarmos o nome do utilizador, podemos utilizar o seguinte exemplo:
O Código:
Sub Auto_Open()
Range("B1").Value = Application.InputBox("Escreva o seu nome")
End Sub
Fórmula em C2: =SUBSTITUIR(A2;1;PROCURAR(“#”;SUBST(A2;” “;”#”;NÚM.CARACT(A2)-NÚM.CARACT(SUBST(A2;” “;””))));””) Função em C3 : =Apelido(A2) VBA: Function Apelido(r As …