This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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? |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub Run_Macro_Dir() | |
' | |
' Macro for running on multiple files in seleted folder. | |
' | |
' Imam Uddin; | |
' | |
'https://github.com/imamuddinwp | |
' | |
' | |
Dim xFd As FileDialog |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub Merge_All_In_One() | |
' | |
' | |
' | |
' https://about.me/imamuddinwp/ | |
' | |
' | |
' | |
Dim fnameList, fnameCurFile As Variant | |
Dim countFiles, countSheets As Integer |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub Sheets_To_Excel_Files() | |
' | |
' | |
' | |
'________powered by Imam Uddin | |
'________https://about.me/imamuddinwp/ | |
' | |
' | |
Dim Numb As Integer |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 ") | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |