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 Sheets_To_Excel_Files()
'
'
'
'________powered by Imam Uddin
'________https://about.me/imamuddinwp/
'
'

Dim Numb As Integer

imamuddinwp

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

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

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 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

# Get Email from raw data:
=TRIM(RIGHT(SUBSTITUTE(LEFT(A2,FIND(" ",A2&" ",FIND("@",A2))-1)," ",REPT(" ",LEN(A2))),LEN(A2)))
#Get Varified Email:
=AND(ISERROR(FIND(" ",B2)),LEN(B2)-LEN(SUBSTITUTE(B2,"@",""))=1,IFERROR(SEARCH("@",B2)<SEARCH(".",B2,SEARCH("@",B2)),0),NOT(IFERROR(SEARCH("@",B2),0)=1),NOT(IFERROR(SEARCH(".",B2,SEARCH("@",B2))-SEARCH("@",B2),0)=1),LEFT(B2,1)<>".",RIGHT(B2,1)<>".")

imamuddinwp

Sub Excel_Download_Image_From_URL()

'Proudly Powered by Imam Uddin

'https://gist.github.com/imamuddinwp

    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long
    On Error Resume Next

imamuddinwp

Sub PO_Intregation()
'
' Macro1 Macro
'

'
    Sheets("ExcelOut(PO)").Select
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Cells.Select

imamuddinwp

Sub BI_Report()
'
' Macro4 Macro
'
    Selection.CurrentRegion.Select
    Selection.Columns.AutoFit
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous