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
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
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
function copyDataWithinWorkbook() { var sourceSheetName = "Dashbord"; // Replace with the name of the source sheet var target...