Saturday, January 30, 2010

My Driving Speed Records – Chaklala Scheme 1 to G8 Markaz

Post Type :

New Picture (1)


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

21min 28s

20 km

Pakistan (Punjab)


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

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


My Driving Speed Records – G8 Markaz to Chaklala Scheme 1

Post Type :

New Picture


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


20.6 km

Pakistan (Islamabad Capital Territory)


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

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


Friday, January 29, 2010

BlackBerry Master Control Program Beta 4 Now Available


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 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.'s feed sponsored by BlackBerry Master Control Program Beta 4 Now Available

Read more


Post Type :

Courtesy by:  Ghulam Akbar Allana <> 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


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.

Wednesday, January 27, 2010

Position Holder

Post Type :


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 :

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.
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.

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

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

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


  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"


  23: FileName4 = "\file2_"


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


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


  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



  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


  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


  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


  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


  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


  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


 100:     Range("A02").Select


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


 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



 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


 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


 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


 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


 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


 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


 175:     Range("A02").Select

 176:     Sheets("A").Select



 179: End Sub



For taking substring

Function Right()

Closing a file

Closing a file with copypaste mode off

String concatenation

Opening a file


Duplicating Conditional Formatting Rules

Function IF()

- urShadow

Related Posts Plugin for WordPress, Blogger...