Write the Code

Open the workbook for which we want to sort the sheets and press Alt + F11 to open the Visual Basic Editor, and select Insert > Module to insert a module. Copy and paste the following code in module just created.

Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long

lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel, _
"Sheet Sort")
If lReply = vbCancel Then Exit Sub

lShtLast = Sheets.Count

If lReply = vbYes Then 'Sort ascending
    For lCount = 1 To lShtLast
        For lCount2 = lCount To lShtLast
            If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
Else 'Sort descending
    For lCount = 1 To lShtLast
        For lCount2 = lCount To lShtLast
            If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
End If

End Sub

Now close your Visual Basic Editor and return to your worksheet and save it.

Running the Code

To do this, press Alt + F8, select the macro named “SortSheets”, and press Run. You will be asked the way you sort your sheets either in ascending (A – Z) or descending order (Z – A).

This VB Code works with all version of Excel.

You can try it through its live demo here before install in your server. Don’t worry about its pricing, it is absolutely free!

Features

• GNU-licensed (i.e. free!)
• Simple to use. Quickly generates clear, attractive invoices
• Printer-friendly and PDF view/print of all invoices
• Entirely brandable to your company or person (no reference to Black Sheep Software)
• Option to upload company logo
• Database is customizable to store whatever invoice data you need
• Choice of $ or £ currency
• Stores client information to allow you to re-invoice the same client multiple times
• May set custom invoice numbering scheme, specify whatever invoice date you wish
• Build in “Flagging” mechanism to let you create invoices by matching up existing items to clients
• May customize CSS to change the appearance of the invoices and PDFs

Download
Download the zipfile (5.9MB)
Download the tar file (5.5MB)

Here is its URL for dragtable: http://www.danvk.org/wp/dragtable/

Google Chrome

I won’t post any features here as you can find a million posts / news articles on this. I just installed it. For those who want read about the technology, here is an interesting comic from Scott McCloud.

Google Chrome Comic

You can follow this link to download Google Chrome (BETA) for Windows (English version):

http://www.google.com/chrome/eula.html?hl=en

Don’t forget to post your experience with Google Chrome here. Enjoy your new browser!

How to unprotect

1. First open your protected excel file
2. Launch the Visual Basic Editor
3. Copy and paste the following VB Code

'----------------------------------------------------------------
Option Explicit 

Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords 

Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean 

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
'----------------------------------------------------------------

4. Then press Run button, all internal password will be removed.

If you really don’t know how to do or lazy to copy and cut, you can download the workbook attached below. The workbook is hidden, and has an attached toolbar with a button to start the macro. Activate the workbook you want to unlock and click the button. The code is unlocked so you may examine and modify it as needed. Note: This macro cannot unlock password to open.

Download here

DISCLAIMER: Please note that breaking password protection MAY violate laws or regulations in your jurisdiction.

Some web designers may not have fully knowledge to master CSS, and many of us are good enough with little bit of brushing and designing in PhotoShop. Now, I found a great website, PSD to CSS Online, which provide free service to convert PhotoShop creations into CSS pages online.

Although this tool may not appeal to big shot designer because they know CSS. It will for sure useful for those who know PhotoShop but do not know CSS. Try it out for your very own unique webpage and even template!

http://www.psd2cssonline.com/

If you want to install and set up a dynamic web server with Apache, a lot of applications such as Apache web server, mySQL database, PHP and Perl scripting language, and not to mention important extensions and tools to manage the web server’s applications. It’s not a easy and simple task. But luckily, there is XAMPP from Apache Friends.

XAMPP is a collection of free software applications for installing and using the Apache Web server. There are different combination of applications depending on which XAMPP distributions. Currently there are four type of XAMPP distributions available: XAMPP for Linux (previously known as LAMPP), XAMPP for Windows, XAMPP for Mac OS X, XAMPP for Solaris. Typically, XAMPP is a full featured AMPP (Apache MySQL, PHP, Perl), an Apache distribution that includes the Apache Web server, MySQL database, PHP, Perl, FTP server and phpMyAdmin, with several other important and commonly used extension built-in, such as SSL.

To install and get your web server running, just download XAMPP in your OS flavour, extract it and then just start the web server. The Windows version even comes with a installer version, making life even simpler, making the installation of web server in Windows just a few clicks. You can get all the simple installation instructions at the XAMPP web pages where you download XAMPP. Beside, XAMPP for Windows also offers lite version, where it is the smaller bundle of XAMPP recommendable for a quick work around with PHP and MySQL.

Best of all, XAMPP is free, and so do the package of software applications that come with it.

http://www.apachefriends.org/en/xampp.html.

