1. Главная
2. PracticalIT

How to use activecell and Selection method in VBA.
Lines of Code:-

Sub Test1()

Range("B3").Value = "YT"

End Sub


Sub Test2()

'Selection.Value = "YT"
ActiveCell.Value = "Hello"
End Sub


Sub Test3()

Dim i As Integer
For i = 1 To 10
ActiveCell.Offset(0, i - 1).Value = i
Next i

End Sub

Sub SelectRange()

'Sheet1.Range("B3").Select
Sheet1.Cells(2, 3).Select
End Sub


Sub SelectCellINotherSheet()
' Sheet2.Activate
' Sheet2.Range("H10").Select

Application.Goto ThisWorkbook.Worksheets("Sheet2").Range("G10")

End Sub

Sub SelectCellINotherSheet1()

Application.Goto Workbooks("Book2").Worksheets("Sheet2").Range("G5")
End Sub

Sub SelectFirstBlankRow()

Sheet1.Range("A1").End(xlDown).Offset(1, 0).Interior.Color = VBA.ColorConstants.vbBlue

End Sub

Sub SelectFirstRange()

'Range("A1", ActiveSheet.Range("A1").End(xlDown)).Select
Range("A1:" & ActiveSheet.Range("A1").End(xlDown).Address).Select
End Sub

Sub SelectRangeWithBlanks()
'Range("A1", ActiveSheet.Range("A1000").End(xlUp)).Select
Range("A1:" & ActiveSheet.Range("A1000").End(xlUp).Address).Select
End Sub


Sub SelectMUltipleRanges()

Dim Startrange As String
Dim Endrange As String

Startrange = "E1"
Endrange = "H1"

Dim A_range As Range
Dim b_range As Range

Set A_range = Range(Startrange, Range(Startrange).End(xlDown))
Set b_range = Range(Endrange, Range(Endrange).End(xlDown))

Debug.Print A_range.Address
Debug.Print b_range.Address

Application.Union(A_range, b_range).Select

End Sub














Selection

Sub Test1()

Range("B3").Value = "YT"

End Sub


Sub Test2()

'Selection.Value = "YT"
ActiveCell.Value = "Hello"
End Sub


Sub Test3()

Dim i As Integer
For i = 1 To 10
ActiveCell.Offset(0, i - 1).Value = i
Next i

End Sub

Sub SelectRange()

'Sheet1.Range("B3").Select
Sheet1.Cells(2, 3).Select
End Sub


Sub SelectCellINotherSheet()
' Sheet2.Activate
' Sheet2.Range("H10").Select

Application.Goto ThisWorkbook.Worksheets("Sheet2").Range("G10")

End Sub

Sub SelectCellINotherSheet1()

Application.Goto Workbooks("Book2").Worksheets("Sheet2").Range("G5")
End Sub

Sub SelectFirstBlankRow()

Sheet1.Range("A1").End(xlDown).Offset(1, 0).Interior.Color = VBA.ColorConstants.vbBlue

End Sub

Sub SelectFirstRange()

'Range("A1", ActiveSheet.Range("A1").End(xlDown)).Select
Range("A1:" & ActiveSheet.Range("A1").End(xlDown).Address).Select
End Sub

Sub SelectRangeWithBlanks()
'Range("A1", ActiveSheet.Range("A1000").End(xlUp)).Select
Range("A1:" & ActiveSheet.Range("A1000").End(xlUp).Address).Select
End Sub


Sub SelectMUltipleRanges()

Dim Startrange As String
Dim Endrange As String

Startrange = "E1"
Endrange = "H1"

Dim A_range As Range
Dim b_range As Range

Set A_range = Range(Startrange, Range(Startrange).End(xlDown))
Set b_range = Range(Endrange, Range(Endrange).End(xlDown))

Debug.Print A_range.Address
Debug.Print b_range.Address

Application.Union(A_range, b_range).Select

End Sub

#practicalit #activecellvba #selectioninvba

play_arrow

7

0

CHERISH eConference 2021 Session 2 - Paper 1

play_arrow

38

like

Find average of numbers in a list

play_arrow

1,803

24

00:00:00

True and False Symbol in MS word | MS word shortcut keys | True False symbols shortcut keys in word

play_arrow

1,091,377

like

Best Love Hindi Ringtone || New Ringtone Love 2023 || Love Hindi Song Download Aditya Vibes Studio

play_arrow

1,437

6

00:00:00

Scrape Data from Google Maps (in 2026) | Extract Leads & Phone Numbers

play_arrow

44

like

00:00:00

I Built a Password Manager | React + Auth0 + Supabase. | react beginner project | Codewithvsk

play_arrow

145,484

2.3 тыс

00:00:00

La Yensy Jordan - Eso Me Pica

play_arrow

8,508

126

00:00:00

Poke Origin - Review Mega Blaziken Pokemon Không Có Đối Thủ Về Tốc Độ