AUTOMATIC FULL SCREEN

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.DisplayFullScreen = True

End Sub

All link skm

Metre reading status

https://forms.gle/omRAUXEEutwnTLKNA 

https://docs.google.com/spreadsheets/d/1lFw6s1xhARnOam0f1G3axnIgv-phIDGKGftpIRuZ5WM/edit?usp=sharing

[13/12, 12:36 PM] Aakash: https://docs.google.com/spreadsheets/d/1iTnav4nFzVTrmwOXrSvuLTCxVexZK3kx925QvCQ0SQY/edit?usp=sharing

[13/12, 12:40 PM] Aakash: https://docs.google.com/spreadsheets/d/1iTnav4nFzVTrmwOXrSvuLTCxVexZK3kx925QvCQ0SQY/edit?usp=sharing pms

https://docs.google.com/spreadsheets/d/1Q3npbxo59iJpsvbgkLProRt0YwkS8UEj8IUSZWcrsug/edit?usp=sharing glass ims

https://docs.google.com/spreadsheets/d/1T8m6UXS2Ds7TA6j-0GkPv2vNTTTHEPRLYfwrZ5NAJOs/edit?usp=sharing trasnfer

https://docs.google.com/spreadsheets/d/1xFZH4Qf_5p1ht-NZ24k6YAy5zHqM0oQVe11T6jiq74c/edit?usp=sharing db format

[13/12, 12:42 PM] Aakash: https://docs.google.com/spreadsheets/d/1w9K4Soh41OyN1sATTSisx5Te6d-3aPfMZ4ncX_qLTJM/edit?usp=sharing cnc

https://docs.google.com/spreadsheets/d/16BU3CCXpc_GgE47gTvyuHECN4fF_n9n5iO3rotqjFZY/edit?usp=sharing tray f

https://docs.google.com/spreadsheets/d/1iFIFsf_NUOQ1a2dW3LEuWmmIblEo32LkJtKcDGGHOds/edit?usp=sharing washin

[13/12, 12:43 PM] Aakash: https://docs.google.com/spreadsheets/d/1iFIFsf_NUOQ1a2dW3LEuWmmIblEo32LkJtKcDGGHOds/edit?usp=sharing washin

https://docs.google.com/spreadsheets/d/1a6lkJ2ugmntdGjl1cRb5qGIVhw2QDJ7ITcVAHbHcQuc/edit?usp=sharing tuffon

https://docs.google.com/spreadsheets/d/1bdyWTgRYEKEM5nqASmVx9HeHt5scapb4ZkGoVdWN79I/edit?usp=sharing packaging

https://docs.google.com/spreadsheets/d/1STP76M-4rKcfIeElf2N0LscCb2_x9mtPLn7oFx1bHZQ/edit?usp=sharing

JUMP CELL IN EXCEL SERIOR WISE

 Option Explicit

Sub FONTTEXTLOOP()

Dim COUNTER As Integer

For COUNTER = 1 To 9

ActiveCell.Offset(1, 0).Select

If ActiveCell.Value = 3 Then Exit For

Next COUNTER

End Sub

BY COADING IF FORMULA IN EXCEL

 Option Explicit

Sub PASSORFAIL()

Dim MARKS As Byte

MARKS = ActiveCell.Offset(0, -2).Value

Select Case MARKS

Case 0 To 34

ActiveCell.Value = "F"

Case 35 To 49

ActiveCell.Value = "E"

Case Else

ActiveCell.Value = "A"

End Select

End Sub

ek button se multiple macro assign kare

 

Sub Button1_Click()     Call FillEmptyBlankCellWithValue 'Macro1     Call ReplaceHyperlinks 'Macro2     Call test 'Macro3 End Sub

specific sheet pe file open hogi excel me by code

 Private Sub Workbook_Open()

Worksheets("aa").Activate

Range("b2").Select

End Sub

hide

 

Application.ExecuteExcel4Macro "show.toobar(""ribbon"",false)"