Saturday, January 30, 2010

My Driving Speed Records – Chaklala Scheme 1 to G8 Markaz

Post Type :

New Picture (1)

Track 
Information

Start Date/Time:
26.01.2010 / 18:00:06 GMT

Duration:
21min 28s

Distance:
20 km

Country:
Pakistan (Punjab)

City:
Rawalpindi

Finish Date/Time:

26.01.2010 / 18:21:34 GMT

GPS Device:
BlackBerry 9000

Altitude (average):
467.8 m

Altitude (max):
528 m

Speed (average):
55.9 km/h

Speed (max):
89.3 km/h

Vehicle: Honda CG 125

http://gpsed.com/track/5950484350679795238

I don’t break any Traffic Law except Over Speeding :)

-urShadow


My Driving Speed Records – G8 Markaz to Chaklala Scheme 1

Post Type :

New Picture

Track 
Information

Start Date/Time:
26.01.2010 / 15:36:20 GMT

Duration:
21min

Distance:
20.6 km

Country:
Pakistan (Islamabad Capital Territory)

City:
Islamabad

Finish Date/Time:

26.01.2010 / 15:57:20 GMT

GPS Device:
BlackBerry 9000

Altitude (average):
466 m

Altitude (max):
506 m

Speed (average):
58.9 km/h

Speed (max):
92.8 km/h

Vehicle: Honda CG 125

http://gpsed.com/track/5950484350671084391

I don’t break any Traffic Law except Over Speeding :)

-urShadow


Friday, January 29, 2010

BlackBerry Master Control Program 0.9.3.0 Beta 4 Now Available

clip_image001

If you've ever modified your BlackBerry OS a little as a moderate to advanced user of BlackBerry smartphones you might be familiar with BlackBerry Master Control Program. If not, it's a great app for your computer that can help get at some of the inner workings of your BlackBerry OS to modify some stuff other apps simply cannot get at.

After having used the app myself for a while now, I've got to see it go through some growing stages and this time Darren, has released version 0.9.3.0 Beta 4 to the masses. The change log for BlackBerry Master Control is one that is always extensive, so hit up the site for downloads and more information on it's release. And remember folks, be careful with this app if you have no idea what it does, probably best left alone.

CrackBerry.com's feed sponsored by ShopCrackBerry.com. BlackBerry Master Control Program 0.9.3.0 Beta 4 Now Available

Read more


Interesting

Post Type :

Courtesy by:  Ghulam Akbar Allana <allana_ga@hotmail.com> wrote:

Some, rather most organizations reject his CV today because he has changed jobs frequently (10 in 14 years). My friend, the ‘job hopper’ (referred here as Mr. JH), does not mind it…. well he does not need to mind it at all. Having worked full-time with 10 employer companies in just 14 years gives Mr. JH the relaxing edge that most of the ‘company loyal’ employees are struggling for today. Today, Mr. JH too is laid off like some other 14-15 year experienced guys – the difference being the latter have just worked in 2-3 organizations in the same number of years. Here are the excerpts of an interview with Mr. JH :

Q : Why have you changed 10 jobs in 14 years?

A : To get financially sound and stable before getting laid off the second time.

Q : So you knew you would be laid off in the year 2009?

A : Well I was laid off first in the year 2002 due to the first global economic slowdown. I had not got a full-time job before January 2003 when the economy started looking up; so I had struggled for almost a year without job and with compromises.

Q : Which number of job was that?
A : That was my third job.

Q : So from Jan 2003 to Jan 2009, in 6 years, you have changed 8 jobs to make the count as 10 jobs in 14 years?

A : I had no other option. In my first 8 years of professional life, I had worked only for 2 organizations thinking that jobs are deserved after lot of hard work and one should stay with an employer company to justify the saying ‘employer loyalty’. But I was an idiot.

Q : Why do you say so?

A : My salary in the first 8 years went up only marginally. I could not save enough and also, I had thought that I had a ‘permanent’ job, so I need not worry about ‘what will I do if I lose my job’. I could never imagine losing a job because of economic slowdown and not because of my performance. That was January 2002.

Q : Can you brief on what happened between January 2003 and 2009.

A : Well, I had learnt my lessons of being ‘company loyal’ and not ‘money earning and saving loyal’. But then you can save enough only when you earn enough. So I shifted my loyalty towards money making and saving – I changed 8 jobs in 6 years assuring all my interviewers about my stability.

