EXCELer Tudo sobre EXCEL em Português

A Função RptSpace() devolve um número de espaços entre cadeias de caracteres: Código: Public Function RptSpace(ByVal strNum As Variant) As String Dim strOut As String strOut = Space(strNum) RptSpace = strOut End Function

Teclas de atalho (exemplos):

Exemplos de teclas de atalho – CTRL + D: Esta tecla de atalho copia o conteúdo e o formato da primeira célula do Range. No exemplo, o Range é C1:c5, mas se o que quiséssemos copiar fosse o conteúdo de C1 e D1, marcaríamos o Range C1:D5 e usávamos o shortcut mencionado.

Exemplos de teclas de atalho – CTRL + R : Esta tecla de atalho copia o conteúdo e o formato da primeira célula do Range. No exemplo, o Range é A1:D1, mas se o que quiséssemos copiar fosse o conteúdo de A1 e A2, marcaríamos o Range A1:D2 e usávamos o shortcut mencionado.

Exemplos de teclas de atalho: CTRL + 0 (zero) CTRL + 9: CTRL + 0 – esconde a(s) coluna(s) activa(s) CTRL + 9 – esconde a(s) linha(s) activa(s)

Para encontrar valores duplicados, pode utilizar-se a seguinte fórmula, com as necessárias adaptações:  

Private Sub IblMail_Click()Link = "mailto:jorgerod2@sapo.pt"    On Error GoTo NoCanDo    ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True    Unload Me    Exit SubNoCanDo:    MsgBox "Impossível Abrir " & LinkEnd Sub