%5B2%5D.png "New Picture (1)")
Start Date/Time:
26.01.2010 / 18:00:06 GMT
Duration:
21min 28s
Distance:
20 km
Country: 
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
Start Date/Time:
26.01.2010 / 15:36:20 GMT
Duration:
21min
Distance:
20.6 km
Country:
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
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
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.
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
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.
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
I travelled this distance in 6 mins on my Honda CG125.
I don’t break any Traffic Law except over speeding :)
-urShadow
“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/
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
|
The main causes of liver damage are: http://whysickness.blogspot.com/2010/01/liver-damage.html |
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
"Trail 3"
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 + FileName330: Rows("3:8").Select
31: Selection.Copy 32: Windows(OutputFileName1).Activate33: 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 + FileName341: Rows("3:8").Select
42: Selection.Copy 43: Windows(OutputFileName1).Activate44: 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 + FileName351: Rows("3:8").Select
52: Selection.Copy 53: Windows(OutputFileName1).Activate54: 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 + FileName361: Rows("3:8").Select
62: Selection.Copy 63: Windows(OutputFileName1).Activate64: 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 + FileName371: Rows("3:8").Select
72: Selection.Copy 73: Windows(OutputFileName1).Activate74: 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 + FileName381: Rows("3:8").Select
82: Selection.Copy 83: Windows(OutputFileName1).Activate84: 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 + FileName391: Rows("3:8").Select
92: Selection.Copy 93: Windows(OutputFileName1).Activate94: 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 + FileName3105: Rows("3:8").Select
106: Selection.Copy 107: Windows(OutputFileName1).Activate108: 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 + FileName3116: Rows("3:8").Select
117: Selection.Copy 118: Windows(OutputFileName1).Activate119: 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 + FileName3126: Rows("3:8").Select
127: Selection.Copy 128: Windows(OutputFileName1).Activate129: 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 + FileName3136: Rows("3:8").Select
137: Selection.Copy 138: Windows(OutputFileName1).Activate139: 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 + FileName3146: Rows("3:8").Select
147: Selection.Copy 148: Windows(OutputFileName1).Activate149: 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 + FileName3156: Rows("3:8").Select
157: Selection.Copy 158: Windows(OutputFileName1).Activate159: 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 + FileName3166: Rows("3:8").Select
167: Selection.Copy 168: Windows(OutputFileName1).Activate169: 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://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