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
View GitHub Profile
@imamuddinwp
imamuddinwp / High DA PA Profile Backlink Site List.html
Last active March 22, 2024 14:34
High DA PA Profile Backlink Site List
@imamuddinwp
imamuddinwp / FillDown
Created August 11, 2022 06:05
FillDown
Sub FillDown()
For Each cell In Selection
If cell = "" Then
cell.FillDown
End If
Next
End Sub
<script id='polyfill-js'>'IntersectionObserver'in window||document.write('<script src="https://polyfill.io/v3/polyfill.min.js?features=IntersectionObserver"><\/script>');</script>
<b:if cond='data:view.isPost and !data:view.isPreview'>
<div class='pRelate' id='pRelated'>
<script>/*<![CDATA[*/
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 < entry.link.length; k++) { if (entry.link[k].rel == 'alternate') {relatedUrls[relatedTitlesNum] = entry.link[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
// ---------------------------------------------------
// BLOGTOC
// ---------------------------------------------------
// 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.
// ---------------------------------------------------
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;
@imamuddinwp
imamuddinwp / Trim_Arrangement
Created July 13, 2021 06:58
Trim_Arrangement
Sub Trim_Arrangement()
'
' Macro1 Macro
'
'
Sheets("ExcelOut(Trim)").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
'---------------------------------------------
@imamuddinwp
imamuddinwp / BI_Report
Created July 13, 2021 06:57
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
@imamuddinwp
imamuddinwp / PO_Intregation
Created July 13, 2021 06:56
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 April 26, 2021 06:14
Get Image to cell in excel from URL; Convert image URL to actual image in excel; Powered by Imam Uddin; imamuddinwp.
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 February 20, 2021 08:06
Excel Email Validation with Data Validation; Powered by Imam Uddin, imamuddinwp
# 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)<>".")