yosemite planning top 6 places

April 9th, 2012

So we’ve decided to plan a trip to yosemite national park.

My top 6 priority places in yosemite to visit list
1. maroposa grove (map)
2. tuolumne meadows
3. cathedral lakes trail
4. tenaya lake
5. four mile trail
6. raft merced river

1. wawoana meadow loop
2. gaylor lakes
3. tuolumne grove of giant sequoias
4. elizabeth lake
5. panorama trail
6. not close to anything : mono lake south tufa trail
7. taft point and fissures

Debating if i should do the http://www.yosemitepark.com/valley-floor-tour.aspx or just go straight into hiking the locations.

Free Shuttle map through the park.
need to list where the restroom and eat spots are.

excel 2003/2007: opening files in a new instance

March 26th, 2012

One of the biggest annoyances i’m dealing with is dealing with excel randomly opening a new file from the windows explorer and it opens up the new file in the existing excel window.

in other words.
if one excel file is open
click on a new excel file to open
it opens the file in the new excel.
oh how i wish excel was tabbed by documents the same fashion as chrome or firefox.
in the meantime I’ll just ask for it to open in a new window.

I followed this guy’s tutorial
http://forums.whirlpool.net.au/archive/850718

It looks like a bit of a long-winded solution, but from techrepublic.com.com/520…essageID=2254006 :

My Computer
Tools
Folder Options
File Types
Choose XLS
Go to Advanced

Uncheck “browse in same window” in advanced window.

Then highlight Open
Edit

Make sure in the Action box it says &Open

Make sure in the application used to perform action it says:
“C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE” “%1″

Check the box next to use DDE

Remove anything that is in DDE Message box and DDE Application Not Running box.

Make sure the application box says: EXCEL

And in the Topic box it says: System

there is also the Excel Advanced option to make it open in a new window:
There is a setting you can enable within Excel 2007, similar to the option there was in 2003, but just a different location due to the changed GUI of course:

1. Open one instance of Excel 2007
2. Click on the Office Button (top left hand corner)
3. Click Excel Options
4. Go to the Advanced section on the left
5. Scroll down to the “Display” heading
6. Tick “Show all windows in the Taskbar”
7. Close Excel

Existing problem is when you open from an email attachment, it still does the same thing.

Lockergnome forum has their solution:

http://help.lockergnome.com/office/Open-Excel-Files-Separate-Windows–ftopict706425.html

By the way, there is a way to solve the “can’t open if there are spaces in the filename”. To get separate windows AND be able to open all files, do this:

1. In Windows Explorer, choose the Tools/Folder Options menu.
2. Click on the File Types tab
3. Scroll down and select the “XLS Microsoft Excel Worksheet” item
4. Click the “Advanced” button
5. Uncheck the “Browse in same window” option

So far this is just like what everyone has been saying…BUT, it will give you problems opening files that have spaces in them. Continue on to fix that…

6. Click on “Open” in the Actions list
7. Click the “Edit” button
8. Click in the “Application used to perform action:” box
9. Scroll to the very end. It will say something like …EXCEL.EXE” /e %1
10. Put quotes around the %1, so it now ends with …EXCEL.EXE” /e “%1″
11. Click OK twice, Close once, and you should be in business

Buy the Excel BumpOut Button
A button that just pushes out the excel document out into a new instance.

Excel : quick and dirty script to change values in a spreadsheet

December 23rd, 2011

just a quick and dirty script to quickly blank out columns in a spreadsheet.

Sub clearout()
Dim rng As Range, row As Range, cell As Range
Set rng = Range(”I12:K33″)

For Each a In rng.Rows
For Each cell In a.Cells

cell.Value = “”
Next
Next
Set rng = Range(”C12:C33″)
For Each cell In rng.Cells

cell.Value = “”
Next
End Sub

Import active python modules from a folder.

July 26th, 2011

http://www.faqs.org/docs/diveintopython/odbchelper_divein.html
downloaded the file and then put it into a folder. c:\temp\python\ in my case with the commands:

>> import sys
>> sys.path.append(’c:\\temp\\python\\’)

MS Excel funny annoyance : can’t open worksheet in a new window (part 1)

May 30th, 2011

Here is a funny annoyance from MS Excel 2003/2007. When I click on windows explorer or
Sharepoint links to open excel files, they randomly open in the same instance of excel or they open in their own excel instance. So I took the liberty of producing a solution which does just that. Creating a button which pushes the selected worksheet “out” into a new Excel instance.

