imamuddinwp

Sub Yes_Or_No()  

Dim yn_Cond As Integer

yn_Cond = MsgBox("Are you ready for the next operation?" & vbNewLine & "-------------------------" & vbNewLine & " Check 'Data' column carefully !!!", vbYesNo + vbQuestion, "proudLy powered by ImAmUdDiN ")

If yn_Cond = vbYes Then

'code goes here' 

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

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

imamuddinwp

Sub Trim_Arrangement()
'
' Macro1 Macro
'

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

imamuddinwp

Sub PO_Intregation()
'
' Macro1 Macro
'

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