INGREDIENTS
1 pts
fig spread
1 pts
fig spread
1 g
Top Sirloin
1 g
Top Sirloin
1 serving
fig spread
1 serving
string beans
1 serving
string beans
1 serving
button mushrooms
1 serving
string beans
1 serving
string beans
1 serving
string beans
1 serving
gumbo file
1 serving
baby-back ribs
1 serving
1 serving
1 serving
1 serving
advertisement
1 serving
it's no secret that i'm a total excel fanboy. much of that comes from the fact that i enjoy writing vba code
3
in the past
1 serving
how to integrate excel data into a word document
1 serving
how to integrate excel data into a word document
1 serving
read more
1 serving
sending out emails straight from excel
1 pts
our code template will help you set up automated emails from within excel using collaboration data objects and vba scripts
1 serving
read more
1 can
course if you aren't much of a coder
1 serving
read more
3
if you want to enhance your use of excel
1 serving
managing your life
1 serving
monitoring your websites
1 serving
i've tried a lot of different tools to ping the different websites that i manage
1 serving
monitor network devices and websites
1 serving
monitor network devices and websites
1 serving
both at work and at home
1 serving
read more
1 sheet
this is how i laid out the
1 serving
dim intsitecount as integer
1 serving
dim intcount as integer
1 serving
dim oping as object
1 serving
dim intcol as integer
1 serving
dim introw as integer
1
intsitecount = cint).value)
3
introw
1 serving
sping
1
sping
1
introw = introw
1 serving
next
3
introw
1
shost = .cells
1 gm
set oping = getobject).execquery
oretstatus.statuscode then
1 serving
sping = "ping failed
1 serving
else
1 serving
sping = shost & " ping success on " & now) & chr
1 serving
sping = sping & "time = " & vbtab & oretstatus.responsetime & chr
1 serving
sping = sping & "ttl s = " & vbtab & vbtab & oretstatus.responsetimetolive
1 serving
end if
1 serving
next
1
sping
1
introw = introw
1 serving
next
1 pt
here's how those results look after the script runs
1 serving
the results column shows whether the ping was successful
1 serving
type the name of the macro
1 can
this will open up the code screen where you can insert the code from above
1 Link
maintaining a library of link groups
1 serving
dim intsitecount as integer
1 serving
dim intcount as integer
1 serving
dim intcol as integer
1 serving
dim introw as integer
2
intsitecount = cint).value)
5
introw
1 link
activeworkbook.followhyperlink )
1
introw = introw
1 serving
next
1 serving
previewing your picture gallery
1 sheet
right now i manually update this by deleting all pictures from the b column
1 serving
dim mypict as stdpicture
1 serving
dim introw as integer
1 serving
dim mypictname as variant
1 serving
dim mycell as range
1 serving
dim myrng as range
1 serving
dim intskip as integer
2
introw
3
strfilepath = cells).value
1 serving
set myobject = new scripting.filesystemobject
1 serving
set mysource = myobject.getfolder)
1 serving
on error resume next
3
set myrng = range).end))
1 serving
end with
4
".png" then
3
.value
3
.value = myfile.name
intskip
1
if intskip = then
125
.shapes.addpicture myfile.path
1 serving
end with
1 serving
end if
1
intskip = intskip
1 serving
next mycell
1 serving
end if
1
introw = introw
1 serving
next
1 serving
managing your debt