Category: Uncategorized

An example string for newEmail for Nutshell that works!

{ "emailString": "From: fred@bedrock.com\nTo: abe@lincoln.com\nSubject: THIS IS THE SUBJECT\nDate: Mon, 27 Nov 2023 02:54:14 -0500\n\nHello World!"}

URL: https://courses.lumenlearning.com/wm-computerapplicationsmgrs/chapter/hardware/

1. Go to registry editor using ‘regedit’ command.
2. Go to HKEY_CLASSES_ROOT\Directory\shell.
3. Make a new key New Folder.
4. Inside this key, create another key command.
5. Type the following value for the key inside it: cmd.exe /c md “%1/%%DATE%%”
6. Save and exit registry editor.
7. Right-click on the folder in Windows Explorer, and click on New Folder

• Indent
• Naming conventions
• Method Names
• Hungarian Notation
• Camel Case
• Small Methods (usually less than half a page)
• Dim at top (usually)
• Dim all variables
• Description of what method dos at top
• Ease of maintenance in writing

Please don’t fax me anything… This is the conversation that goes through my head when people ask to fax me something…

Fun with SI units

2000 mockingbirds = 2 kilo mockingbird

Basic unit of laryngitis = hoarse power

1 million phones = 1 mega phone

1000 aches = 1 kilo hurts

Is below:

 

Sub FindInfo()

'

' FindInfo Macro

'

' Keyboard Shortcut: Ctrl+w

'

    Dim vendcode As String

    Dim itemcode As String

    Dim vendcodecurrent As String

    Dim itemcodecurrent As String

    Dim bolFoundItem As Boolean

    Dim strVendor As String

    Dim strBrand As String

    Dim strStubSpec As String

    Dim numVol_Eq

    Range("E2").Select

    ' Get what we are looking for

    vendcode = ActiveCell.Value

    ActiveCell.Offset(0, 1).Range("A1").Select

    itemcode = ActiveCell.Value

    ActiveCell.Offset(0, -1).Range("A1").Select

    Windows("prod_saltsnck.xlsx").Activate

    Range("H2").Select

    bolFoundItem = False

    i = 1

    Do While bolFoundItem = False

        ' Get what we are on

        vendcodecurrent = ActiveCell.Value

        ActiveCell.Offset(0, 1).Range("A1").Select

        itemcodecurrent = ActiveCell.Value

        ActiveCell.Offset(0, -1).Range("A1").Select

        'Have we found what we are looking for?

        If vendcode = vendcodecurrent Then

            If itemcode = itemcodecurrent Then

                bolFoundItem = True

                ActiveCell.Offset(0, -4).Range("A1").Select

                strVendor = ActiveCell.Value

                ActiveCell.Offset(0, 1).Range("A1").Select

                strBrand = ActiveCell.Value

                ActiveCell.Offset(0, 5).Range("A1").Select

                strStubSpec = ActiveCell.Value

                ActiveCell.Offset(0, 1).Range("A1").Select

                numVol_Eq = ActiveCell.Value

            End If

        End If

        ' Do what is required.

        If bolFoundItem = True Then

            Windows("SaltySnack_Sales.xlsx").Activate

            ActiveCell.Offset(0, 2).Range("A1").Select

            ActiveCell.Value = strVendor

            ActiveCell.Offset(0, 1).Range("A1").Select

            ActiveCell.Value = strBrand

            ActiveCell.Offset(0, 1).Range("A1").Select

            ActiveCell.Value = strStubSpec

            ActiveCell.Offset(0, 1).Range("A1").Select

            ActiveCell.Value = numVol_Eq

            'Move back

            ActiveCell.Offset(0, -5).Range("A1").Select

            'Grab the next value(s)

            ActiveCell.Offset(1, 0).Range("A1").Select

            vendcode = ActiveCell.Value

            ActiveCell.Offset(0, 1).Range("A1").Select

            itemcode = ActiveCell.Value

            ActiveCell.Offset(0, -1).Range("A1").Select

            'Reset

            Windows("prod_saltsnck.xlsx").Activate

            Range("H2").Select

            bolFoundItem = False

            i = 1

            ' Again!

        Else

            ActiveCell.Offset(1, 0).Range("A1").Select

        End If

        If i > 18000 Then

            bolFoundItem = True

            Windows("SaltySnack_Sales.xlsx").Activate

            ActiveCell.Offset(0, 2).Range("A1").Select

            ActiveCell.Value = "Unknown"

            ActiveCell.Offset(0, 1).Range("A1").Select

            ActiveCell.Value = "Unknown"

            ActiveCell.Offset(0, 1).Range("A1").Select

            ActiveCell.Value = "Unknown"

            ActiveCell.Offset(0, 1).Range("A1").Select

            ActiveCell.Value = "Unknown"

            'Move back

            ActiveCell.Offset(0, -5).Range("A1").Select

            'Grab the next value(s)

            ActiveCell.Offset(1, 0).Range("A1").Select

            vendcode = ActiveCell.Value

            ActiveCell.Offset(0, 1).Range("A1").Select

            itemcode = ActiveCell.Value

            ActiveCell.Offset(0, -1).Range("A1").Select

            'Reset

            Windows("prod_saltsnck.xlsx").Activate

            Range("H2").Select

            bolFoundItem = False

            i = 1

            ' Again!

        End If

        If Len(Trim(vendcode)) < 2 Then

            If Len(Trim(itemcode)) < 2 Then

                Exit Sub

            End If

        End If

        i = i + 1

   Loop

End Sub