Excel Vba Expire Date Close file code

Example Code:-(below copy and Paste)








Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("22/05/2019", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 2 Then
MsgBox "This workbook is NOT Missing code  !", vbCritical

ActiveWorkbook.Close
 End If

End Sub

Read More

What is Range object | Vba Range Object Example

What is Range object | Vba Range Object Example

Example:-

Sub myrangeobj()

Range("B10").Value = "Hello Test Range Example"

End Sub

Output:-

Read More

VBA Excel Programme 1 | How to use Workbook, Worksheets, Sheet

VBA Excel Programme 1

Example 1:-

Sub vbafirst()

' workbook use for file name describe

Application.Workbooks("vbafirst").Worksheets(2).Range("A1").Value = "Sheet 2 using"

'worksheet use for sheet file name/sheet index/position

Worksheets("mysheet1").Range("a1").Value = "sheet 1 using"

'worksheet use for sheet file name/sheet index/position

Worksheets(4).Range("a1").Value = "sheet 4 index/position using"

'sheet3 name is vba project sheet name (show in vba code/vba project)

Sheet3.Range("a1").Value = "sheet 3 using"

End Sub

Read More