Excel VB_Day1

Sub Button1_Click()

' MsgBox "Hello World"

Cells(3, 2).Value = 10

Range("C4").Value = 20

Range("A2:A10").Value = 5

Range("D2:D5,F5:F10").Value = 30

End Sub

Sub btn_sale1

'By Sheet Name

Worksheets("Sale").Range("A2").Value = 20

'Sheets("Sale").Range("A2").Value = 20

Worksheets("Summary").Range("A1").Value = "No"

'By Sheet Index Number

'Sheets(1).Range("G1").Value = "Name"

Worksheets(3).Range("G1").Value = "Name"

'By sheet code name

Sheet3.Range("E3").Value = 50

End Sub

Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub
Sub Consolidate_Workbooks()

End Sub