agbishara

Function CreateWorkbook(Path As String) As Workbook
  Dim Tempbook As Workbook
  Set Tempbook = Workbooks.Add(ThisWorkbook.Path & "\template.xlsx")
  Application.DisplayAlerts = False
  Tempbook.SaveAs Filename:=Path
  Application.DisplayAlerts = True
  Set CreateWorkbook = Tempbook
End Function

agbishara

Function ResetFilters(ws As Worksheet)
  ws.Rows(1).AutoFilter
  ws.Rows(1).AutoFilter
End Function

agbishara

Application.CalculateFull

agbishara

Dim WBP As String
Dim VPF As String
 
WBP = ThisWorkbook.Path & ""
VPF = WBP & "\Generated\VP"
CreateFolder (VPF)
 
Function CreateFolder(Fnamez As String)
  MkDir Fnamez
End Function

agbishara

Sub FnR(sWhat As String, sReplacment As String, ws As Worksheet)
  ws.UsedRange.Replace What:=sWhat, Replacement:=sReplacment, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
 
  ws.PageSetup.CenterHeader = Replace(ws.PageSetup.CenterHeader, sWhat, sReplacment)
  ws.PageSetup.LeftHeader = Replace(ws.PageSetup.LeftHeader, sWhat, sReplacment)
  ws.PageSetup.RightHeader = Replace(ws.PageSetup.RightHeader, sWhat, sReplacment)
End Sub

agbishara

 uniqueValues(Range("sheet!D:D"))
 
 Function uniqueValues(InputRange As Range)
    Dim dict As New Scripting.Dictionary
    Dim cell As Range
    For Each cell In InputRange
     If cell.Rows.Hidden = False Then
            'if this row gives you a error its because one of your cells has a #NA, fix the data!
            If cell.Value <> "" Then
                If Not dict.Exists(cell.Value) Then

agbishara

MsgBox "Finished! :)"

agbishara

Format$(Date, "mm-dd-yyyy")

agbishara

Public Function fitlerBySVP(Name As String, ws As Worksheet)
    ws.Range("$A$1:$F$38409").AutoFilter Field:=4, Criteria1:= _
        Name
End Function