Posts by mrmmickle1

Dim myPrevVal As String




Private Sub Worksheet_Change(ByVal Target As Range)




    Dim lr As Long
    Dim ws As Worksheet
    
    Set ws = Sheets("Changes")
    If Target.Address = "$A$1" Then
    
        lr = ws.Cells(Rows.Count, "A").End(xlUp).Row
        ws.Range("A" & lr + 1) = myPrevVal 'Previous Value
        ws.Range("B" & lr + 1) = Target.Value  'Current Cell Value
        ws.Range("C" & lr + 1) = Format(Now(), "MM/DD/YYYY HH:MM AMPM") 'Timestamp of change
    
    End If




End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    myPrevVal = Target.Value
End Sub

Sub SumMyData()
     
    Dim lr As Long
    Dim x As Long




    lr = Range("K" & Rows.Count).End(xlUp).Row
    For x = 1 To lr - 1
        SumRow = Range("K" & x).End(xlDown).Row + 1
        Range("J" & SumRow) = "=Sum(" & "J" & x & ":J" & SumRow - 1 & ")"
        Range("K" & SumRow) = "=Sum(" & "K" & x & ":K" & SumRow - 1 & ")"
        x = SumRow
    Next x




End Sub

Sub DelApple()
     
    Dim lr As Long
    Dim Apple As Range


    lr = Range("A" & Rows.Count).End(xlUp).Row
    Set Apple = Range("A1:A" & lr).Find(What:="Apple", LookIn:=xlValues, SearchDirection:=xlNext)
    Rows(Apple.Row & ":" & Apple.Row + 38).EntireRow.Delete


End Sub

Private Sub UserForm_Initialize()
  
    With UserForm1.ListBox1
        For x = .ListCount - 1 To 1 Step -1
            If .Selected(x) Then
                UserForm2.TextBox1.Value = .List(x, 0)
                UserForm2.TextBox2.Value = .List(x, 1)
                UserForm2.TextBox3.Value = .List(x, 2)
                UserForm2.TextBox4.Value = .List(x, 3)
                UserForm2.TextBox5.Value = .List(x, 4)
            End If
        Next x
    End With




End Sub

Set myLinks = ie.document.getElementsByTagName("a") 
    For Each mySingleLink In myLinks 
        If mySingleLink.innerText = "OT Claim Form (May 2016 Payroll)" Then 
          
    msgBox "Link found....which means click code is wrong"
        'Set myClickLink = mySingleLink.ChildNodes.Item(0) 
        'myClickLink.Click 




        End If 
    Next

Dim mySingleLink As Object
Dim myLinks As Object
Dim myClickLink As Object




Set myLinks = ie.document.getElementsByTagName("a")




For Each mySingleLink In myLinks
   If mySingleLink.innerText = "MyLink" Then
   Set myClickLink = mySingleLink.ChildNodes.Item(0)
    myClickLink.Click
   End If
Next

Sub Test()




    Dim rng As Range
    Dim cll As Range
    Dim IntLp As Integer
    Dim strt As Integer
    
    Set rng = Sheets(1).Range("A1:M29")




    For Each cll In rng
        CllLen = Len(cll)
        If CllLen > 0 Then
            For IntLp = 1 To CllLen
                strt = strt + 1
                If IsNumber(Mid(cll, strt, IntLp)) <> True Then
                    cll.Value = Replace(cll.Value, Mid(cll, strt, IntLp), "")
                End If
            strt = 0
            Next IntLp
        End If
    Next cll




End Sub
Function IsNumber(ByVal Value As String) As Boolean
 ' Uncomment the next statement out if you
 ' want to provide for plus/minus signs
 ' If Value Like "[+-]*" Then Value = Mid$(Value, 2)
 IsNumber = Not Value Like "*[!0-9.]*" And _
 Not Value Like "*.*.*" And _
 Len(Value) > 0 And Value <> "." And _
 Value <> vbNullString
End Function

Option Explicit
Private pWebAddress As String
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                                                                  ByVal lpOperation As String, ByVal lpFile As String, _
                                                                                  ByVal lpParameters As String, ByVal lpDirectory As String, _
                                                                                  ByVal nShowCmd As Long) As Long




Public Sub NewShell(cmdLine As String, lngWindowHndl As Long)
    ShellExecute lngWindowHndl, "open", cmdLine, "", "", 1
End Sub




Public Sub WebPage()
    pWebAddress = "https://google.starttest.com"
    Call NewShell(pWebAddress, 3)
End Sub

Sub ChangePass()




    If Date - Application.VLookup(txtUsername.Text, Range("users"), 3, 0) >= 60 Then
    frmUpdateUserNameandPass.Show
    'Pass New Values To Sheet
    Unload  frmUpdateUserNameandPass
    Else
    'Normal Login Code
    End If
    
End Sub

Dim ShtArr As Variant
    Dim x As Long
    
    ShtArr = Array("Business Day", "Lifetime", "MTV", "Rhema")
    
        For x = LBound(ShtArr) To UBound(ShtArr)
        
            Sheets(ShtArr(x)).Activate
            
            Rows("1:1").Delete Shift:=xlUp
            Columns("A").ColumnWidth = 20
            Columns("B:O").ColumnWidth = 8
             
                With Cells.Font
                    .Name = "Calibri"
                    .Size = 8
                End With
                
            Cells.VerticalAlignment = xlCenter
             'Shade selected ranges
            Range("E3:K6").Interior.Color = RGB(217, 217, 217)
            Range("A1").Select
        
        Next x




Sheets("Business Day").Activate