Wednesday, December 29, 2010

New Ronaldo Biker Ad Honda Ball Juggling


Store of My Life


Soldiers Blow Up Tanker With Grenades


Did You Know This??!!


Coolest Guy on the Planet


Orangutan Vs Tiger


North Korea Nuclear Test


DIY Teeth Whitening - Amazing Tip That Everyone Could Use at Your Home


Skating


Funny Videos Encounters..


BMW 2010


Easy Magic Trick You Can Do


Baby Praying


Monkey Taunts Tigers


Make a Emergency Light from a Pencil!


Amazing Simulator Game


Earthquake in Pool


Tuesday, December 28, 2010

20050723-09 - Trip to Murree

-urShadow


20101224-23 - Umrah

image

Track Information http://gpsed.com/track/5950484349131642571

Start Date/Time:
23.12.2010 / 00:17:28

Duration:
49hr 54min

Distance:
2234.7 km (8894 points)

Country:
Saudi Arabia (Mintaqat ar Riyad)

City:
Riyadh

Finish Date/Time:

25.12.2010 / 02:12:11

GPS Device:
BlackBerry 9000

Altitude (average):
635 m

Altitude (max):
1687 m

Speed (average):
44.7 km/h

Speed (max):
174.2 km/h

 

-urShadow


20101222-1110 - Riyadh

-urShadow


20101109-04 - Leaving Islamabad

-urShadow


A Story of Appreciation

Post Type :

One young academically excellent person went to apply for a managerial position in a big company.
He passed the first interview, the director did the last interview, made
the last decision.
The director discovered from the CV that the youth's academic
achievements were excellent all the way, from the secondary school until the postgraduate research, never had a year when he did not score.
The director asked, "Did you obtain any scholarships in school?" the
youth answered "none".
The director asked, " Was it your father who paid for your school fees?" The youth answered, "My father passed away when I was one year old, it was my mother who paid for my school fees.
The director asked, " Where did your mother work?" The youth answered, "My mother worked as clothes cleaner. The director requested the youth to show his hands. The youth showed a pair of hands that were smooth and perfect.
The director asked, " Have you ever helped your mother wash the clothes
before?" The youth answered, "Never, my mother always wanted me to study and read more books. Furthermore, my mother can wash clothes faster than me.
The director said, "I have a request. When you go back today, go and
clean your mother's hands, and then see me tomorrow morning.*
The youth felt that his chance of landing the job was high. When he went back, he happily requested his mother to let him clean her hands. His mother felt strange, happy but with mixed feelings, she showed her hands to the kid.
The youth cleaned his mother's hands slowly. His tear fell as he did that. It was the first time he noticed that his mother's hands were so wrinkled, and there were so many bruises in her hands. Some bruises were so painful that his mother
shivered when they were cleaned with water.
This was the first time the youth realized that it was this pair of hands that washed the clothes everyday to enable him to pay the school fee. The bruises in the mother's hands were the price that the mother had to pay for his
graduation, academic excellence and his future.
After finishing the cleaning of his mother hands, the youth quietly washed all the remaining clothes for his mother.
That night, mother and son talked for a very long time.
Next morning, the youth went to the director's office.
The Director noticed the tears in the youth's eyes, asked: " Can you tell me
what have you done and learned yesterday in your house?"
The youth answered, " I cleaned my mother's hand, and also finished
cleaning all the remaining clothes'
The Director asked, " please tell me your feelings."
The youth said, Number 1, I know now what is appreciation. Without my mother, there would not the successful me today. Number 2, by working together and helping my mother, only I now realize how difficult and tough it is to get something done. Number 3, I have come to appreciate the importance and value of family relationship.
The director said, " This is what I am looking for to be my manager.
I want to recruit a person who can appreciate the help of others, a person who knows the sufferings of
others to get things done, and a person who would not put money as his only goal in life. You are hired.
Later on, this young person worked very hard, and received the respect of his subordinates. Every employee worked diligently and as a team. The company's performance improved tremendously.
A child, who has been protected and habitually given whatever he wanted, would develop "entitlement mentality" and would always put himself first. He would be ignorant of his parent's efforts. When he starts work, he assumes that every person must listen to him, and when he becomes a manager, he would never know the sufferings of his employees and would always blame others. For this kind of people, who may be good academically, may be successful for a while, but eventually would not feel sense of achievement. He will grumble and be full of hatred and fight for more. If we are this kind of protective parents, are we really showing love or are we destroying the kid instead?*
You can let your kid live in a big house, eat a good meal, or anyother Luxurious things. But when you are cutting grass, please let them experience it. After a meal, let them wash their plates and bowls together with their brothers and sisters. It is not because you do not have money to hire a maid, but it is because you want to love them in a right way. You want them to understand, no matter how rich their parents are, one day their hair will grow gray, same as the mother of that young person. The most important thing is your kid learns how to appreciate the effort and experience the difficulty and learns the ability to work with others to get things done.


