Ailton Zacarias (Desenvolvedor VBA)

Sub TrabalhandoComLinhasColunas()

Application.Columns(“B”).Delete
Application.Rows(3).Insert
Application.Rows(3).Delete
Worksheets(“Plan1″).Rows(2).Insert

End Sub

sub NovaGuia()
Dim Guia As Variant

Set Guia = Sheets.Add(Type:=xlWorksheet)

Guia.Name = “Nova Guia”

end sub

Sub HistoricoRecente()

Application.RecentFiles.Add Name:=”Ailton.xls”

End Sub

Public Function ExcluirGuia(Guia As String)
Dim x As Long

For x = 1 To Worksheets.Count

If Sheets(x).Name = Guia Then

Application.DisplayAlerts = False
Sheets(x).Delete
Application.DisplayAlerts = True
Exit For

End If

Next x

End Function

Function ContarCaracteres(Celula As String)

ContarCaracteres = Len(Celula)

End Function

Sub CaminhoPasta()

‘Como adicionar o caminho da pasta de trabalho para o rodapé
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

End Sub

Sub AbrirArquivoDelimitado()

Workbooks.OpenText Filename:=”c:\log.txt”, DataType:=xlDelimited, Tab:=True, Other:=True, OtherChar:=”|”

End Sub

Function ContarLinhas(Optional sPlanilha As String)
On Error GoTo Err_ContarLinhas

Dim cont As Long

If sPlanilha <> “” Then Sheets(sPlanilha).Activate

For L = 1 To Rows.Count

If Cells(L, 1) <> “” Then

cont = cont + 1

ElseIf Cells(L, 1) = “” Then

Exit For

End If

Next

ContarLinhas = cont

Exit_ContarLinhas:

Exit Function

Err_ContarLinhas:

If Err.Number = 9 Then MsgBox “A planilha: ” & sPlanilha & ” no existe.”, vbExclamation

Resume Exit_ContarLinhas

End Function