set custom header
Sub CustomHeader()
Dim myText As String
myText = InputBox("Enter your text here",
"Enter Text")
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = myText
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
remove text wrap
Sub RemoveTextWrap()
Range("A1").WrapText = False
End Sub
unmerge cell
Sub UnmergeCells()
Selection.UnMerge
End Sub
open calculator
Sub OpenCalculator()
Application.ActivateMicrosoftApp Index:=0
End Sub
date in header setup
Sub DateInHeader()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&D"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
autofit column 1 st coading
Sub AutoFitColumns()
Cells.Select
Cells.EntireColumn.AutoFit
End Sub
autofit row 2nd coading
Sub AutoFitRows()
Cells.Select
Cells.EntireRow.AutoFit
End Sub
insert row as per your requirement
Sub InsertMultipleRows()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox("Enter number of columns to insert",
"Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToDown,
CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub
add columns as per your requirement
Sub InsertMultipleColumns()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireColumn.Select
On Error GoTo Last
i = InputBox("Enter number of columns to insert",
"Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToRight,
CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub
add serial no as per your requirement
Sub AddSerialNumbers()
Dim i As Integer
On Error GoTo Last
i = InputBox("Enter Value", "Enter Serial
Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last:Exit Sub
End Sub
HI DOSTO
WITH THIS CODE WE CAN AUTOMATIC SEND MSG ON WHATSUP
FIRSTLY GO TO GOOGLE SHEET AND PUT IN SCRIPT COADING THEN USE IT ONLY ONE CLICK THOUSEND MSG ON WHATSUP
/* Copyright © TNS Institute of Information Technology Pvt. Ltd.
This software is specially developed by TNS for use by its clients
Unauthorized use & copying of this software will attract penalties.
For support contact helpdesk@ceoitbox.in
Updated 20 August 2020
*/
function onOpen() {
var mySpsheet = SpreadsheetApp.getActiveSpreadsheet();
var mySheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("Contacts");
var ui = SpreadsheetApp.getUi();
ui.createMenu("CEOITBOX")
.addSubMenu(ui.createMenu("Send")
.addItem("Send WA Manually", "sendManualWA")
.addItem("Setup Schedule Manually", "setupMinTrigger")
.addItem("Test WA", "sendTESTWA"))
.addSubMenu(ui.createMenu("Trigger")
.addItem("Create", "setupTrigger").addItem( "Delete", "deleteTrigger"))
.addSubMenu(ui.createMenu("Admin")
.addItem("Check License", "licenseStatus")
.addItem("Clear Status", "clearstatus"))
.addItem("Help", "showHelp").addToUi();
Browser.msgBox("Send only relevant messages to people who know you. Sending bulk messages to unknown users will lead to banning of your whatsapp account if they block you. For guidelines see http://www.ceoitbox.com/waguide");
var mRow = mySheet.getLastRow();
if (mRow>20000){ Browser.msgBox("It is recommended to create separate sheets for more than 20000 contacts")}
}
function sendManualWA(){WN4.sendManualWA()}
function sendTESTWA(){ WN4.sendTESTWA()}
function setupTrigger(){ WN4.setupTrigger()}
function deleteTrigger(){ WN4.deleteTrigger()}
function licenseStatus(){ WN4.licenseStatus()}
function clearstatus(){ WN4.clearstatus()}
function showHelp(){ WN4.showHelp()}
function setupMinTrigger(){ WN4.setupMinTrigger()}
function delMinTrigger(){ WN4.delMinTrigger()}
function sendWA(){WN4.sendWA()}
function setupSchedule(){WN4.setupSchedule()}