Q : So you lied to your interviewers; you had already planned to change the job for which you were being interviewed on a particular day?

A : Yes, you can change jobs only when the market is up and companies are hiring. You tell me – can I get a job now because of the slowdown? No. So one should change jobs for higher salaries only when the market is up because that is the only time when companies hire and can afford the expected salaries.

Q : What have you gained by doing such things?

A : That's the question I was waiting for. In Jan 2003, I had a fixed salary (without variables) of say Rs. X p.a. In January 2009, my salary was 8X. So assuming my salary was Rs.3 lakh p.a. in Jan 2003, my last drawn salary in Jan 2009 was Rs.24 lakh p.a. (without variable). I never bothered about variable as I had no intention to stay for 1 year and go through the appraisal process to wait for the company to give me a hike.

Q : So you decided on your own hike?

A : Yes, in 2003, I could see the slowdown coming again in future like it had happened in 2001-02. Though I was not sure by when the next slowdown would come, I was pretty sure I wanted a ‘debt-free’ life before being laid off again. So I planned my hike targets on a yearly basis without waiting for the year to complete.

Q : So are you debt-free now?

A : Yes, I earned so much by virtue of job changes for money and spent so little that today I have a loan free 2 BR flat (1200 sq.. feet) plus a loan free big car without bothering about any EMIs. I am laid off too but I do not complain at all. If I have laid off companies for money, it is OK if a company lays me off because of lack of money.

Q : Who is complaining?

A : All those guys who are not getting a job to pay their EMIs off are complaining. They had made fun of me saying I am a job hopper and do not have any company loyalty. Now I ask them what they gained by their company loyalty; they too are laid off like me and pass comments to me – why will you bother about us, you are already debt-free. They were still in the bracket of 12-14 lakh p.a. when they were laid off.

Q : What is your advice to professionals?

A : Like Narayan Murthy had said – love your job and not your company because you never know when your company will stop loving you. In the same lines, love yourself and your family needs more than the company's needs. Companies can keep coming and going; family will always remain the same. Make money for yourself first and simultaneously make money for the company, not the other way around.

Q : What is your biggest pain point with companies?

A : When a company does well, its CEO will address the entire company saying, ‘well done guys, it is YOUR company, keep up the hard work, I am with you.” But when the slowdown happens and the company does not do so well, the same CEO will say, “It is MY company and to save the company, I have to take tough decisions including asking people to go.” So think about your financial stability first; when you get laid off, your kids will complain to you and not your boss.


Tracking on Trail 5 in Margala Hills

Type: Trips - Daytrip

Network: Global

Date: Sunday, January 31, 2010

Time: 7:30am - 12:30pm

Location: Parking of Trail 3, opposite to F6

Street: E6, Margala Road

City/Town: Islamabad, Pakistan

View Map Google MapQuest Microsoft Yahoo

Description

Tracking will start from parking of Trail 3, we will use Trail 5 for climbing, brunch at Capital Hotel Pir Suhawa and will return through Trail 3. Wear Caps and bring ur own at least 1.5 liter bottle of water and some kind of backpack bag to carry it. Wear proper boots/joggers as the way is quite rocky.

http://www.facebook.com/event.php?invites&eid=272788158911


Wednesday, January 27, 2010

Position Holder

Post Type :

image

He is "Naveed Asif" from Nahranwali village Okara who scored 919 marks in Matric and got second position in BISE Lahore. His school was 7 KM away from his house and he used to walk 7 KM everyday to go to his school. here are his words :
“Me and my mother were really terrified when BISE Lahore team reached our home late at night before announcement of the result. Actually a few days ago, our cow was stolen at night owing to which we were terrified”.
“You may think it ridiculous but I always said to my mother that I wanted to be like Quaid-e-Azam Muhammad Ali Jinnah,” he said. “Quaid-e-Azam is a role model for me"
He seated at stairs after receiving his medal and later Mr. Shahbaz Sharif offered his seat to him.

From: Wajeeha Erum


Friday, January 22, 2010

What is skribit?

Post Type :

“We all know how much writer's block stinks. You want to produce original, quality content for your devoted readers but you're all out of ideas. Skribit helps you get suggestions for blog posts from your readers and the Skribit community.”

chk the link for details : http://skribit.com/


Thursday, January 21, 2010

First Look Microsoft Office 2010, by Katherine Murray