From: Muhammad Awan


201011 - My Farewells in Islamabad

-urShadow


20030915 - Nauman's Top ( K-5 )

-urShadow


20030517 - HIKING TRIP


200311 - Get Together at choti eid

-urShadow


2004 - BCSE 8

Post Type :


20040529 - Zulfiqar Cricket Stadium

Post Type :

-urShadow


20030926 - saad lambay's birthday

Post Type :

-urShadow


200401 - BCSE 7,3rd Sessional

-urShadow


20040410 - Haseeb

Post Type :


20031030 - Ali's Top ( K-6 )

-urShadow


20040531 - SES Get together

-urShadow


20040501 - me, marry, mansha long drive

-urShadow


20031012 - pak vs sa cricket match


20040101 - Muree + ayubia baraf

Post Type : |


20030515 - Rope Climbing

Post Type :


20020218 - APDC vs BZU Cricket Match

Post Type : |


2001- APDC Multan

Post Type : |


Pakistan

Post Type : |


Nuclear Detonation Timeline "1945-1998"

From: Ahmed Shahzad


Monday, December 27, 2010

Pakistan Cricket Team

clip_image001

clip_image002

clip_image003

clip_image004

clip_image005

clip_image006

From: Alina Batool


Organize feature in Outlook 2010

http://www.msoutlook.info/question/454


Outlook 2007: Save All Attachments and Remove Them From Multiple Emails using SaveAllAttachments

http://www.shivaranjan.com/2009/04/10/outlook-2007-save-all-attachments-and-remove-them-from-multiple-emails-using-saveallattachments/


MySQL

To install MySQL for just learning/testing purposes

  1. Goto http://www.mysql.com and register urself
  2. Download MySQL Community Server http://www.mysql.com/downloads/mysql/
  3. Run MySQL Server Instance Config Wizard and configure the server
  4. Download MySQL Workbench http://www.mysql.com/downloads/workbench/
  5. Run Workbench and Make DBs, Tables, Columns, Queries etc

-urShadow


Run Google Docs through Desktop PC

http://www.robertnyman.com/gmdesk/

http://pack.google.com/intl/en/pack_installer.html


Sunday, December 26, 2010

The World’s Number 1 Best Selling BlackBerry Application is ‘Made in Pakistan’!

Post Type :

Photo Editor, the World’s number one seller, in all categories, on Blackberry App Store happens to be ‘Made in Pakistan’. Developed by a Lahore-based software company Pepper.PK, the Photo Editor for blackberry has made it to the top of list for paid applications.

Click here to read complete coverage


