danwagnerco

# This configuration file contains the absolute path locations of all
# installed Rubies to be enhanced to work with the DevKit. This config
# file is generated by the 'ruby dk.rb init' step and may be modified
# before running the 'ruby dk.rb install' step. To include any installed
# Rubies that were not automagically discovered, simply add a line below
# the triple hyphens with the absolute path to the Ruby root directory.
#
# Example:
#
# ---

danwagnerco

set backupdir=%HOMEPATH%/temp
set directory=%HOMEPATH%/temp

danwagnerco

# A sample Gemfile
source "https://rubygems.org"

# gem "rails"
gem "rspec", :require => "spec"
gem "timecop"
gem "ocra"

danwagnerco

class DateType
  attr_reader :entry
  attr_accessor :path, :error_state

  def initialize(entry)
    @entry = entry.to_s
    @path = ""
    @error_state = false
  end
  

danwagnerco

Option Explicit
Public Sub CalculateResultsAndAddAsColumn()

    Dim rngCategory As Range, rngResults As Range
    Dim varCategory As Variant, varResults As Variant
    Dim lngIdx As Long, lngLastRow As Long
    Dim wksData As Worksheet
    Dim strFirstLetter As String
    
    'First things first: let's set up our basic variables

danwagnerco

Option Explicit
Public Function CONVERT_YYYYMMDD_TO_DATE(rng As Range) As Date
    Dim strText As String

    'First we get the raw text from the Range (i.e. the Cell)
    strText = rng.Text

    'Then we can slice and dice the number, feeding it all into DateSerial
    CONVERT_YYYYMMDD_TO_DATE = DateSerial(Left(strText, 4), _
                                          Mid(strText, 5, 2), _

danwagnerco

Option Explicit
Public Sub SplitCampersByCabin()

    Dim lngLastRow As Long, lngIdx As Long, lngNextCol As Long, _
        lngCabinRow As Long
    Dim wksCampers As Worksheet, wksCabins As Worksheet
    Dim varCamper As Variant, varCabin As Variant
    Dim dicCampers As Scripting.Dictionary, _
        dicCabins As Scripting.Dictionary
    Dim strCamper As String, strCabin As String

danwagnerco

Option Explicit
Public Sub DeleteBlankRows()

    Dim wks As Worksheet
    Dim lngLastRow As Long, lngLastCol As Long, lngIdx As Long, _
        lngColCounter As Long
    Dim blnAllBlank As Boolean
    
    'First things first: we identify our basic variables
    Set wks = ThisWorkbook.Worksheets("hello")

danwagnerco

Vim, Vundle and ConEmu on Windows

Let's start by getting it out on the table: Sublime Text is great, and version 3 should no longer be considered "abandonware" as of build 3065. Sublime Text served me very, very well over the years. That said, trying out new things is a major part of leveling-up, and in that vein Vim deserves a go. (And have you seen some of those thoughtbot guys flying around in Vim? It's awesome!)

Getting Vim up-and-running on your Windows machine doesn't have to be an all-day project. In this post, we'll walk through:

• Installing gVim, which gives us both the "classic" command line version as well as the graphical version
• Installing Vundle, the best way to handle Vim-enhancing packages
• Installing ConEmu, a supercharged command line emulator for Windows

danwagnerco

Option Explicit
Public Sub ImportAllDataFiles()

    Dim strFile As String
    Dim wbk As Workbook
    Dim wks As Worksheet, wksMaster As Worksheet
    Dim lngLastMasterRow As Long, lngFirstMasterRow As Long, _
        lngLastDataRow As Long, lngLastDataCol As Long, lngIdx As Long, _
        lngTimeZoneCol As Long, lngDateCol As Long
    Dim rngTimeZoneCol As Range, rngDateCol As Range, _