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
107 followers · 303 following
View GitHub Profile
@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; 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 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 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 : 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 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 / Check Sheet Exist or Not In Excel Work Book
Last active May 14, 2020 02:32
Check Sheet Exist or Not In Excel Work Book, thanx :) Imam Uddin; imamcu07
Sub Check_Sheet_Exist()
Dim ws_exist As Worksheet
On Error Resume Next
Set ws_exist = Sheets("My Sheet")
If Err.Number <> 0 Then
MsgBox "Please Check Sheet 'My Sheet' exist or not!!! Thanx :)"
Else
'------------------------All Code Goes Here
'---------------------------------
End If
@imamuddinwp
imamuddinwp / Bootstrap-4-Accordion.html
Created September 30, 2019 12:49
Bootstrap 4 Collapse | Accordion. Imam Uddin, imamcu07
<!doctype html>
<html lang="en">
<head>
<!-- Required meta tags -->
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="X-UA-Compatible" content="ie=edge">
<!-- Bootstrap CSS -->
<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/css/bootstrap.min.css" integrity="sha384-ggOyR0iXCbMQv3Xipma34MD+dH/1fQ784/j6cY/iJTQUOhcWr7x9JvoRxT2MZw1T" crossorigin="anonymous">
@imamuddinwp
imamuddinwp / bootstrap-tooltips.html
Created September 30, 2019 07:03
Bootstrap Tooltip | Imam Uddin, imamcu07
<!doctype html>
<html lang="en">
<head>
<!-- Required meta tags -->
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="X-UA-Compatible" content="ie=edge">
<!-- Bootstrap CSS -->
<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/css/bootstrap.min.css" integrity="sha384-ggOyR0iXCbMQv3Xipma34MD+dH/1fQ784/j6cY/iJTQUOhcWr7x9JvoRxT2MZw1T" crossorigin="anonymous">
@imamuddinwp
imamuddinwp / CasCading ComboBox.sql
Last active September 17, 2019 07:02
RDBMS | Cascading ComboBox using C# and SQL Server. Here is the sql query of relational database, copy and paste the raw code in sql server new query. You will find all the divisions, district and upazilla of Bangladesh. powered by ImAmUdDiN, imamcu07
-- Division, District And Upazila Of Bangladesh In Database--
-- --- proudLy powered by: --- --
-- ===================================== --
-- --- Md.ImAmUdDiN --- -- --
-- --- Assitant Officer --- -- --
-- --- Youngone Group --- -- --
-- --- Korean EPZ --- -- --
-- --- Chitaagong --- -- --