VBA/Macro For Excel 2010 to process 4 csv files and generate a graphical report

 

   1: Sub Execute()
   2: '
   3: ' 20101222 - Ver1
   4: ' Nauman Khan, http://naumankhan.blogspot.com, naumankhan@bigfoot.com
   5:  
   6: Application.ScreenUpdating = False        ' to disable screen updating while macro is running
   7:  
   8: Dim Path1 As String     ' path of the input/template/report files
   9: Dim Filename1 As String     ' name of the FSHA input file
  10: Dim Filename2 As String     ' name of the FSHB input file
  11: Dim Filename3 As String     ' name of the FMRA input file
  12: Dim Filename4 As String     ' name of the FMRB input file
  13: Dim Filename5 As String     ' name of the output template file
  14: Dim Filename6 As String     ' name of the output report file
  15: Dim Date1 As String     ' date of data to be processed
  16: Dim Date2 As String     ' date for the filter
  17: Dim Date3 As String     ' date for the summary tab
  18: Dim Date4 As String     ' first date of the summary tab
  19: Dim Date5 As String     ' last date of the summary tab
  20: Dim Date6 As String     ' for chart title in summary tab
  21:  
  22: Sheets("Main Menu").Select      ' to read file names and date from main menu tab
  23: Filename1 = Range("C5").Text
  24: Filename2 = Range("C6").Text
  25: Filename3 = Range("C7").Text
  26: Filename4 = Range("C8").Text
  27: Filename5 = Range("C9").Text
  28: Date1 = Range("C11").Text
  29:  
  30: Filename6 = Left(Filename5, 32) + ".xlsx"       ' generating name of report file from template file
  31: Path1 = ThisWorkbook.Path + "\"     ' detecting path of template file
  32: Date2 = Mid(Date1, 5, 2) + "/" + Right(Date1, 2) + "]"      ' Changing the format of date according to the one used in filter
  33: Date3 = Mid(Date1, 5, 2) + "/" + Right(Date1, 2) + "/" + Left(Date1, 4)     ' Changing the format of date according to the one used in summary tab
  34:  
  35: Windows(Filename5).Activate     ' moving the dates from the summary tab to one day back
  36: Sheets("Summary").Select
  37: Range("C23:E28").Select
  38: Selection.Copy
  39: Range("C22").Select
  40: ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
  41:     IconFileName:=False
  42:  
  43: Sheets(Array("FSHA", "FSHB", "FMRA", "FMRB")).Select        ' to clear previous values of FSHA, FSHB, FMRA, FMRB tabs
  44: Range("A2:J289").Select
  45: Selection.ClearContents
  46:  
  47: '------------------------------------------------------------------------------------------
  48: Workbooks.Open Filename:=Path1 + Filename1      ' open FSHA input file
  49: Columns("A:A").Select       ' select 1st col and apply text to col using tab delimiter
  50: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  51:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
  52:     Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
  53:     :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
  54:     Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
  55: Columns("B:B").Select       ' select 2nd col and add an empty col
  56: Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  57: Range("A1").FormulaR1C1 = "Time"        ' set cell A1 to time
  58: Columns("A:A").Select       ' select 1st col and apply text to col using space delimiter
  59: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  60:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
  61:     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
  62:     :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
  63: Range("B1").Select      ' select cell B2 and set to date
  64: ActiveCell.FormulaR1C1 = "Date"
  65: Selection.AutoFilter        ' apply filter on cell B2 to filter out Date2
  66: ActiveSheet.Range(Cells(1, 1), Cells(Application.CountA(Range("A:A")), 9)).AutoFilter Field:=2, Criteria1:=Date2
  67: ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy     ' copy all filtered values
  68: Windows(Filename5).Activate     ' paste to FSHA tab
  69: Sheets("FSHA").Select
  70: Range("A2").Select
  71: ActiveSheet.Paste
  72: Application.CutCopyMode = Flase
  73: Workbooks(Filename1).Close savechanges:=False       ' close FSHA input file without saving the changes
  74:  
  75: '------------------------------------------------------------------------------------------
  76: Workbooks.Open Filename:=Path1 + Filename2      ' open FSHB input file
  77: Columns("A:A").Select       ' select 1st col and apply text to col using tab delimiter
  78: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  79:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
  80:     Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
  81:     :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
  82:     Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
  83: Columns("B:B").Select       ' select 2nd col and add an empty col
  84: Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  85: Range("A1").FormulaR1C1 = "Time"        ' set cell A1 to time
  86: Columns("A:A").Select       ' select 1st col and apply text to col using space delimiter
  87: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  88:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
  89:     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
  90:     :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
  91: Range("B1").Select      ' select cell B2 and set to date
  92: ActiveCell.FormulaR1C1 = "Date"
  93: Selection.AutoFilter        ' apply filter on cell B2 to filter out Date2
  94: ActiveSheet.Range(Cells(1, 1), Cells(Application.CountA(Range("A:A")), 9)).AutoFilter Field:=2, Criteria1:=Date2
  95: ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy     ' copy all filtered values
  96: Windows(Filename5).Activate     ' paste to FSHB tab
  97: Sheets("FSHB").Select
  98: Range("A2").Select
  99: ActiveSheet.Paste
 100: Application.CutCopyMode = Flase
 101: Workbooks(Filename2).Close savechanges:=False       ' close FSHB input file without saving the changes
 102:  
 103: '------------------------------------------------------------------------------------------
 104: Workbooks.Open Filename:=Path1 + Filename3      ' open FMRA input file
 105: Columns("A:A").Select       ' select 1st col and apply text to col using tab delimiter
 106: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 107:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
 108:     Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
 109:     :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
 110:     Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
 111: Columns("B:B").Select       ' select 2nd col and add an empty col
 112: Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 113: Range("A1").FormulaR1C1 = "Time"        ' set cell A1 to time
 114: Columns("A:A").Select       ' select 1st col and apply text to col using space delimiter
 115: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 116:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
 117:     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
 118:     :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
 119: Range("B1").Select      ' select cell B2 and set to date
 120: ActiveCell.FormulaR1C1 = "Date"
 121: Selection.AutoFilter        ' apply filter on cell B2 to filter out Date2
 122: ActiveSheet.Range(Cells(1, 1), Cells(Application.CountA(Range("A:A")), 9)).AutoFilter Field:=2, Criteria1:=Date2
 123: ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy     ' copy all filtered values
 124: Windows(Filename5).Activate     ' paste to FMRA tab
 125: Sheets("FMRA").Select
 126: Range("A2").Select
 127: ActiveSheet.Paste
 128: Application.CutCopyMode = Flase
 129: Workbooks(Filename3).Close savechanges:=False       ' close FMRA input file without saving the changes
 130:     
 131: '------------------------------------------------------------------------------------------
 132: Workbooks.Open Filename:=Path1 + Filename4      ' open FMRB input file
 133: Columns("A:A").Select       ' select 1st col and apply text to col using tab delimiter
 134: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 135:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
 136:     Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
 137:     :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
 138:     Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
 139: Columns("B:B").Select       ' select 2nd col and add an empty col
 140: Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 141: Range("A1").FormulaR1C1 = "Time"        ' set cell A1 to time
 142: Columns("A:A").Select       ' select 1st col and apply text to col using space delimiter
 143: Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 144:     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
 145:     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
 146:     :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
 147: Range("B1").Select      ' select cell B2 and set to date
 148: ActiveCell.FormulaR1C1 = "Date"
 149: Selection.AutoFilter        ' apply filter on cell B2 to filter out Date2
 150: ActiveSheet.Range(Cells(1, 1), Cells(Application.CountA(Range("A:A")), 9)).AutoFilter Field:=2, Criteria1:=Date2
 151: ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy     ' copy all filtered values
 152: Windows(Filename5).Activate     ' paste to FMRB tab
 153: Sheets("FMRB").Select
 154: Range("A2").Select
 155: ActiveSheet.Paste
 156: Application.CutCopyMode = Flase
 157: Workbooks(Filename4).Close savechanges:=False       ' close FMRB input file without saving the changes
 158:  
 159: '------------------------------------------------------------------------------------------
 160: Windows(Filename5).Activate     ' putting new date in summary tab
 161: Sheets("Summary").Select
 162: Range("C28").FormulaR1C1 = Date3
 163: Date4 = Range("C22").Text       ' generating date for the chart title
 164: Date5 = Range("C28").Text
 165: Date6 = "(" + Left(Date4, (InStr(1, Date4, ",") - 1)) + " - " + Right(Date5, 8) + ")"
 166:  
 167: ActiveSheet.ChartObjects("Chart 1").Activate        ' updating date in chart title
 168: ActiveChart.ChartTitle.Select
 169: ActiveChart.ChartTitle.Text = "MT SMS Transactions" & Chr(13) & Date6
 170: Selection.Format.TextFrame2.TextRange.Characters.Text = _
 171:     "MT SMS Transactions" & Chr(13) & Date6
 172: With Selection.Format.TextFrame2.TextRange.Characters(1, 20).ParagraphFormat
 173:     .TextDirection = msoTextDirectionLeftToRight
 174:     .Alignment = msoAlignCenter
 175: End With
 176: With Selection.Format.TextFrame2.TextRange.Characters(1, 20).Font
 177:     .BaselineOffset = 0
 178:     .Bold = msoTrue
 179:     .NameComplexScript = "+mn-cs"
 180:     .NameFarEast = "+mn-ea"
 181:     .Fill.Visible = msoTrue
 182:     .Fill.ForeColor.RGB = RGB(0, 0, 0)
 183:     .Fill.Transparency = 0
 184:     .Fill.Solid
 185:     .Size = 16
 186:     .Italic = msoFalse
 187:     .Kerning = 12
 188:     .Name = "+mn-lt"
 189:     .UnderlineStyle = msoNoUnderline
 190:     .Strike = msoNoStrike
 191: End With
 192: With Selection.Format.TextFrame2.TextRange.Characters(21, 24).ParagraphFormat
 193:     .TextDirection = msoTextDirectionLeftToRight
 194:     .Alignment = msoAlignCenter
 195: End With
 196: With Selection.Format.TextFrame2.TextRange.Characters(21, 24).Font
 197:     .BaselineOffset = 0
 198:     .Bold = msoTrue
 199:     .NameComplexScript = "+mn-cs"
 200:     .NameFarEast = "+mn-ea"
 201:     .Fill.Visible = msoTrue
 202:     .Fill.ForeColor.RGB = RGB(0, 0, 0)
 203:     .Fill.Transparency = 0
 204:     .Fill.Solid
 205:     .Size = 12
 206:     .Italic = msoFalse
 207:     .Kerning = 12
 208:     .Name = "+mn-lt"
 209:     .UnderlineStyle = msoNoUnderline
 210:     .Strike = msoNoStrike
 211: End With
 212:  
 213: Range("A1").Select      ' selecting first cell in summary tab
 214: Sheets("Main Menu").Select      ' selecting main menu
 215: Range("A1").Select      ' selecting first cell in main menu tab
 216:  
 217: Application.DisplayAlerts = False       ' disbaling all notifications
 218: Workbooks.Add.SaveAs Filename:=Path1 + Filename6        ' generating report file
 219: Windows(Filename5).Activate
 220: Sheets("Summary").Copy Before:=Workbooks(Filename6).Sheets(1)       ' copying summary tab from template to report file
 221: Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select      ' deleting remaining tabs from report file
 222: ActiveWindow.SelectedSheets.Delete
 223: ActiveWorkbook.Save     ' saving report file
 224: Application.DisplayAlerts = True        ' enabling all notifications
 225:  
 226: Application.ScreenUpdating = True     ' to enable screen updating while macro is running
 227: End Sub

References:


to chk the path of any file:


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


to find the count of rows


http://www.mrexcel.com/forum/showthread.php?t=46148


Copy All Filtered Rows after Header

http://www.mrexcel.com/archive/Data/10541.html


Extract Substring from the Middle of a String

http://www.example-code.com/vb/mid.asp


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


http://www.techonthenet.com/excel/formulas/instr.php


Creating a New Workbook

http://msdn.microsoft.com/en-us/library/aa221273%28v=office.11%29.aspx


Delete sheets without confirmation prompts

http://www.exceltip.com/st/Delete_sheets_without_confirmation_prompts_using_VBA_in_Microsoft_Excel/483.html

Protect/Lock Visual Basic Editor (VBE)

http://www.ozgrid.com/VBA/protect-vba-code.htm


VBA code to save workbook with no prompt


http://www.mrexcel.com/forum/showthread.php?t=67564


-urShadow


Related Posts Plugin for WordPress, Blogger...