danwagnerco

Option Explicit
Public Sub TransposeHorizontalToVertical()
    
    Dim lngLastRow As Long, lngIdx As Long, lngOutputLastRow As Long, _
        lngDetailsIdx As Long, lngTargetRow As Long, lngTargetCol As Long
    Dim wksInput As Worksheet, wksOutput As Worksheet
    Dim varDetailNames As Variant, varMonthNames As Variant, _
        varDetails As Variant, varValues As Variant
    Dim varDetailsKey As Variant, varValuesKey As Variant
    Dim dicDetails As Scripting.Dictionary, dicValues As Scripting.Dictionary

danwagnerco

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'INPUT         : SheetName, the name (string) of the sheet we're looking for
'OUTPUT        : True or false (sheet was found, sheet was not found)
'SPECIAL CASE  : none
'EXAMPLES BELOW:
'
'assume that a sheet named "YaGotMe" exists
'DoesSheetExist("YaGotMe")
'>> True
'

danwagnerco

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'INPUT         : Sheet, the worksheet on which you'd like all filters cleared
'DESCRIPTION   : this sub will remove all filters on a worksheet safely
'
Public Sub ClearAllFilters(Sheet As Worksheet)
    With Sheet
        .AutoFilterMode = False
        If .FilterMode = True Then
            .ShowAllData
        End If

danwagnerco

set guifont=Meslo\ LG\ M\ for\ Powerline:h9 " <~ set the font
set encoding=utf-8                          " <~ set the encoding
let g:airline_powerline_fonts=1             " <~ activate the font in airline

danwagnerco

" set guifont=Meslo\ LG\ M\ for\ Powerline:h9 " <~ set the font
set guifont=Powerline\ Consolas:h11 " <~ set the font
set encoding=utf-8                  " <~ set the encoding
let g:airline_powerline_fonts=1     " <~ activate the font in airline

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 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), _