Have you ever thought of accessing internet from your laptop to smartphone?
Have you ever thought of you should carry your router everywhere to connect multiple devices like smartphone, tablet and laptop to internet.
If your answer is yes, we have solution for your problem. So keep on reading...
If your answer is no, it is great useful piece of information. So keep on reading..
If your able to create a hotspot in your laptop, you can share internet with other devices like smartphone, tablet, e-reader and other laptops. How cool, isn't it!
You can easily convert your laptop as virtual router by using so many software like Connectify, mhotspot, MyPublicWifi and etc.
Connectify is most stable and easy to use software but its paid software. In free version, hotspot stops at every 30 minutes.
MyPublicWifi is free tool and it is very easy to use.Click here to get MyPublicWifi
You can even create hotspot in your PC by connecting Data Card.
Have a Great Holidays.
Hi Friends, We have created a new Blog for IT problems, Solution and sharing. Please follow and share. All human beings do not know everything but everyone knows something.. That something needs to be shared with everyone.
Tuesday, December 16, 2014
Wednesday, June 25, 2014
Spellnumber In Rupees In Excel
Spellnumber In Rupees In Excel
Following function
convert ( Rupees in figure ) numeric value in a Microsoft Excel worksheet cell
into its equivalent in (Rupees in Word ) English words.
e.g. =SpellNumber(2450) will display as Rupees Two Thousand Four Hundred Fifty Only
After copying following code, Enable macro and use above function.
How to create the sample function Called SpellNumber
e.g. =SpellNumber(2450) will display as Rupees Two Thousand Four Hundred Fifty Only
After copying following code, Enable macro and use above function.
How to create the sample function Called SpellNumber
- Start Microsoft Excel.
- Press ALT+F11 to start the Visual Basic Editor.
- On the Insert menu, click Module.
- Type the following code into the module sheet.
Function SpellNumber(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Fourty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
SpellNumber = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only "
End If
End Function
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Fourty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
SpellNumber = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only "
End If
End Function
Saturday, March 22, 2014
How To 'Fix Bootmgr Is Missing' In Windows Vista/7
How To 'Fix Bootmgr Is Missing' In Windows Vista/7
Ok we have all had this horrible error at some point in our life, yes the 'Bootmgr Is Missing' error but the good news is you do not have to worry about it being anything to do with Hardware Issues because it has nothing to do with that, and best of all this is an easy fix providing that your have a Windows Recovery or Installation DVD.
Right we have 2 methods here for Fixing this issue......
Step 1 - Is using Startup Repair sometimes this will Fix the Issue. Note: You may need to Run 3 - 4 Times.
Step 2 - Will always Fix this Issue as I have never seen it fail yet.
So..... 2 choices, you can do them both starting with step 1 or you can just go to step 2 and get fixed straight away. I am Just being honest by putting both options here for you
Step 1
Ok first things first, dig out your Windows Installation DVD and pop it in the Drive and then Reboot your System.
Now Select your correct Language and Click on Next.........
Ok now here Click on 'Repair Your Computer'
Now it is searching for Windows Installations...........
Once it has finished searching....
Ok.... Now lets try to see if the 'Startup Repair' will Fix the 'Bootmgr Is Missing' Error first.
So Click on 'Startup Repair'..........
Now the Startup Repair is scanning your System for the Problem in question.
Sometimes the Startup Repair will not fix this problem but it is always worth a try!
Ok so no Joy with the 'Startup Repair'?
Don't panic the next step will Fix your problem for sure, it is just sometimes the Startup Repair will Fix this issue but not always so let's move on to Step 2.............
Step 2
Now Click on 'View advanced options for system recovery and support' to take us back to the 'System Recovery Options'
Ok now we are back at the 'System Recovery Options' Main Menu.
Now this time we are going to Select 'Command Prompt' so Click on 'Command Prompt'
Ok in the Command Prompt Window Type c: and 'Press Enter'
Now at the C:\ Type cd boot and then 'Press Enter'..........
Ok all good? If you Command Prompt Window looks like the one below then we are good
Lets move onward........
Now at the C:\Boot Type in the Following Commands and 'Press Enter' after each and every command.
bootrec /FixMbr
bootrec /FixBoot
bootrec /RebuildBcd
bootrec /FixBoot
bootrec /RebuildBcd
Ok that it, all done.
Now you know how to Fix a 'Bootmgr Is Missing' Error!
As you can see from my results I didn't have any Issue in the first place but wanted to show you how to Fix the dreaded 'Bootmgr In Missing Error.

Ok we have all had this horrible error at some point in our life, yes the 'Bootmgr Is Missing' error but the good news is you do not have to worry about it being anything to do with Hardware Issues because it has nothing to do with that, and best of all this is an easy fix providing that your have a Windows Recovery or Installation DVD.
Right we have 2 methods here for Fixing this issue......
Step 1 - Is using Startup Repair sometimes this will Fix the Issue. Note: You may need to Run 3 - 4 Times.
Step 2 - Will always Fix this Issue as I have never seen it fail yet.
So..... 2 choices, you can do them both starting with step 1 or you can just go to step 2 and get fixed straight away. I am Just being honest by putting both options here for you
Step 1
Ok first things first, dig out your Windows Installation DVD and pop it in the Drive and then Reboot your System.
Now Select your correct Language and Click on Next.........
Ok now here Click on 'Repair Your Computer'
Now it is searching for Windows Installations...........
Once it has finished searching....
- Make sure that the Top Option has been select 'Use recovery tools that can help fix problems starting Windows. Select an Operating System To Repair'.
- Highlight Your Windows Installation in the Window Box
Ok.... Now lets try to see if the 'Startup Repair' will Fix the 'Bootmgr Is Missing' Error first.
So Click on 'Startup Repair'..........
Now the Startup Repair is scanning your System for the Problem in question.
Sometimes the Startup Repair will not fix this problem but it is always worth a try!
Ok so no Joy with the 'Startup Repair'?
Don't panic the next step will Fix your problem for sure, it is just sometimes the Startup Repair will Fix this issue but not always so let's move on to Step 2.............
Step 2
Now Click on 'View advanced options for system recovery and support' to take us back to the 'System Recovery Options'
Ok now we are back at the 'System Recovery Options' Main Menu.
Now this time we are going to Select 'Command Prompt' so Click on 'Command Prompt'
Ok in the Command Prompt Window Type c: and 'Press Enter'
Now at the C:\ Type cd boot and then 'Press Enter'..........
Ok all good? If you Command Prompt Window looks like the one below then we are good
Lets move onward........
Now at the C:\Boot Type in the Following Commands and 'Press Enter' after each and every command.
bootrec /FixMbr
bootrec /FixBoot
bootrec /RebuildBcd
bootrec /FixBoot
bootrec /RebuildBcd
Ok that it, all done.
Now you know how to Fix a 'Bootmgr Is Missing' Error!
As you can see from my results I didn't have any Issue in the first place but wanted to show you how to Fix the dreaded 'Bootmgr In Missing Error.
Subscribe to:
Posts (Atom)