This extension shows you the raw HTTP headers that a webserver returns. It’s very handy for debugging issues with 404s, redirect, monitoring cookies and so on.

Greasemonkey – tinyurl.com/ynvmda

Greasemonkey is a useful tool that lets you write scripts to modify different websites. It enables you to change the way a website displays and install different scripts to customise HTML pages.

RefreshBlocker – tinyurl.com/2wz2k2

This extension will prevent your browser from following the forwarding specified by the refresh parameter of the META tag element. It can also be handy for debugging.

ShowIP – tinyurl.com/3xj8r5

Show you the IP address of a website and allow you to copy it to the clipboard. It also allows querying custom services by IP (right mouse button) and Hostname (left mouse button), like whois, netcraft. Additionally you can copy the IP address to the clipboard.

PrefBar – http://prefbar.mozdev.org

This allows you to change your user agent. Change it to Googlebot to see exactly how a webserver responds to the Googlebot user agent, or try importing new buttons for extra features.

Google Browser Sync – www.google.com/tools/firefox/browsersync

A great feature that continuously synchronizes your browser settings – including bookmarks, history, persistent cookies, and saved passwords – across your computers. It also allows you to restore open tabs and windows across different machines and browser sessions.

Every now and again designers stumble upon the very same problem: the choice of a unique and beautiful typeface which manages to fulfill three basic tasks. Support the corporate identity, enrich the visual appearance and is compatible with the overall design. However, usually there are simply too many options you can consider, which is why you need time to find the option you are most comfortable with. Although the choice usually depends on clients’ requirements, it is necessary to have some pretty starting points for your font decision.

So which typefaces are “bulletproof”? What fonts can be used effectively in almost every Corporate Design? And what are the options for unique, but still incredibly beautiful typefaces?

We have answers. Over the last few days we’ve browsed through dozens of type foundries, read dozens of designers’ articles about typography, analyzed font rankings and visited bookmarked font-related suggestions. So this post has ‘em all. Well, OK, at least many of them.

Let’s take a look at over 80 gorgeous typefaces for professional design, based upon suggestions from designers and web-developers all over the world. Most screenshots are taken from the foundries and provided specimens – particularly on Veer.com and Fontshop.com.

Classic Typefaces

Classics of typography in a brief overview. You will find even more traditional typefaces on the site 100 Best Fonts, including history, development and related information.

1. Helvetica

2. Helvetica Neue

3. Univers

4. Frutiger

5. Avenir

6. Myriad Pro

7. Neuzeit

8. Syntax

9. Proxima Nova

10. Proxima Sans

11. Glasgow

12. Charlotte Sans

13. Precious Sans

14. Gill Sans

15. Lisboa

16. Franklin Gothic

17. Futura

18. EF TV Nord 1

19. FF Scala

20. Rockwell

21. Eurostile

22. Warnock

23. FF DIN

24. FF Meta

25. Officina

26. FF Dax

27. DF Dynasty

28. Akzidenz-Grotesk

29. AG Book

30. Precious Serif

Further Typefaces

The fonts listed below aren’t so well-known. Thus you can use them for unique corporate identity or user interfaces which are supposed to have a “fresh” look.

31. Locator

ProcessTypeFoundry

32. Seravek

ProcessTypeFoundry

33. FF Kievit

Source

34. Ronnia

Typetogether

35. Stella

Feliciano Type Foundry

36. Le Monde Courrier

Le Monde Courrier, € 167.4 for 2 PCs

37. Parisine PTF

Parisine PTF, € 210 for 8 PCs

38. Freight

Source

39. Guardian

Christian Schwartzl

40. Anomoly

41. PMN Caecilia

42. Leitura

Source / DSType

43. The Mix

Source

44. Stalemate

45. Neo Sans

Source

46. Felbridge

Felbridge, £29.00 per font

47. Trade Gothic

48. Karmina

Typetogether

49. FF Milo

Source: Typographica.org

50. Auto

Source

51. Soho

Source

52. Kepler

Source

53. Depot

Chris Dickinson

54. Relato Sans

Source

55. Priva Pro

DSType

56. Relato Serif

Source

57. Alber

Chris Dickinson

58. Palatino Sans & Informal

Source

59. Fedra Sans

Source

60. Olga

Source

61. Depot

Chris Dickinson

62. Priva Pro

DSType

63. Whitman

Source

64. Productus

Source

65. Tempelhof

Günter Schwarzmaier

66. Amira

Source

67. Krart

Source

68. Tang

Source

69. Dederon Sans

Source

70. Samuels Family

(Images: MyFonts Newsletter)

71. Untitled

Source

72. Greta Text

Source