Post Type :
 

 
Microsoft Free E-book Offer Has Something For Everyone
First Look Microsoft Office 2010, by Katherine Murray
Have you downloaded the Microsoft Office 2010 beta? I’ve been using it for a while and couldn’t wait until our First Look Microsoft Office 2010 became available. Although I consider myself to be an intermediate to advanced user of Office applications, I can tell by reading the table of contents that I have a lot to learn about the newest features in Office and using the applications to their fullest extent. I’ve only had the new e-book for a couple of days, and I’ve already learned how to use two new tools in Excel 2010.
While using the beta, I noticed that the Office team added a couple of cool new features to Excel, one of my favorite programs. Sparklines and Slicers are compelling for analyzing data, but are not easy to use at first. I was thrilled to see that our author covered those features in this book. I followed the step by step instructions and here were my results:
Sparklines allow you to create little charts within a cell to help you visually notice patterns in your data. Rather than reading numbers in a row, I can create a Sparkline and see how our book sales are trending. If you want to try this yourself, Kathy gives you the steps in chapter 5.
Sparklines
If you love pivot tables as I do, you’re gonna love Slicers. They allow you to slice data and extend pivot tables to show your data in a variety of scenarios. Here’s how I used slicers (also covered in chapter 5). Once I created a regular pivot table of my data, I clicked on “Insert Slicer” and chose which field I wanted to use to slice my data. With this feature, I can click on the different topics to filter sales on particular categories.
Slicers

Airline announcements :)

Airline Announcements?

'There may be 50 ways to leave your lover, but there are only 4 ways out of this airplane'

************ ********* ********* *********

An airline pilot wrote that on this particular flight he had hammered his ship into the runway really hard. The airline had a policy Which required the first officer to stand at the door while the passengers exited, smile, and give them a 'Thanks for flying our airline. " He said that, in light of his bad landing, I had a hard time looking the passengers in the eye, thinking that someone would have a smart comment. Finally everyone had gotten off except for a little old lady walking with a cane.

She said, 'Sir, do you mind if I ask you a question? "

'Why, no, Ma'am,' said the pilot. 'What is it? "

The little old lady said, 'Did we land, or were we shot down? "

************ ********* ********* *********

Part of a flight attendant's arrival announcement: 'We'd like to thank you folks for flying with us today. And, the next time you get the insane urge to go blasting through the skies in a pressurized metal tube, we hope you'll think of U.S. Airways. "

From: Nusrat Rehan Mazhary


Liver Damage

Post Type :
 

Liver Damage


The main causes of liver damage are:
Read More

http://whysickness.blogspot.com/2010/01/liver-damage.html


How to Backup and Restore Your 3rd party Applications in Blackberry

http://www.bbgeeks.com/blackberry-guides/geek-guide-how-to-backup-and-restore-your-3rd-party-applications-88431/

http://www.boygeniusreport.com/2008/12/21/how-to-back-up-your-blackberry-applications/

http://forums.crackberry.com/f3/updated-how-back-up-3rd-party-applications-updated-53201/

http://www.rimgeeks.com/viewtopic.php?f=62&t=18


Wednesday, January 20, 2010

Copying data from multiple excel files to one excel file through Macro / VBA

