VBA

Se tivermos um determinado Range de dados como no exemplo que se segue: e quisermos colorir as linhas totalmente em branco desse Range: Podemos utilizar um pouco de VBA. O Código: Private Sub CommandButton2_Click()    Dim RowNdx As Long    Dim LastRow As Long    Dim x    Dim y     LastRow = ActiveSheet.UsedRange.Rows.Count    For RowNdx = LastRow To 1 Step -1        On Error Resume Next        x = Cells(RowNdx, "A").Value = ""        y …

O MVP em Excel,Kirill Lapin, também conhecido por KL, apresentou uma alternativa ao post anterior, que pela sua qualidade e simplicidade, passo a referir: O Código: Private Sub CommandButton2_Click()    Dim r As Long    For r = UsedRange.Rows.Count To 1 Step -1        If Range("A" & r) = "" And Range("H" & r) = "" Then _            Range("A:H").Rows(r).Interior.ColorIndex = 48    Next rEnd Sub

Num newsgroup, foi feita a seguinte pergunta: Será que é possivel num Range em que tenho números (1,2,3,4,5, etc.) acrescentar letras atrás (COL1,COL2,COL3,COL4,COL5, etc.) sem editar célula a célula? Selecciona-se o Range pretendido: Executa-se a macro: O resultado: O Código do exemplo, em VBA: Option Explicit Sub AdicionaTexto()     Dim rng As Range    Dim rngCell As Range    Const sCHARACTER As String = "COL" …

Por vezes, podemos ter a necessidade e utilizar, num Userform, um TextBox com comprimento fixo e com Multiline e WordWrap. Vejamos o exemplo: Quando se inicia a escrita, a altura do TextBox aumenta automaticamente até à altura previamente definida: Grava para a célula A1: Para invocar o Userform que contem o TextBox, criamos um CommandButton na grelha: O Código para …

Se pretendermos que uma determinada célula sequencie sempre que quisermos abrir um workbook, podemos utilizar o seguinte código de McGimpsey, com a adaptação no código de abertura do workbook, uma vez que se incluiu no número sequencial o ano, no formato "nn/aa", com a porção de código & "/" & Right(Date, 2) O código da Função NextSeqNumber(): Public Function NextSeqNumber(Optional …