Ailton Zacarias (Desenvolvedor VBA)

Function FindLastRow(XPlanilha) As Variant
Dim LastRow As Variant

If XPlanilha.WorksheetFunction.CountA(XPlanilha.Cells) > 0 Then
LastRow = XPlanilha.Cells.Find(What:=”*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If

FindLastRow = LastRow
End Function

‘ Cálculo de comissão usando a regra de três

Public Function Comissao(valParcela, valAvista, valComissao)

Comissao = (valcomissao * (valParcela / valAvista * 100)) / 100

End Function

Function MesAtual(intMes As Integer) As String
Dim myMonth As Variant

myMonth = Array(“”, “Janeiro”, “Fevereiro”, “Maro”, “Abril”, “Maio”, “Junho”, “Julho”, “Agosto”, “Setembro”, “Outubro”, “Novembro”, “Dezembro”)

MesAtual = myMonth(intMes)

End Function

Public Function Idade(DataDeNascimento As Date)

Idade = DateDiff(“yyyy”, Data_Nascimento, Now()) + Int(Format(Now(), “mmdd”) < Format(Data_Nascimento, “mmdd”))

End Function

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