Skip to content

Instantly share code, notes, and snippets.

View imamuddinwp's full-sized avatar
:octocat:
Playing with codes

Imam Uddin imamuddinwp

:octocat:
Playing with codes
109 followers · 303 following
View GitHub Profile
@imamuddinwp
imamuddinwp / Excel VBA : Expire date validation for macro
Created May 14, 2020 03:00
Excel VBA : Lock a macro with expire date; Excel VBA expire validation for macro; Macro will not execute after expiration date. User will notify with popup message; Excel Application also will close. powered by Imam Uddin; imamcu07
Sub My_Operation_Name()
'Expired Date Validations
Dim onLineHelp As Object
Dim cLoseBook As Integer
Dim exdate As Date
exdate = "27/03/2020"
Set onLineHelp = CreateObject("Wscript.Shell")
If Date > exdate Then
cLoseBook = MsgBox("Internal Error Occured!!!" & vbCrLf & " " & vbCrLf & "Data or file missing in Execution Time; DO YOU NEED ONLINE HELP ???" & vbCrLf & " " & vbCrLf & "powered by ImAmUdDiN => fb.com/imamcu07", vbYesNo, "Message From Md.ImAmUdDiN")
If cLoseBook = vbYes Then
@imamuddinwp
imamuddinwp / Excel VBA Macro : Save a workbook in a directory with specific name and date
Last active May 14, 2020 03:09
Hi There!!! Here is the Excel VBA Macro code for Save a workbook in a directory with specific name and date with excel vba macro; powered by Imam Uddin; imamcu07.
Sub My_operation_name()
'After ending all operations---------
ChDir "D:\ImAmUdDiN\Daily-Report"
ActiveWorkbook.SaveAs Filename:= _
"D:\ImAmUdDiN\Daily-Report\DLS-" & Format(Now(), "DD-MMM-YYYY") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
'--------All Done-----------
@imamuddinwp
imamuddinwp / Excel macro Offset
Created July 14, 2020 08:31
Excel macro, Excel VBA macro Offset, powered by Imam Uddin; imamcu07.
Move one cell down
ActiveCell.Offset(1, 0).Select
Move one cell up
ActiveCell.Offset(-1, 0).Select
Move one cell right
ActiveCell.Offset(0, 1).Select
Move one cell left
@imamuddinwp
imamuddinwp / Excel VBA Macro If Else Condition with message
Last active October 21, 2020 05:35
Excel VBA Macro If Else Condition with message; powered by Imam Uddin; imamcu07
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
imamuddinwp / Excel VBA Macro; Successful message after end macro
Created July 14, 2020 08:41
Excel VBA Macro; Successful message after end macro. powered by Imam Uddin; imamcu07.
MsgBox prompt:="Congratulations, Operation Successfull !!!" & vbNewLine & "-------------------------" & vbNewLine & "proudLy powered by" & vbNewLine & "Md.ImAmUdDiN" & vbNewLine & "https://about.me/imamcu07", _
Buttons:=vbInformation + vbMsgBoxHelpButton, _
Title:="Successful Message From Md.ImAmUdDiN "
@imamuddinwp
imamuddinwp / Excel VBA Macro; Check Cell is empty or not
Created July 14, 2020 08:44
Excel VBA Macro; Check Cell is empty or not; powered by Imam Uddin; imamcu07
If IsEmpty(Range("A2").Value) = False Then
MsgBox prompt:="Previous Data May Already Exist, Please Clear Previous Data!!" & vbNewLine & "-------------------------" & vbNewLine & "proudLy powered by" & vbNewLine & " --> Md.ImAmUdDiN <--" & vbNewLine & "https://about.me/imamcu07", _
Buttons:=vbInformation + vbMsgBoxHelpButton, _
Title:="Message From Md.ImAmUdDiN "
Range("A2").Select
Else
'Code to paste data or othere operation'
End If
@imamuddinwp
imamuddinwp / Excel VBA Macro: Dialogue Box to Input Data in run time
Created July 14, 2020 08:47
Excel VBA Macro: Dialogue Box to Input Data in run time
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
@imamuddinwp
imamuddinwp / Excel Macro: Get All Workbook name in one list
Last active November 9, 2020 10:15
Excel Macro: Get All Workbook name in one list; imamcu07
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
imamuddinwp / Unhide All Hidden Sheets : Excel VBA Macro
Created September 28, 2020 07:16
Unhide All Hidden Sheets : Excel VBA Macro; Use the VBA Immediate Window to Unhide All; powered by Imam Uddin; 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
imamuddinwp / Delete Filtered Data : Excel Macro, Excel VBA
Last active October 19, 2020 03:00
This is a gist on about Delete Filtered Data : Excel Macro, Excel VBA; powered by Imam Uddin; 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 ")