This is my first VBA program:) I wanted to copy a specific data form 14 files into one file. The macro I developed to do this is below. Its exactly developed in the way I wanted it but u can change it according to ur requirements. Now I am working on to use for loop to make the code efficient.

   1: Sub Macro5()


   2: '


   3: Dim FileName1 As String


   4: Dim Day1 As String


   5: Dim FileName2 As String


   6: Dim FileName3 As String


   7: Dim FileName4 As String


   8: Dim FileName5 As String


   9: Dim OutputFileName1 As String


  10:  


  11: FileName1 = "\\folder\"


  12: FileName5 = "1- January 2010\"


  13: Day1 = "Jan 11"


  14: Day2 = "Jan 12"


  15: Day3 = "Jan 13"


  16: Day4 = "Jan 14"


  17: Day5 = "Jan 15"


  18: Day6 = "Jan 16"


  19: Day7 = "Jan 17"


  20: FileName2 = "\file_"


  21: FileName3 = " 2010.xls"


  22:  


  23: FileName4 = "\file2_"


  24:  


  25: OutputFileName1 = "Week 02 - KPIs.xlsm"


  26:     


  27: ' A -----------------------------------------------------------------------


  28:     


  29:     Workbooks.Open Filename:=FileName1 + FileName5 + Day1 + FileName2 + Day1 + FileName3


  30:     Rows("3:8").Select


  31:     Selection.Copy


  32:     Windows(OutputFileName1).Activate


  33:     Sheets("A").Select


  34:     Range("A02").Select


  35:     ActiveSheet.Paste


  36:     Application.CutCopyMode = Flase


  37:     Workbooks(Right(FileName2, 22) + Day1 + FileName3).Close


  38:  


  39:     


  40:     Workbooks.Open Filename:=FileName1 + FileName5 + Day2 + FileName2 + Day2 + FileName3


  41:     Rows("3:8").Select


  42:     Selection.Copy


  43:     Windows(OutputFileName1).Activate


  44:     Range("A08").Select


  45:     Sheets("A").Select


  46:     ActiveSheet.Paste


  47:     Application.CutCopyMode = Flase


  48:     Workbooks(Right(FileName2, 22) + Day2 + FileName3).Close


  49:     


  50:     Workbooks.Open Filename:=FileName1 + FileName5 + Day3 + FileName2 + Day3 + FileName3


  51:     Rows("3:8").Select


  52:     Selection.Copy


  53:     Windows(OutputFileName1).Activate


  54:     Range("A14").Select


  55:     Sheets("A").Select


  56:     ActiveSheet.Paste


  57:     Application.CutCopyMode = Flase


  58:     Workbooks(Right(FileName2, 22) + Day3 + FileName3).Close


  59:     


  60:     Workbooks.Open Filename:=FileName1 + FileName5 + Day4 + FileName2 + Day4 + FileName3


  61:     Rows("3:8").Select


  62:     Selection.Copy


  63:     Windows(OutputFileName1).Activate


  64:     Range("A20").Select


  65:     Sheets("A").Select


  66:     ActiveSheet.Paste


  67:     Application.CutCopyMode = Flase


  68:     Workbooks(Right(FileName2, 22) + Day4 + FileName3).Close


  69:     


  70:     Workbooks.Open Filename:=FileName1 + FileName5 + Day5 + FileName2 + Day5 + FileName3


  71:     Rows("3:8").Select


  72:     Selection.Copy


  73:     Windows(OutputFileName1).Activate


  74:     Range("A26").Select


  75:     Sheets("A").Select


  76:     ActiveSheet.Paste


  77:     Application.CutCopyMode = Flase


  78:     Workbooks(Right(FileName2, 22) + Day5 + FileName3).Close


  79:     


  80:     Workbooks.Open Filename:=FileName1 + FileName5 + Day6 + FileName2 + Day6 + FileName3


  81:     Rows("3:8").Select


  82:     Selection.Copy


  83:     Windows(OutputFileName1).Activate


  84:     Range("A32").Select


  85:     Sheets("A").Select


  86:     ActiveSheet.Paste


  87:     Application.CutCopyMode = Flase


  88:     Workbooks(Right(FileName2, 22) + Day6 + FileName3).Close


  89:     


  90:     Workbooks.Open Filename:=FileName1 + FileName5 + Day7 + FileName2 + Day7 + FileName3


  91:     Rows("3:8").Select


  92:     Selection.Copy


  93:     Windows(OutputFileName1).Activate


  94:     Range("A38").Select


  95:     Sheets("A").Select


  96:     ActiveSheet.Paste


  97:     Application.CutCopyMode = Flase


  98:     Workbooks(Right(FileName2, 22) + Day7 + FileName3).Close


  99:     


 100:     Range("A02").Select


 101:     


 102: 'M -------------------------------------------------------------------------


 103:     


 104:     Workbooks.Open Filename:=FileName1 + FileName5 + Day1 + FileName4 + Day1 + FileName3


 105:     Rows("3:8").Select


 106:     Selection.Copy


 107:     Windows(OutputFileName1).Activate


 108:     Sheets("M").Select


 109:     Range("A02").Select


 110:     ActiveSheet.Paste


 111:     Application.CutCopyMode = Flase


 112:     Workbooks(Right(FileName4, 19) + Day1 + FileName3).Close


 113:  


 114:     


 115:     Workbooks.Open Filename:=FileName1 + FileName5 + Day2 + FileName4 + Day2 + FileName3


 116:     Rows("3:8").Select


 117:     Selection.Copy


 118:     Windows(OutputFileName1).Activate


 119:     Range("A08").Select


 120:     Sheets("M").Select


 121:     ActiveSheet.Paste


 122:     Application.CutCopyMode = Flase


 123:     Workbooks(Right(FileName4, 19) + Day2 + FileName3).Close


 124:     


 125:     Workbooks.Open Filename:=FileName1 + FileName5 + Day3 + FileName4 + Day3 + FileName3


 126:     Rows("3:8").Select


 127:     Selection.Copy


 128:     Windows(OutputFileName1).Activate


 129:     Range("A14").Select


 130:     Sheets("M").Select


 131:     ActiveSheet.Paste


 132:     Application.CutCopyMode = Flase


 133:     Workbooks(Right(FileName4, 19) + Day3 + FileName3).Close


 134:     


 135:     Workbooks.Open Filename:=FileName1 + FileName5 + Day4 + FileName4 + Day4 + FileName3


 136:     Rows("3:8").Select


 137:     Selection.Copy


 138:     Windows(OutputFileName1).Activate


 139:     Range("A20").Select


 140:     Sheets("M").Select


 141:     ActiveSheet.Paste


 142:     Application.CutCopyMode = Flase


 143:     Workbooks(Right(FileName4, 19) + Day4 + FileName3).Close


 144:     


 145:     Workbooks.Open Filename:=FileName1 + FileName5 + Day5 + FileName4 + Day5 + FileName3


 146:     Rows("3:8").Select


 147:     Selection.Copy


 148:     Windows(OutputFileName1).Activate


 149:     Range("A26").Select


 150:     Sheets("M").Select


 151:     ActiveSheet.Paste


 152:     Application.CutCopyMode = Flase


 153:     Workbooks(Right(FileName4, 19) + Day5 + FileName3).Close


 154:     


 155:     Workbooks.Open Filename:=FileName1 + FileName5 + Day6 + FileName4 + Day6 + FileName3


 156:     Rows("3:8").Select


 157:     Selection.Copy


 158:     Windows(OutputFileName1).Activate


 159:     Range("A32").Select


 160:     Sheets("M").Select


 161:     ActiveSheet.Paste


 162:     Application.CutCopyMode = Flase


 163:     Workbooks(Right(FileName4, 19) + Day6 + FileName3).Close


 164:     


 165:     Workbooks.Open Filename:=FileName1 + FileName5 + Day7 + FileName4 + Day7 + FileName3


 166:     Rows("3:8").Select


 167:     Selection.Copy


 168:     Windows(OutputFileName1).Activate


 169:     Range("A38").Select


 170:     Sheets("M").Select


 171:     ActiveSheet.Paste


 172:     Application.CutCopyMode = Flase


 173:     Workbooks(Right(FileName4, 19) + Day7 + FileName3).Close


 174:   


 175:     Range("A02").Select


 176:     Sheets("A").Select


 177:     


 178:     


 179: End Sub


 180:  




