What I like to call “Lokey Labs”

Since about 1995, I’ve been creating random websites. Mostly for my own enjoyment. Some are still useful today, and some I just keep around for nostalgic purposes, and to clutter up the internet.  They’ve been on lokey.com, lokeys.com, and lokey.biz. Now, their home is lokey.co. OK. I like my last name

One of my more useful sites is a loan calculator. It shows the principal+interest, and total paid.  At one time, I was into browser bookmarks. Some include getting the URL, and title of a webpage.  And a cool one can create a QR code of the URL so you can transfer it to a smart phone.  Most recently, I’ve been playing  around with Google Sites. I have a test page, and a page I created for a property I’m selling locally.  Also created a stand alone page for it as well.

Check out the full list here.

Delete or hide blank rows with VB macros

These macros can be helpful in data clean-up.  An example might be exporting large amounts of general ledger data with tons of extra lines in between the good data.

The key is to select the area that has the data.  This might be column that has GL account amounts.  The lines you want to delete do not have anything in this area.

In this screenshot, we want to delete the rows that are red in column N.

Here is the macro name “BlanksRows_Delete”- used for deleting:

Sub BlanksRows_Delete()
Selection.SpecialCells(xlCellTypeBlanks).Select
 Selection.EntireRow.Delete 
End Sub

In the above example, select the N column, then run the macro.

If you only want to hide the rows, you can use this macro “BlanksRows_Hide”

Sub BlanksRows_Hide()
Selection.SpecialCells(xlCellTypeBlanks).Select
 Selection.EntireRow.Hidden = True 
End Sub

 

Formula for getting the last day of the month

…a quick tip that you may find useful in your applications…

I have spreadsheets that produce journal entries that I can then import into the general ledger. I reuse these spreadsheets every month.  I always make the effective date the last day of the month. To make it easy on myself (why not), I just enter the first day of the month in the cell above, and use this handy formula:

Example:

Cell A1:
6/1/2017
Cell A2:
=(DATE(YEAR(A1),MONTH(A1)+1,DAY(A1)))-1
Results of formula
6/30/2017
How it works

It takes the date (6/1/2017), then makes it the first day of the next month (7/1/2017), then subtracts one day, making it 6/30/2017.

Creating Debits and Credits from Net

You might have a trial balance that just has net amounts that you need in separate debit/credit columns. See example:

In Col E we will create our Debits, and Col F our Credits. We’ll leave Col D blank to give some separation.

In Cell E2 insert the formula:

=IF($C2<0,0,$C2)

In Cell F2:

=IF($C2<0,-$C2,0)

Now, copy the formulas down for the whole TB. The results should  look like:

I have added a simple formula in Cell F9 to make sure that my debits and credits equal the original list. It does!