erajanraja24

For i = 0 To Drpdown1.Options.Length - 1
        If Drpdown1.Options(i).Text = "Y2" Then
            Drpdown1.selectedindex = x
		For j = 0 To Drpdown2.Options.Length - 1
			If Drpdown2.Options(j).Text = "X3" Then
            			Drpdown1.selectedindex = j
				Exit for
			End If
		Next j
            Exit For

erajanraja24

Sub automaticformfilling()

Dim ie As Object

Set ie = CreateObject("internetexplorer.application")

With ie
    .Visible = True
    .navigate "http://newtours.demoaut.com/mercuryregister.php"
    'Wait for loading

erajanraja24

Sub iepart2()

Dim ie As Object
'
Set ie = CreateObject("internetexplorer.application")

With ie
    .Visible = True
    .navigate "https://www.google.co.in"

erajanraja24

'In Module 1

Option Private Module

Public var1 As Integer

Sub Public_Scope_1()
var1 = 20
Debug.Print "Value of var1 in Public_Scope_1: "; var1
var1 = var1 + 15

erajanraja24

Dim var1 As Integer

Sub Module_Scope_1()
var1 = 20
Debug.Print "Value of var1 in Module_Scope_1: "; var1
var1 = var1 + 15
End Sub

Sub Module_Scope_2()

erajanraja24

Sub Procedure_Scope_1()
Dim i As Integer
i = 5
Debug.Print "Variable i value in Procedurecheck1 is " & i
End Sub

Sub Procedure_Scope_2()
Debug.Print "Variable i value in Procedurecheck2 is " & i
End Sub

erajanraja24

Sub check()

'Determing the last column
LastCol = ThisWorkbook.Sheets(1).UsedRange.Columns.Count

'Determining the last row
LastRow = ThisWorkbook.Sheets(1).UsedRange.Rows.Count

'Determining the Range

erajanraja24

Sub check()

Set Rng = ThisWorkbook.Sheets(1).UsedRange

Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

End Sub

erajanraja24

Sub check()

Set Rng = ThisWorkbook.Sheets(1).Range("A1:D13")

Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

End Sub

erajanraja24

Sub check()

Set Rng = ThisWorkbook.Sheets(1).Range("A1:C12")

Rng.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

End Sub