Automatic barcode create

 =image("http://chart.googleapis.com/chart?chs=150x150&cht=qr&chl="&A2)

MULTIPLE IF CONDION BY VBA

 Sub IF_LOOP()

For Each Cell In Range("A2:A10")

If Cell.Value = AAKAS Then

Cell.Offset(0, 1).Value = "POSITIVE"

ElseIf Cell.Value = PAWAN Then

Cell.Offset(0, 1).Value = "NEGETIVE"

Else

Cell.Offset(0, 1).Value = ""

End If

Next Cell

End Sub

ONE TIME MULTIPLE RESULT VBA

 Sub HIDE()

Dim AAKASH As Integer

For AAKASH = 1 To 10

If Cells(AAKASH, 2).Value = "AAKAS" Then

Cells(AAKASH, 3).Value = "PASS"

Cells(AAKASH, 3).Interior.Color = vbGreen

Else

Cells(AAKASH, 3).Value = ""

Cells(AAKASH, 3).Interior.Color = vbRed

End If

Next AAKASH

End Sub

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