VBA

Utilização de um formulário para identificar as células que contêm valores negativos: Exemplo de Código: Sub test1() Dim arr() Dim zero zero = 0 Set rng = Sheets(1).Range("A1:A5") k = Application.CountIf(Range(rng(1), rng(5)), "<0") ReDim arr(1 To k) j = 1 For i = 1 To rng.Count If rng(i).Value < color="#00007f">Then arr(j) = rng(i).Address(False, False) & " " & rng(i).Value j …

Se limitarmos o comprimento da String de output, por exemplo para 11 dígitos, o nome sai truncado: Código do exemplo: Sub NameWidth() Dim Name As String * 11 ' O caracter "* NN" indica o número máximo de ' dígitos pretendido para a String Name = InputBox("Digite o seu Nome") Range("A1") = Name Name = InputBox("Digite o seu Nome") Range("A2") …

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  

Em 16 deste mês, coloquei um post onde mostrei um exemplo de uma fórmula para detectar valores duplicados em células. Apresento agora um procedimento em VBE que apaga as linhas onde se encontram os valores duplicados: Sub RemoveDuplicates() Worksheets("Sheet1").Range("A2").Sort key1:=Worksheets("Sheet1").Range("A1") Set currentCell = Worksheets("Sheet1").Range("A1") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) If nextCell.Value = currentCell.Value Then currentCell.EntireRow.Delete End …

Se tivermos uma folha com valores e fórmulas e quisermos apagar apenas os valores, deixando ficar as fórmulas, como no exemplo a seguir: podemos utilizar o seguinte Código: Private Sub CommandButton1_Click()    On Error Resume Next    Cells.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContentsEnd Sub