Skip to content

Instantly share code, notes, and snippets.

View ganesh092929's full-sized avatar

ganesh092929

View GitHub Profile
@ganesh092929
ganesh092929 / Tut5-ScrapeCarDataPt4.xlsm
Created December 31, 2017 11:46
Sub ScrapeCarDataPt4()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://carousell.com/categories/cars-32/cars-for-sale-1173/"
Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
Dim CarListings As IHTMLElementCollection
@ganesh092929
ganesh092929 / Tut5-ScrapeCarDataPt3.xlsm
Last active July 24, 2018 06:38
Sub ScrapeCarDataPt3()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://carousell.com/categories/cars-32/cars-for-sale-1173/"
Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
Dim CarListings As IHTMLElementCollection
@ganesh092929
ganesh092929 / Tut5-ScrapeCarDataPt2.xlsm
Last active July 24, 2018 06:32
Sub ScrapeCarDataPt2()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://carousell.com/categories/cars-32/cars-for-sale-1173/"
Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
Dim CarListings As IHTMLElementCollection
@ganesh092929
ganesh092929 / Tut5-ScrapeCarDataPt1.xlsm
Created December 31, 2017 11:00
Sub ScrapeCarDataPt1()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://carousell.com/categories/cars-32/cars-for-sale-1173/"
Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
Dim CarListings As IHTMLElementCollection
@ganesh092929
ganesh092929 / HTMLCode
Last active December 31, 2017 08:30
<html>
<head>
<title>Page Title</title>
</head>
<body>
<h1>My First Heading</h1>
<p>My first paragraph.</p>
</body>
@ganesh092929
ganesh092929 / Tut5-BrowseToSite.xlsm
Last active December 31, 2017 08:10
Sub BrowseToSite()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.google.com"
'Waiting for Internet Explorer to load Fully
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
@ganesh092929
ganesh092929 / Tut3-VBAStringManipulation.xlsm
Last active December 26, 2017 03:13
Sub VBAStringManipulation()
Dim Str1 As String
Str1 = "TomCruise@gmail.com"
Debug.Print InStr(1, Str1, "i")
Debug.Print InStrRev(Str1, "i")
Debug.Print Mid(Str1, 17, 3)
Debug.Print StrReverse(Str1)
Debug.Print Len(Str1)
End Sub
@ganesh092929
ganesh092929 / Tut3-Sheet2RowValues.xlsm
Created December 25, 2017 10:53
Sub Sheet2RowValues()
Dim wb As Workbook
Dim ws2 As Worksheet
Set wb = ThisWorkbook
Set ws2 = wb.Sheets("Sheet2")
lastRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
@ganesh092929
ganesh092929 / Tut3-AllRowValues.xlsm
Created December 25, 2017 10:43
Sub AllRowValues()
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
Debug.Print Cells(i, 1).Value
Next i
End Sub
@ganesh092929
ganesh092929 / Tut2-ForLoops.xlsm
Last active December 25, 2017 10:29
Sub ForLoop()
For i = 1 To 10
debug.print i
Next i
End Sub