imamuddinwp

Sub Get_File_Names_List()
   Dim Fldr As String, Fname As String
   Dim ObjFldr As Object
   Dim i As Long
   
   Set ObjFldr = Application.FileDialog(4)
   With ObjFldr
      .Title = "Choose a folder"
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)

imamuddinwp

Function IsFormula(rng As Range) As Boolean
IsFormula = rng.HasFormula
End Function

Ques:01# I need to filter cells with formulas and not to select them , is that possible by a simple or advanced filter ?

Ques:02# I need to filter cells with formulas and not to select them , is that possible by a simple or advanced filter ?

Ques:03# How to Filter Formula in Excel?

imamuddinwp

Sub Run_Macro_Dir()
'
' Macro for running on multiple files in seleted folder.
'
' Imam Uddin;
'
'https://github.com/imamuddinwp
'
'
    Dim xFd As FileDialog

imamuddinwp

Sub Merge_All_In_One()
'
'
'
' https://about.me/imamuddinwp/
'
'
'
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer

imamuddinwp

Sub Sheets_To_Excel_Files()
'
'
'
'________powered by Imam Uddin
'________https://about.me/imamuddinwp/
'
'

Dim Numb As Integer

imamuddinwp

Sub Sheets_To_File()
Dim filePath As String
filePath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
    ws.Copy
    Application.ActiveWorkbook.SaveAs Filename:=filePath & "\" & ws.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next

imamuddinwp

Sub Delete_Fitered_Rows()
'
' Macro1 Macro
'

'
     Dim yn_Cond As Integer

        yn_Cond = MsgBox("Are you Confirm to DELETE VISIBLE ROWS??/" & vbNewLine & "-------------------------" & vbNewLine & " You may lost your data !!!", vbYesNo + vbQuestion, "proudLy powered by ImAmUdDiN ")
        

imamuddinwp

Sub Unhide_TABs()

Dim ws As Worksheet

    'The For-Next is a loop that loops through
    'each sheet in the active workbook
    
    For Each ws In ActiveWorkbook.Worksheets
        'Set the visible property of the sheet (ws)
        'to visible (xlSheetVisible)

imamuddinwp

Sub Sheet_Names_List()
'
'
'
        Worksheets.Add
        ActiveSheet.Name = "Tab_List"
            Dim ws As Worksheet
            Dim x As Integer
                x = 1
        Sheets("Tab_List").Range("A:A").Clear

imamuddinwp

    
    Dim ConfDate As String
    ConfDate = InputBox("Input Valid Date, Date Format Example: --> 25.04.2019 ", "ProudLy powered by : ImAmUdDiN ")
    Range("G2").Value = ConfDate
    
    ' Date autofill by Flash Fill
    
    Range("G2").FlashFill
    Range("G2").Select