Posts by dbrown14

Option Explicit
 
Sub macro()
    Dim ex As Excel.Application
    Dim wrkbk As Workbook
    Dim sht As Worksheet
    Dim row As Integer
    Dim filePath As String
    Dim a As Variant
     
     'Path to closed file
    filePath = "C:\Users\user\Documents\Today.csv"
     
     'Stop updating the screen
    Application.ScreenUpdating = False
     
     'Insert new row
    Rows(1).Insert
     'Copy
    a = Range("A2:N2").Value
     'Paste
    Range("A1:N1").Value = a
     
     'Create new instance of excel
    Set ex = New Excel.Application
     'Open the workbook
    Set wrkbk = ex.Workbooks.Open(filePath, , True)
     'Grab the first sheet in wrkbk
    Set sht = wrkbk.Sheets(1)
     
     'Find value in B1 in colum A of closed workbook
    row = sht.Range("A:A").Find(Range("B1").Value, , xlValues, xlWhole).row
     'Copy
    a = sht.Range("F" & row, "K" & row).Value
     'Paste
    Range("C1").Resize(, 6).Value = a
     
     'Close workbook
    wrkbk.Close
     'Exit excel
    ex.Quit
     
    Range("C:C").NumberFormat = "dd/mm/yyyy"
     
     'Set the screen to update
    Application.ScreenUpdating = True
End Sub

Option Explicit
 
Sub macro()
    Dim ex As Excel.Application
    Dim wrkbk As Workbook
    Dim sht As Worksheet
    Dim row As Integer
    Dim filePath As String
    Dim a As Variant
     
     'Path to closed file
    filePath = "C:\Users\user\Documents\Today.csv"
     
     'Stop updating the screen
    Application.ScreenUpdating = False
     
     'Insert new row
    Rows(1).Insert
     'Copy
    a = Range("A2:N2").Value
     'Paste
    Range("A1:N1").Value = a
     
     'Create new instance of excel
    Set ex = New Excel.Application
     'Open the workbook
    Set wrkbk = ex.Workbooks.Open(filePath)
     'Grab the first sheet in wrkbk
    Set sht = wrkbk.Sheets(1)
     
     'Find value in B1 in colum A of closed workbook
    row = sht.Range("A:A").Find(Range("B1").Value, , xlValues, xlWhole).row
     'Copy
    a = sht.Range("F" & row, "K" & row).Value
     'Paste
    Range("C1").Resize(, 6).Value = a
    
    sht.Range("F:F").NumberFormat = "dd/mm/yyyy"
     
     'Close workbook
    wrkbk.Close
     'Exit excel
    ex.Quit
     
     Range("C:C").NumberFormat = "dd/mm/yyyy"
     
     'Set the screen to update
    Application.ScreenUpdating = True
End Sub

Option Explicit


Sub macro()
    Dim date1 As Date
    Dim a As Variant
    Dim start As Long
    Dim i, ii As Long
    
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        
        date1 = "4/1/2012"
        a = Sheets("Sheet1").Range("B2", Sheets("Sheet1").Range("B2").End(xlDown).Offset(0, 3)).Value
        
        For i = 1 To UBound(a, 1)
            If Not .exists(a(i, 1)) Then
                start = Sheets(a(i, 1)).Range("B:B").Find(date1, , xlFormulas, xlWhole).Row + 1
                .Add a(i, 1), start
            End If
            start = .Item(a(i, 1))
            For ii = 1 To UBound(a, 2)
                Sheets(a(i, 1)).Cells(start, ii + 1).Value = a(i, ii)
            Next
            .Remove a(i, 1)
            .Add a(i, 1), start + 1
        Next
    End With
End Sub

Option Explicit


Sub macro()
    Dim ex As Excel.Application
    Dim wrkbk As Workbook
    Dim sht As Worksheet
    Dim rngX As Range
    
    Set ex = New Excel.Application
    Set wrkbk = ex.Workbooks.Open("C:\workbook\closed.xlsx")
    Set sht = wrkbk.Sheets("pivot")
    
    Set rngX = sht.Range("A4:D4").Find("X", lookat:=xlPart)
    If Not rngX Is Nothing Then
        MsgBox "Found at " & rngX.Address
    End If
    
    wrkbk.Close
    ex.Quit
End Sub

Dim sht As Worksheet
Dim name As String
Dim rng, rng2 As Range
Dim allow As Boolean


allow = False


For Each sht In Sheets
    If sht.name Like "*Goals*" Then
        Set rng = sht.Range("C:C,X:X").Find(name, , xlValues, xlWhole)
        Set rng2 = sht.Range("AC:AC").Find(name, , xlValues, xlWhole)
        If rng Is Nothing Then
            allow = True
            Exit For
        ElseIf rng2 = Nothing Then
            Exit For
        End If
    End If
Next


If Not allow Then
    MsgBox "Employee Not Available"
End If