walkergv

'Code for Upper Case

Sub UpperCase()
Dim objCell As Object
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next
End Sub

'Code for Lower Case

walkergv

Privacy Policy

Your privacy and security are important to us.

We recognize and respect your need for privacy and security as you visit our site. When you visit our site to view any pages, read product information, or use our on-line calculators and tools, you do so without telling us who you are and without revealing any personal information. While we do not collect identifying information about visitors to our site, we do use standard software to collect information for the strict purpose of tracking activity on our site. This allows us to better understand how many people use our site and which pages and features are most popular. The only information we normally collect and store is:

The name of your Internet service provider
The web site that referred you to us (if any)
The date and time the pages were accessed
The page or pages you requested

walkergv

function listFilesInFolder(folderName) {
  
  var folder = DocsList.getFolder(folderName);
  var contents = folder.getFiles();
  
  var file, data, rows = [];
  
  for (var i = 0; i < contents.length; i++) {
 
    file = contents[i];

walkergv

Function ShowMatch(Keyword As String, ByVal MyRange As Range) As String
    Dim Delimiter As String: Delimiter = "-"
    Dim Temp As String: Temp = ""
        For Each Row In MyRange.Rows
          For Each cell In Row.Cells
             If InStr(Keyword, cell) > 0 Then
                Temp = Temp + Delimiter + cell
             End If
          Next cell
        Next Row

walkergv

Function MakeModifiedBroadMatch(rng As Range, RemoveCommonWords As Boolean) As String
    Dim WordList() As String
    Dim CommonWords() As String: CommonWords = Split("how,do,i,with,in,a,to,the,for,is,of,and,are", ",")
    Dim i As Integer
    Dim x As Integer
    Dim ContainsCommonWord As Boolean
    Dim ModifiedBroadMatchKeyword As String
    
    
    WordList = Split(rng.Value)

walkergv

Public Sub LayoutDebug()
    Dim oPres As Presentation
    Dim oSld As Slide
    Set oPres = ActivePresentation
        For Each oSld In oPres.Slides
        Debug.Print oSld.SlideIndex & " - " & oSld.CustomLayout.Name
    Next
End Sub

walkergv

function scrapeAndGetEmail() {
  
  var ss = SpreadsheetApp.getActiveSpreadsheet();
  var sheet = ss.getSheetByName("Sheet1");
  var array = sheet.getDataRange().getValues();
  var emails = [];
  var i = 0;
  for (i = 0; i < array[0].length; i++){
   var URL  =  array[i][0].toString();
   var response = UrlFetchApp.fetch(URL);

walkergv

## Gets an the old domain and any sub page and redirects it to the new domain and any path after the hostname.
Options +FollowSymLinks
RewriteEngine On
RewriteBase /
RewriteCond %{HTTP_HOST} !^olddomain.com$
RewriteRule ^(.*)$ http://www.newdomain.com/$1 [R=301,L]

walkergv

'
' taken from the website for instructions http://www.contextures.com/excel-data-validation-multiple.html

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler

walkergv

# Begin Cache Control
<IfModule mod_expires.c>
ExpiresActive On
ExpiresByType application/javascript A2592000
ExpiresByType text/css A2592000
ExpiresByType image/gif A604800
ExpiresByType image/png A604800
ExpiresByType image/jpeg A604800
</IfModule>