Navigating in HTML forms using keyboard

Posted by nonenas on Feb 15th, 2008
2008
Feb 15

Did you know that you can navigate through forms without using your mouse?

 

You can go to the next field of the form by pressing the "TAB" key on your keyboard (the tab key)

You can go to the previous field of the form by pressing together "SHIFT+TAB" keys.

 

 

[Slashdot] [Digg] [Reddit] [del.icio.us] [Facebook] [Technorati] [Google] [StumbleUpon]

How to test a modem for caller ID support

Posted by nonenas on Feb 9th, 2008
2008
Feb 9

For most MODEMs, the string AT#CID=1 or AT+VCID=1will enable Caller ID. 

If these fail try :

  • AT#CID=2
  • AT%CCID=1
  • AT%CCID=2
  • AT#CC1
  • AT*ID1

When you try this AT commands in a terminal program, the answer you should receive is OK.

[Slashdot] [Digg] [Reddit] [del.icio.us] [Facebook] [Technorati] [Google] [StumbleUpon]

Determine used range in Excel

Posted by nonenas on Feb 1st, 2008
2008
Feb 1

When you write your own macros, a very important thing is to know exactly where your worksheet starts and where it ends. Here is a helpful macro that can be used in your own macros and does exactly that :

 

 Sub DetermineUsedRange(ByRef theRng As Range)
Dim FirstRow As Integer, FirstCol As Integer, _
    LastRow As Integer, LastCol As Integer
On Error GoTo handleError

FirstRow = Cells.Find(What:="*", _
      SearchDirection:=xlNext, _
      SearchOrder:=xlByRows).Row
FirstCol = Cells.Find(What:="*", _
      SearchDirection:=xlNext, _
      SearchOrder:=xlByColumns).Column

LastRow = Cells.Find(What:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByRows).Row
LastCol = Cells.Find(What:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByColumns).Column

Set theRng = Range(Cells(FirstRow, FirstCol), _
    Cells(LastRow, LastCol))

handleError:
End Sub

 

The following macro uses the above code and displays in message boxes the used Range, the last used column and the last used row:

Sub CallDetermineUsedRange()
On Error Resume Next
Dim usedRng As Range
DetermineUsedRange usedRng

    MsgBox usedRng.Address
    MsgBox usedRng.Columns(usedRng.Columns.Count).Column
    MsgBox usedRng.Rows(usedRng.Rows.Count).Row
   

End Sub

[Slashdot] [Digg] [Reddit] [del.icio.us] [Facebook] [Technorati] [Google] [StumbleUpon]

« Prev