Skip to content

Instantly share code, notes, and snippets.

Playing with codes

Imam Uddin imamuddinwp

Playing with codes
View GitHub Profile
View FillDown
Sub FillDown()
For Each cell In Selection
If cell = "" Then
End If
End Sub
View Avoid Document.Write
<script id='polyfill-js'>'IntersectionObserver'in window||document.write('<script src=""><\/script>');</script>
<b:if cond='data:view.isPost and !data:view.isPreview'>
<div class='pRelate' id='pRelated'>
var relatedTitles = new Array(); var relatedTitlesNum = 0; var relatedUrls = new Array(); function related_results_labels(json) { for (var i = 0; i < json.feed.entry.length; i++) { var entry = json.feed.entry[i]; relatedTitles[relatedTitlesNum] = entry.title.$t; for (var k = 0; k <; k++) { if ([k].rel == 'alternate') {relatedUrls[relatedTitlesNum] =[k].href; relatedTitlesNum++; break;}}}} function removeRelatedDuplicates() { var tmp = new Array(0); var tmp2 = new Array(0); for(var i = 0; i < relatedUrls.length; i++) { if(!contains(tmp, relatedUrls[i])) { tmp.length += 1; tmp[tmp.length - 1] = relatedUrls[i]; tmp2.length += 1; tmp2[tmp2.length - 1] = relatedTitles[i];}} relatedTitl
View techbanglasitemap
// ---------------------------------------------------
// ---------------------------------------------------
// BlogToc creates a clickable Table Of Contents for
// Blogger Blogs.
// It uses the JSON post feed, and create a ToC of it.
// The ToC can be sorted by title or by date, both
// ascending and descending, and can be filtered by
// label.
// ---------------------------------------------------
View freelancing-geek-sitemapjs.js
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
Selection.Delete Shift:=xlUp
View BI_Report
Sub BI_Report()
' Macro4 Macro
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
View PO_Intregation
Sub PO_Intregation()
' Macro1 Macro
Selection.Delete Shift:=xlUp
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
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
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 / 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)