Posts by saurabhjaina211

Sub callFunc()
    Dim returnVal As Long
    Dim myanimals(3) As String

    myanimals(0) = "cat"
    myanimals(1) = "dog"
    myanimals(2) = "elephant"
    
    'calling function and passing array and string to check
    returnVal = IndexStrArray(myanimals, "dog")
    MsgBox returnVal
End Sub

Sub calculateDiff()
Dim colFinish As Integer, colNo As Integer, totalRows As Integer
colFinish = (ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Column)


totalRows = WorksheetFunction.CountA(ActiveSheet.Range("B:B"))


Application.ScreenUpdating = False


For colNo = 5 To colFinish Step 2
With ActiveSheet


For rowno = 2 To totalRows
.Cells(rowno, colNo) = (.Cells(rowno, colNo - 1) - .Cells(rowno, 3)) / .Cells(rowno, 3)
Next


End With
Next


Application.ScreenUpdating = True
End Sub

Sub populateSearchBox()
On Error Resume Next
Dim HTMLDoc As New HTMLDocument
Dim ieBrowser As New InternetExplorer

Dim rowno As Integer
Dim htmlobject As Object
Dim trow As Object

'To open and show Internet Explorer
ieBrowser.Visible = True

'To Open website in Internet Explorer
ieBrowser.navigate "http://automatetheweb.net/"

Do
' Wait till the Browser is loaded
Loop Until ieBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = ieBrowser.document

'<input type="search" class="search-field" placeholder="Search …" value="" name="s">

HTMLDoc.all.s.Value = "123456"

End Sub

Sub scrape_link()
On Error Resume Next

Dim HTMLDoc As New HTMLDocument
Dim ieBrowser As New InternetExplorer

'variable to specify the row number in excel
Dim trow As Object

'To open and show Internet Explorer
ieBrowser.Visible = True

'To Open website in Internet Explorer
ieBrowser.navigate "https://old.goo-2o.com/5dfd16ae0d783"

Do
    ' Wait till the Browser is loaded
Loop Until ieBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = ieBrowser.document

For Each trow In HTMLDoc.getElementsByClassName("ng-scope")
    If trow.getElementsByTagName("a")(0).innerText = "Click Here" Then
        MsgBox trow.getElementsByTagName("a")(0).href
    End If
Next

Set ieBrowser = Nothing
Set HTMLDoc = Nothing
End Sub

Sub InsertEveryOtherColumn()
    Dim colNo, colStart, colFinish, colStep As Long
    Dim rng2Insert As Range


    colStep = 2
    colStart = Application.Cells(1, 3).Column + 1


    colFinish = (ActiveSheet.UsedRange.SpecialCells( _
    xlCellTypeLastCell).Column * 2) - colStart


    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual


    For colNo = colStart To colFinish Step colStep
        ActiveSheet.Cells(1, colNo).EntireColumn.Insert

        '***New code inserted
        ActiveSheet.Cells(1, colNo) = "Change%"
        ActiveSheet.Columns(colNo).NumberFormat = "0.00%"
        '***
    Next
   
        '***New code inserted
        ActiveSheet.Cells(1, colNo) = "Change%"
        ActiveSheet.Columns(colNo).NumberFormat = "0.00%"
        '***

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub