VBA

Por vezes, podemos ter a necessidade de utilizar um formato novo no cabeçalho de uma impressão, como, por exemplo, a referência à data actual: O Código: Sub Muda_Formato_Data()    ActiveSheet.PageSetup.CenterHeader = Format(Now, "DD MMMM, YYYY")End Sub

Se quisermos ver o conteúdo de uma célula numa outra célula, como por exemplo, ver na célula "A1" o valor contido na célula "C4" (ou "C5","C1",etc): podemos utilizar o procedimento que a seguir transcrevo: Código: Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Range("A1") = ActiveCell.ValueEnd Sub Atenção: clicar com o botão direito do rato no tabulador da folha, escolher "Ver Código" e …

Se pressionarmos a tecla de função F3, aparece, na célula pretendida, o resultado do Código a que a tecla está associada ( no exemplo, "Blog EXCELer"): O Código: Public Ops As String Sub Auto_Open()     Application.DisplayAlerts = False    Application.OnKey "{F3}", "InsereNome" End Sub Sub InsereNome()     Ops = Nome()    ActiveCell = Ops    End Sub Public Function Nome()     Nome = "Blog EXCELer"    End Function

Se pretendermos evidenciar as células que contêm valores duplicados (ver exemplo): pode utilizar-se uma macro, que deverá ser executada depois de "marcar" o Range de células pretendido: O Código: Sub ColorDupRows()    Dim rngSrc As Range    Dim NumRows As Integer    Dim ThisRow As Integer    Dim ThatRow As Integer    Dim ThisCol As Integer    Dim RightCol As Integer    Dim J As Integer, K As Integer     Application.ScreenUpdating = False    Set rngSrc = …

Há uns tempos atrás, apresentei algum código relacionado com a inserção de comentários em determinadas células. Hoje, apresento mais uma peça de Código, vista em Office Tips and Hints Blog que, pelo seu interesse aqui deixo e que funciona para a célula previamente seleccionada : O Código: Sub InsereComentario()    Dim cell As Range    On Error Resume Next    Selection.ClearComments    On Error GoTo 0    For Each cell …