References:



For taking substring



http://www.programmersheaven.com/mb/vba/97607/97607/substring-function-in-vba/



http://www.xtremevbtalk.com/showthread.php?t=277326



Function Right()



http://www.techonthenet.com/access/functions/string/right.php



Closing a file



http://www.contextures.com/xlfaqMac.html#Close



http://www.vbforums.com/showthread.php?t=534068



http://www.vbforums.com/showthread.php?t=511723



Closing a file with copypaste mode off



http://www.exceltip.com/st/Close_a_workbook_using_VBA_in_Microsoft_Excel/469.html



String concatenation



http://www.vbtutor.net/lesson6.html



Opening a file



http://www.ozgrid.com/VBA/loop-through.htm



Variables



http://www.ozgrid.com/VBA/variables.htm



Duplicating Conditional Formatting Rules



http://excelusergroup.org/forums/p/497/1480.aspx



http://www.microsoft.com/communities/newsgroups/en-us/default.aspx?dg=microsoft.public.excel.programming&tid=80c0a31b-6383-461a-bc36-b8b88aef0ed7&cat=en_US_3a793e1f-4961-419d-9ec7-899d6e6086cd&lang=en&cr=US&sloc=&p=1



http://blogs.msdn.com/excel/archive/2006/05/09/594200.aspx



Function IF()



http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=242



http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=225















- urShadow


Related Posts Plugin for WordPress, Blogger...