Skip to content

Instantly share code, notes, and snippets.

Avatar
:octocat:
Playing with codes

Imam Uddin imamuddinwp

:octocat:
Playing with codes
View GitHub Profile
View freelancing-geek-sitemapjs.js
eval(function(p,a,c,k,e,d)
{e=function(c){return(c<a?'':e(parseInt(c/a)))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};
if(!''.replace(/^/,String)){while(c--){d[e(c)]=k[c]||e(c)}k=[function(e){return d[e]}];e=function(){return'\\w+'};c=1};while(c--){if(k[c]){p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c])}}return p}('2 3=F K();2 v=F K();2 w=F K();2 q=F K();2 6=F K();2 y=F K();2 i="N";2 1d=1s;2 2T=2M;2 E="";2 1j=0;r 2J(a){r b(){4("A"1G a.1h){2 d=a.1h.A.u;1j=d;C=0;B(2 h=0;h<d;h++){2 n=a.1h.A[h];2 e=n.P.$t;2 m=n.1N.$t.1t(0,10);2 j;B(2 g=0;g<n.J.u;g++){4(n.J[g].Z=="25"){j=n.J[g].s;Q}}2 o="";B(2 g=0;g<n.J.u;g++){4(n.J[g].Z=="1Q"){o=n.J[g].s;Q}}2 c="";4("12"1G n){B(2 g=0;g<n.12.u;g++){c=n.12[g].26;2 f=c.1m(";");4(f!=-1){c=c.1t(0,f)}6[C]=c;3[C]=e;q[C]=m;v[C]=j;w[C]=o;4(h<10){y[C]=16}G{y[C]=1s}C=C+1}}}}}b();i="N";O(i);1i();1d=16;1H();9.x()}r 1Y(a){1y(0,0);E=a;H(E)}r 1x(){1i();E="";H(E)}r O(d){r c(e,g){2 f=3[e];3[e]=3[g];3[g]=f;2 f=q[e];q[e]=q[g];q[g]=f;2 f=v[e];v[e]=v[g];v[g]=f;2 f=6[e];6[e]=6[g];6[g]=f;
View Trim_Arrangement
Sub Trim_Arrangement()
'
' Macro1 Macro
'
'
Sheets("ExcelOut(Trim)").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
'---------------------------------------------
View BI_Report
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
View PO_Intregation
Sub PO_Intregation()
'
' Macro1 Macro
'
'
Sheets("ExcelOut(PO)").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Cells.Select
@imamuddinwp
imamuddinwp / Excel_Download_Image_From_URL
Created Apr 26, 2021
Get Image to cell in excel from URL; Convert image URL to actual image in excel; Powered by Imam Uddin; imamuddinwp.
View Excel_Download_Image_From_URL
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
imamuddinwp / Excel Email Validation with Data Validation
Created Feb 20, 2021
Excel Email Validation with Data Validation; Powered by Imam Uddin, imamuddinwp
View Excel Email Validation with Data Validation
# 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
imamuddinwp / Get File Names & Files Path from a folder to a Excel File
Created Jan 16, 2021
VBA to get File Names & Files Path from a folder to a Excel File; imam uddin, imamuddinwp
View Get File Names & Files Path from a folder to a Excel File
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
imamuddinwp / Filter Cells With Formulas
Created Jan 2, 2021
Filter Cells With Formulas: Filter Cells that have or containing formula
View Filter Cells With Formulas
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
imamuddinwp / Run-Same-Macro-On-Selected-Files
Created Nov 8, 2020
How To Run A Macro At Same Time Across Multiple Workbook Files?
View Run-Same-Macro-On-Selected-Files
Sub Run_Macro_Dir()
'
' Macro for running on multiple files in seleted folder.
'
' Imam Uddin;
'
'https://github.com/imamuddinwp
'
'
Dim xFd As FileDialog
@imamuddinwp
imamuddinwp / Merge_All_In_One.txt
Created Oct 20, 2020
Merge multiple worksheets into one; Combine multiple worksheets into one; "Keyword" "merge multiple sheets into one sheet vba" "merge multiple excel sheets into one workbook online free" "consolidate data from multiple worksheets in a single worksheet" "combine multiple excel sheets into one macro" "copy data from multiple worksheets into one" "…
View Merge_All_In_One.txt
Sub Merge_All_In_One()
'
'
'
' https://about.me/imamuddinwp/
'
'
'
Dim fnameList, fnameCurFile As Variant
Dim countFiles, countSheets As Integer