stevehenderson

Function writeCSV(csvPath As String) As String
    
    'Create a CSV
    Dim i As Integer
    Dim lastUsedColumn As Integer
    Dim done As Boolean
    lastUsedColumn = 9
    i = 1
    done = False
    While Not done

stevehenderson

Sub SendResults()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim currentPath As String
    currentPath = Application.ActiveWorkbook.Path
    currentPath = "\\se\ABETWorking\SEN0_CapstoneDA"
    Dim csvPath As String
    
    Dim emailBody As String

stevehenderson

Sub SendResultsFull()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim currentPath As String
    currentPath = Application.ActiveWorkbook.Path
    currentPath = "\\se\ABETWorking\SEN0_CapstoneDA"
    Dim csvPath As String
    
    Dim emailBody As String

stevehenderson

Option Explicit
Public lastSelectedRow As Integer



Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    
    
    If lastSelectedRow = 0 Then
        lastSelectedRow = 17

stevehenderson

Option Explicit

'Original code: http://www.rondebruin.nl/win/s3/win006_4.htm
Sub Copy_To_Worksheets()
    Dim CalcMode As Long
    Dim ws2 As Worksheet
    Dim WSNew As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim Lrow As Long

stevehenderson

'A helper function to find the final column of data on a worksheet
'
'To use, provide the name of the worksheet
'The function assumes the data starts in cell A1
'and will return the column number of the column of data
'
'Author: Steve Henderson  steven.henderson@usma.edu
'
Function findLastColumn(sheetName As String)
    ' Find the last column with data

stevehenderson

'findFinalRow
'A helper function to find the final row of data on a worksheet
'
'To use, provide the name of the worksheet
'The function assumes the data starts in cell A1
'and will return the row number of the last row of data
'
'Author: Steve Henderson  steven.henderson@usma.edu
'
Function findFinalRow(sheetName As String)

stevehenderson

'SetupPivot:  The following subroutine sets up a pivot table
'
'
' author:  steven.henderson@usma.edu
'
'I received assitance from the following site:
'

stevehenderson

'
' Configure the pivot table for analysis
'
Sub PvotTableTweak()


    Dim pt As PivotTable
    Dim WSD As Worksheet
    Set WSD = Worksheets("DATA")

stevehenderson

'Path Only
Application.ActiveWorkbook.Path  

'Whole enchilada
Application.ActiveWorkbook.FullName