erajanraja24

Sub check()

Set Rng = ThisWorkbook.Sheets(1).Range("B1:B20")

Rng.RemoveDuplicates Columns:=Array(1), 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

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).UsedRange

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

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 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

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

'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

Sub iepart2()

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

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

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