Saturday, November 27, 2021

Send mail automatic actuall

 // This constant is written in column C for rows for which an email

// has been sent successfully.

var EMAIL_SENT = 'EMAIL_SENT';


/**

 * Sends non-duplicate emails with data from the current spreadsheet.

 */

function sendEmails2() {

  var sheet = SpreadsheetApp.getActiveSheet();

  var startRow = 2; // First row of data to process

  var numRows = 20; // Number of rows to process

  // Fetch the range of cells A2:B3

  var dataRange = sheet.getRange(startRow, 1, numRows, 3);

  // Fetch values for each row in the Range.

  var data = dataRange.getValues();

  for (var i = 0; i < data.length; ++i) {

    var row = data[i];

    var emailAddress = row[0]; // First column

    var message = row[1]; // Second column

    var emailSent = row[2]; // Third column

    if (emailSent !== EMAIL_SENT) { // Prevents sending duplicates

      var subject = 'Sending emails from a Spreadsheet';

      MailApp.sendEmail(emailAddress, subject, message);

      sheet.getRange(startRow + i, 3).setValue(EMAIL_SENT);

      // Make sure the cell is updated right away in case the script is interrupted

      SpreadsheetApp.flush();

    }

  }

}

Friday, November 26, 2021

Skm inustries joining time

 null

22/11/21 se company join kya h mene aur sare documents 10 ka certificate and 12 th ka certificate and computer diploma aur adhar card provision sab jama karwa dya

Tuesday, November 23, 2021

Sunday, August 29, 2021

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

Monday, July 26, 2021

AUTOMATIC FULL SCREEN

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.DisplayFullScreen = True

End Sub


Wednesday, June 23, 2021

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

Data copy paste on two another sheet with add row in google sheet by script

 function copyDataWithinWorkbook() {   var sourceSheetName = "Dashbord"; // Replace with the name of the source sheet   var target...