From bafdcbc360dbd8aafeea7ec83cf957e39dfba9bd Mon Sep 17 00:00:00 2001
From: hmalik144 <h.malik144@gmail.com>
Date: Tue, 1 Oct 2019 14:25:35 +1000
Subject: [PATCH] Create Seek website data scraping

Macro to scrape data from applied jobs on seek.com.au
---
 Seek website data scraping | 93 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 93 insertions(+)
 create mode 100644 Seek website data scraping

diff --git a/Seek website data scraping b/Seek website data scraping
new file mode 100644
index 0000000..1d36672
--- /dev/null
+++ b/Seek website data scraping	
@@ -0,0 +1,93 @@
+Sub Macro3()
+'
+' Macro3 Macro
+'
+
+'
+Dim FoundRange As Range
+Dim LastCell As Range
+Dim XC As Range
+Dim i As Integer
+Dim r As Range, rowz As Long, j As Long
+
+' Delete first bit of shit'
+Range("A1").Select
+Set FoundRange = Cells.Find("SavedApplied")
+
+rows("1:" & FoundRange.Row).Select
+Selection.Delete Shift:=xlUp
+
+'Delete second bit of shit'
+Range("A1").Select
+
+Set LastCell = Selection.End(xlDown)
+Set FoundRange = Cells.Find("PrevNext")
+
+rows(FoundRange.Row & ":" & LastCell.Row).Select
+Selection.Delete Shift:=xlUp
+
+Set LastCell = ActiveSheet.UsedRange.End(xlDown)
+Range("A1").Select
+
+For Each XC In ActiveSheet.UsedRange
+ If XC = "Add Notes" Then
+  XC.Delete Shift:=xlUp
+ End If
+Next
+
+For Each XC In ActiveSheet.UsedRange
+ If XC = "Remove Job" Then
+  XC.Delete Shift:=xlUp
+ End If
+Next
+
+For Each XC In ActiveSheet.UsedRange
+ If XC = "Download Resume" Then
+  XC.Delete Shift:=xlUp
+ End If
+Next
+
+For Each XC In ActiveSheet.UsedRange
+ If XC = "No Cover Letter" Then
+  XC.Delete Shift:=xlUp
+ End If
+Next
+
+For Each XC In ActiveSheet.UsedRange
+ If InStr(1, XC, "Job Title:", 0) Then
+    For i = 1 To 3
+    Cells((XC.Row + i), XC.Column).Select
+    Selection.Cut Destination:=Cells(XC.Row, (XC.Column + i))
+    Next
+ End If
+Next
+    
+Set r = ActiveSheet.UsedRange
+rowz = r.rows.Count
+  For j = rowz To 1 Step (-1)
+    If WorksheetFunction.CountA(r.rows(j)) = 0 Then r.rows(j).Delete
+  Next
+  
+    Columns("B:B").Select
+    Application.CutCopyMode = False
+    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
+
+Set r = ActiveSheet.UsedRange
+rowz = r.rows.Count
+  
+  For i = 1 To rowz
+    Set myCell = Range("A" & i)
+    
+    myCell.Value = Right(myCell.Value, Len(myCell.Value) - InStr(myCell.Value, "Job Title:") - 9)
+    myCell.Value = Left(myCell.Value, InStr(myCell.Value, "Job posted") - 1)
+    Range("B" & i).Value = Right(myCell.Value, Len(myCell.Value) - InStr(myCell.Value, "Advertiser:") - 10)
+    myCell.Value = Left(myCell.Value, InStr(myCell.Value, "Advertiser:") - 1)
+    
+    Set myCell = Range("C" & i)
+    myCell.Value = Right(myCell.Value, Len(myCell.Value) - InStr(myCell.Value, "Location:") - 8)
+    Set myCell = Range("E" & i)
+    myCell.Value = Mid(myCell.Value, InStr(myCell.Value, "2018") - 7, 11)
+  Next
+  
+
+End Sub