Posts by chirayuw

Sub OpenMyFiles()


Dim Rng As Range
Dim Subrng As Range


Worksheets("Ficha de funcionario").Select
Set Rng = Range("D42:D83")


For Each Subrng In Rng
    If Subrng <> "" Then Application.Workbooks.Open Filename:=Subrng
Next Subrng


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)


Dim OldEvents As Boolean


OldEvents = Application.EnableEvents
Application.EnableEvents = False


If Range(ActiveCell.Address).Column = 13 _
And ActiveCell = "In Progress" _
And IsEmpty(Range("N" & ActiveCell.Row)) Then
    Range("N" & ActiveCell.Row) = Date
ElseIf Range(ActiveCell.Address).Column = 13 _
And ActiveCell = "Complete" _
And IsEmpty(Range("O" & ActiveCell.Row)) Then
    Range("O" & ActiveCell.Row) = Date
Else
End If


Application.EnableEvents = OldEvents


End Sub

Sub Get_File_Details()


Dim Fname As String
'Dim CB As String 'Created By
'Dim CD As String 'Create Date
'Dim LMB As String 'Last Modified By
Dim LMD As String 'Last Modified Date
Dim LstRow As String 'Current Row


Do While Not IsEmpty(Range("A" & ActiveCell.Row))
    If IsEmpty(Range("AI" & LstRow)) Then
    Else
        LstRow = ActiveCell.Row
        Fname = Range("AI" & LstRow)
        Workbooks.Open Filename:=FPath & Fname, UpdateLinks:=False, ReadOnly:=True
        With Workbooks(Fname)
            'CB = .BuiltinDocumentProperties("Author")
            'CD = .BuiltinDocumentProperties("Creation Date")
            'LMB = .BuiltinDocumentProperties("Last Author")
            LMD = .BuiltinDocumentProperties("Last Save Time")
        End With
        Workbooks(Fname).Close savechanges:=False
       
        'Range("A" & LstRow) = Fname
        'Range("B" & LstRow) = CB
        'Range("C" & LstRow) = CD
        'Range("D" & LstRow) = LMB
        Range("AJ" & LstRow) = LMD
    End If
        ActiveCell.Offset(1, 0).Select
Loop


End Sub

Sub Macro1()


Columns("M").Select
Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=True, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Selection.NumberFormat = "[$-409]d-mmm-yyyy;@"


Dim x As String
Dim y As Date
Dim LR As Long


x = InputBox("Enter the from date in format MM/DD/YYYY")
y = DateSerial(Right(x, 4), Left(x, 2), Mid(x, 4, 2))
   
LR = Range("C" & Rows.Count).End(xlUp).Row


For i = LR To 2 Step -1
    If Cells(i, 13) > y Then
        Cells(i, 13).EntireRow.Delete
    End If
Next i


End Sub

Sub Sum_Last_Row()


Dim LastRow As Long


LastRow = Cells(Rows.Count, "A").End(xlUp).Row


Range("A" & LastRow + 1 & ":F" & LastRow + 1).Formula = "=SUM(A2:A" & LastRow & ")"


End Sub

Sub Sum_Last_Row()


Dim LastRow As Long


LastRow = Cells(Rows.Count, "A").End(xlUp).Row


Range("A" & LastRow + 1).Formula = "=SUM(A2:A" & LastRow & ")"


End Sub