Here are some forseen issues:
- there needs to be a button in excel to activate the action
- Macro security
- error checking for read-only

excel vba : for loop cross cell copying

April 27th, 2011

quick assignment taking the value from a formulated cell to another and copying it to another and for loop it.

For i = 68 To 100
Range(”i” & i) = Range(”k” & i)
Next i

EDI datetime formats

April 6th, 2011

It seems X12 and EDIFACT are fairly equivalent regarding dates.
An example of the newer X12 standards for dates would be Data Element 1250
and how it defines the next element; 1251 (The actual date being reported).

Some of the valid values for DE1250 are:

CC – First two digits of the year expressed in the format CCYY (length of 2)

CM – Date in Format CCYYMM (length of 6)
CY – Year Expressed in Format CCYY (length of 4)
D6 – Complete Date expressed in the format YYMMDD (length of 6)
D8 – Complete Date expressed in the format CCYYMMDD (length of 8)
DB – Date Expressed in Format MMDDCYY
DD – Day of Month in Numeric Format (length of 2)
DT – Date and Time Expressed in Format CCYYMMDDHHMM (length of 12)
MD – Month of Year and Day of Month in Format MMDD (length of 4)
MM – Month of Year in Numeric Format (length of 2)
TM – Time Expressed in Format HHMM (length of 4)
TS – Time Expressed in Format HHMMSS (length of 6)
YM – Year and Month Expressed in Format YYMM (length of 4)
YY – Last two digits of Year Expressed in Format CCYY (length of 2)
RD2 – Range of Years Expressed in Format YY-YY (length of 5)
RD4 – Range of Years Expressed in Format CCYY-CCYY (length of 9)
RD5 – Range of Years and Months Expressed in Format CCYYMM-CCYYMM (length of
13)
RD6 – Range of Dates Expressed in Format YYMMDD-YYMMDD (length of 13)
RD8 – Range of Dates Expressed in Format CCYYMMDD-CCYYMMDD (length of 17)
RDM – Range of Dates Expressed in Format YYMMDD-MMDD (length of 11)
RDT – Range of Date and Time, Expressed in Format CCYYMMDDHHMM-CCYYMMDDHHMM
(length of 25)
RMD – Range of Months and Days Expressed in format MMDD-MMDD (length of 9)
RTM – Range of Time Expressed in Format HHMM-HHMM (length of 9)

DE1251 is a 35 byte alpha-numeric field.

optimizing vista

December 15th, 2010

An article I used to optimize Windows Vista running on my little UMPC. Since I primarily use this computer at home, I disabled a number of services which allowed it to run significantly faster.

http://www.optimizingpc.com/vista/optimizing_windows_services.html

disabling aero also helps
http://www.howtogeek.com/howto/windows-vista/disable-aero-on-windows-vista/

MS Access VBA : outputing each record to a new text file

September 30th, 2010

So I recently had to come up with a pretty quick and dirty way to export each record out of a database into a text file. each record was a broken down email which needed to be output’d to its whole self again.

below is the code written in vba:

Private Sub Command65_Click()
Dim strSql As String
Dim strSubject As String
Dim strEmailBody As String
Dim fso As New FileSystemObject
Dim i As Integer
Dim ts As Object
Dim rst As Recordset
Set fso = CreateObject("Scripting.FileSystemObject")

strSql = "select top 10 i.uiditem, i.strEmailSubject, i.strEmailBody from tblpcs_ch_entitybin e inner JOIN tblkepsitem i on e.uidcollection = i.uidcollection and e.uiditem = i.uiditem where e.chbinno like 'SUBJECT MISSING"

Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset, dbSeeChanges)
'rst.MoveLast
i = 0
Do Until rst.EOF

strSubject = "Subject: " & rst!strEmailSubject & vbCr & vbNewLine & rst!strEmailBody
Set ts = fso.CreateTextFile("c:\temp\" & i & ".txt", True)
ts.Write strSubject
ts.Close
Set ts = Nothing

'MsgBox (strSubject)
i = i + 1
rst.MoveNext
Loop

End Sub

deactivate google voice forwarding

September 24th, 2010

Wireless Carrier or Network —> Deactivation Code
AT&T Cingular, T-Mobile, GSM network: ##004#

Verizon (CDMA network): *73 AND *900 AND *920

Verizon (TDMA Network): *740 AND *730

Bluegrass Cellular: *900 AND *920

Cellcom: *680

Cincinnati Bell: ##004#

US Cellular: *740