EXCELer Tudo sobre EXCEL em Português

Utilização de Sheets.Count Property, para obter o número de Sheets contidas num Workbook, no exemplo, para apagar determinados Ranges iguais nas diversas Sheets: Sub Apaga_Tudo() Dim j As Integer, k As Integer j = Sheets.Count For k = 1 To j With Sheets(k) .Range(“T1”).ClearContents .Range(“X2:Y2”).ClearContents .Range(“c4:f34”).ClearContents .Range(“j4:j34”).ClearContents .Range(“m4:o34”).ClearContents .Range(“q4:r34”).ClearContents End With Next k End Sub

Sub Workbook_Open()     Application.DisplayAlerts = False     Application.OnKey “{F4}”, “Show_Pad” End Sub ‘—————— Sub Show_Pad() Shell “notepad.exe”, vbNormalFocus End Sub

Sub Workbook_Open()     Application.DisplayAlerts = False     Application.OnKey “{F3}”, “ShowCalc” End Sub ‘—————— Sub ShowCalc()     Shell “Calc.Exe”, vbNormalFocus 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 Range) As Variant Dim s As String          s = Trim(r.Value)         Apelido = Mid(s, InStrRev(s, ” “) + 1) End Function    

Se pretendermos apagar os valores zero (0) de determinado Range sem retirar o formato das células em causa, podemos utilizar o seguinte código: Sub Apaga_Zeros() Dim r As Range Set r = Range(“A1:D10”) r.Select Selection.Replace What:=”0″, Replacement:=””, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

Se pretendermos associar o conteúdo de várias células numa única e com algum texto em negrito e em maiúscula, podemos utilizar este tipo de código: Sub Concat() Dim i As Long, LR As Long, j As Long LR = Range(“B” & Rows.Count).End(xlUp).Row For i = 2 To LR With Range(“G” & i) .Value = Join(Application.Transpose(Application.Transpose(.Offset(,     -5).Resize(, 5))), vbNullString) …