73. FF Sanuk

74. Houschka

75. Scene

Source

76. Amplitude

Source

77. Insider

Characters.nl

78. Preface

79. Flex

Source

80. Halvorsen

Source

81. Xtra Sans

Source

Foretaste for one of our next posts:
The Future of Typography

82. Obliqua (in development)

Source

83. Muestra Urbana (in development)

Source

84. Wingardium

Source

85. Tauran Regular

Source

86. Mello Sans

Source

The SUM function in Microsoft Excel doesn’t work when you try to sum a range that contains an error value such as #N/A. This example shows you how to sum the values in a range named “Data” that contains errors:

=SUM(IF(ISERROR(Data),"",Data))

The formula creates a new array that contains the original values minus any error values. Starting from the inner functions and working outward, the ISERROR function searches the cell range (Data) for errors. The IF function returns one value if a condition you specify evaluates to TRUE, and another value if it evaluates to FALSE. In this case, it returns empty strings (“”) for all error values because they evaluate to TRUE, and the remaining values from the range (Data again) because they evaluate to FALSE, meaning that they don’t contain error values. The SUM function then calculates the total for the filtered array.

Count the number of error values in a range

This example is similar to the previous formula, but it returns the number of error values in a range named “Data” instead of filtering them out:

=SUM(IF(ISERROR(Data),1,0))

This formula creates an array of 1s for the cells that contain errors, and 0s for the cells that don’t. You can simplify the formula and achieve the same result by removing the third argument for the IF function, like so:

=SUM(IF(ISERROR(Data),1))

If you don’t specify the argument, the function returns FALSE if a cell does not contain an error value. You can simplify the formula even more:

=SUM(IF(ISERROR(Data)*1))

This version works because TRUE*1=1 and FALSE*1=0.

Sum values based on conditions

You often need to sum values based on conditions. For example, this array formula sums just the positive integers in a range named “Sales”:

=SUM(IF(Sales>0,Sales))

The IF function creates an array of positive values and false values. The SUM function essentially ignores the false values because 0+0=0. The cell range that you use in this formula can consist of any number of rows and columns.

You can also sum values that meet more than one condition. For example, this array formula calculates values greater than zero and less than or equal to five:

=SUM((Sales>0)*(Sales< =5)*(Sales))

Keep in mind that this formula returns an error if the range contains one or more non-numeric cells.

You can also create array formulas that use a type of OR condition. For example, you can sum values that are less than 5 and greater than 15:

=SUM(IF((Sales<5)+(Sales>15),Sales))

The IF function finds all values smaller than 5 and greater than 15 and then passes those values to the SUM function.

Important You can’t use the AND and OR functions in array formulas directly. Why not? Those functions return a single result, either TRUE or FALSE, and array functions require arrays of results. You can work around the problem by using the logic shown in the previous formula. In other words, you perform math operations such as addition or multiplication on values that meet the OR or AND condition.

Compute an average that excludes zeros

This example shows you how to remove zeros from a range when you need to average the values in that range. The formula uses a data range named “Sales”:

=AVERAGE(IF(Sales<>0,Sales))

The IF function creates an array of values that do not equal zero and then passes those values to the AVERAGE function.

Count the number of differences between two ranges of cells

This array formula compares the values in two ranges of cells named “MyData” and “YourData” and returns the number of differences between the two. If the contents of the two ranges are identical, the formula returns 0. To use this formula, the cell ranges must be the same size and of the same dimension:

=SUM(IF(MyData=YourData,0,1))

The formula creates a new array of the same size as the ranges that you’re comparing. The IF function fills the array with 0s and 1s (0s for mismatches and 1s for identical cells). The SUM function then returns the sum of the values in the array.

You can simplify the formula like this:

=SUM(1*(MyData<>YourData))

Like the formula that counts error values in a range, this formula works because TRUE*1=1, and FALSE*1=0.

Find the location of the maximum value in a range

This array formula returns the row number of the maximum value in a single-column range named “Data”:

=MIN(IF(Data=MAX(Data),ROW(Data),""))

The IF function creates a new array that corresponds to the “Data” range. If a corresponding cell contains the maximum value in the range, the array contains the row number. Otherwise, the array contains an empty string (“”). The MIN function uses the new array as its second argument and returns the smallest value, which corresponds to the row number of the maximum value in “Data.” If the “Data” range contains identical maximum values, the formula returns the row of the first value.

If you want to return the actual cell address of a maximum value, use this formula:

=ADDRESS(MIN(IF(Data=MAX(Data),ROW(Data),"")),COLUMN(Data))

Source: http://office.microsoft.com/en-us/excel/HA010872271033.aspx