MICROSOFT KE MASTER BANO BY A.K.V: 2020

Saturday, December 26, 2020

Change case in excel by vba

Sub upper()

For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = UCase(cell.Value)
End If
Next cell
End Sub


Sub proper()
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = Application.WorksheetFunction.proper(cell.Value)
End If
Next cell
End Sub



Sub lower()
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = LCase(cell.Value)
End If
Next cell
End Sub

Jameen ki sari jankari kese kharide aur beche

Jameen kharidne se pahle ye jankari hasil kare

https://youtu.be/ve9baM9cr8k

Jameen kharidne aur bechne se pahle iski jankari hasil kar le nahi to jameen hath se ja sakti he

https://youtu.be/X5GFIrKmCik

Wednesday, December 23, 2020

EXCEL KE KAMAL KE FORMULE

ISME LAST KE 4 DIGIT KA SUM HO

JAYEGA AUTOMATIC

=SUM(OFFSET(B4,4,COUNTA(B4:G4)-4,2,4))

AB ISME AUTOMATIC LAST 3 DIGIT SUM HO😊 JAYNGE

=SUM(OFFSET(B4,4,COUNTA(B4:G4)-3,2,3))

=SUM(OFFSET(B4,MATCH(I8,B4:G10,0),COUNTA(B4:G4)-3,1,3))

Thursday, December 17, 2020

CONVERT CASE UPPER,PROPER,LOWER BY VBA

Convert to Upper Case

Sub convertUpperCase()

Dim Rng As Range

For Each Rng In Selection

If Application.WorksheetFunction.IsText(Rng) Then

Rng.Value = UCase(Rng)

End If

Next

End Sub

: Convert to Lower Case

Sub convertLowerCase()

Dim Rng As Range

For Each Rng In Selection

If Application.WorksheetFunction.IsText(Rng) Then

Rng.Value= LCase(Rng)

End If

Next

End Sub

: Convert to Proper Case

Sub convertProperCase()

Dim Rng As Range

For Each Rng In Selection

If WorksheetFunction.IsText(Rng) Then

Rng.Value = WorksheetFunction.Proper(Rng.Value)

End If

Next

End Sub

Word Count from Entire Worksheet VBA COADING

Word Count from Entire Worksheet

Sub Word_Count_Worksheet()

Dim WordCnt As Long

Dim rng As Range

Dim S As String

Dim N As Long

For Each rng In ActiveSheet.UsedRange.Cells

S = Application.WorksheetFunction.Trim(rng.Text)

N = 0

If S <> vbNullString Then

N = Len(S) - Len(Replace(S, " ", "")) + 1

End If

WordCnt = WordCnt + N

Next rng

MsgBox "There are total " _

& Format(WordCnt, "#,##0") & _

" words in the active worksheet"

End Sub

DATE REMOVE AND CONVERT VBA COADING

Convert Date into Day

Sub date2day()

Dim tempCell As Range

Selection.Value = Selection.Value

For Each tempCell In Selection

If IsDate(tempCell) = True Then

With tempCell

.Value = Day(tempCell)

.NumberFormat = "0"

End With

End If

Next tempCell

End Sub

Remove Date from Date and Time

Sub removeDate()

Dim Rng As Range

For Each Rng In Selection

If IsDate(Rng) = True Then

Rng.Value = Rng.Value - VBA.Fix(Rng.Value)

End If

NextSelection.NumberFormat = "hh:mm:ss am/pm"

End Sub

Add Insert Degree Symbol & TIME RANGE in Excel VBA

Add Insert Degree Symbol in Excel

Sub degreeSymbol( )

Dim rng As Range

For Each rng In Selection

rng.Select

If ActiveCell <> "" Then

If IsNumeric(ActiveCell.Value) Then

ActiveCell.Value = ActiveCell.Value & "°"

End If

Next

End Sub

Insert Time Range

Sub TimeStamp()

Dim i As Integer

For i = 1 To 24

ActiveCell.FormulaR1C1 = i & ":00"

ActiveCell.NumberFormat = "[$-409]h:mm AM/PM;@"

ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0).Select

Next i

End Sub

Remove Spaces from Selected Cells VBA

: Remove Spaces from Selected Cells

Sub RemoveSpaces()

Dim myRange As Range

Dim myCell As Range

Select Case MsgBox("You Can't Undo This Action. " _

& "Save Workbook First?", _

vbYesNoCancel, "Alert")

Case Is = vbYesThisWorkbook.Save

Case Is = vbCancel

Exit Sub

End Select

Set myRange = Selection

For Each myCell In myRange

If Not IsEmpty(myCell) Then

myCell = Trim(myCell)

End If

Next myCell

End Sub

Use Text to Speech & Search on Google VBA

Use Text to Speech

Sub Speak()

Selection.Speak

End Sub

Activate Data Entry Form

Sub DataForm()

ActiveSheet.ShowDataForm

End Sub

VBA Code to Search on Google

Sub SearchWindow32()

Dim chromePath As String

Dim search_string As String

Dim query As String

query = InputBox("Enter here your search here", "Google Search")

search_string = query

search_string = Replace(search_string, " ", "+")

'Uncomment the following line for Windows 64 versions and comment out Windows 32 versions'

'chromePath = "C:Program FilesGoogleChromeApplicationchrome.exe"

'Uncomment the following line for Windows 32 versions and comment out Windows 64 versions

'chromePath = "C:Program Files (x86)GoogleChromeApplicationchrome.exe"

Shell (chromePath & " -url http://google.com/#q=" & search_string)

End Sub

Convert all Formulas into Values VBA

Convert all Formulas into Values

Sub convertToValues()

Dim MyRange As Range

Dim MyCell As Range

Select Case _

MsgBox("You Can't Undo This Action. " _

& "Save Workbook First?", vbYesNoCancel, _

"Alert")

Case Is = vbYes

ThisWorkbook.Save

Case Is = vbCancel

Exit Sub

End Select

Set MyRange = Selection

For Each MyCell In MyRange

If MyCell.HasFormula Then

MyCell.Formula = MyCell.Value

End If

Next MyCell

End Sub

Save Selected Range as a PDF & INSERT LINK PIC BY VBA

Save Selected Range as a PDF

Sub HideSubtotals()

Dim pt As PivotTable

Dim pf As PivotField

On Error Resume Next

Set pt = ActiveSheet.PivotTables(ActiveCell.PivotTable.name)

If pt Is Nothing Then

MsgBox "You must place your cursor inside of a PivotTable."

Exit Sub

End If

For Each pf In pt.PivotFields

pf.Subtotals(1) = True

pf.Subtotals(1) = False

Next pf

End Sub

INSERT LINK PICTURE

Sub LinkedPicture()

Selection.Copy

ActiveSheet.Pictures.Paste(Link:=True).Select

End Sub

REFRESH ALL PIVOT TABLE AUTOMATICALLY VBA

REFRESH ALL PIVOT TABLE

Sub vba_referesh_all_pivots()

Dim pt As PivotTable

For Each pt In ActiveWorkbook.PivotTables

pt.RefreshTable

Next pt

End Sub

ACTIVE GET PIVOT TABLE

Sub activateGetPivotData()

Application.GenerateGetPivotData = True

End Sub

Sub deactivateGetPivotData()

Application.GenerateGetPivotData = False

End Sub

HIDE SUBTOTAL BY VBA

HIDE SUBTOTAL

Sub HideSubtotals()

Dim pt As PivotTable

Dim pf As PivotField

On Error Resume Next

Set pt = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)

If pt Is Nothing Then

MsgBox "You must place your cursor inside of a PivotTable."

Exit Sub

End If

For Each pf In pt.PivotFields

pf.Subtotals(1) = True

pf.Subtotals(1) = False

Next pf

End Sub

OPEN WORKBOOK AS ATTACHMENT VBA

OPEN WORKBOOK AS ATTACHMENT

Sub OpenWorkbookAsAttachment()

Application.Dialogs(xlDialogSendMail).Show

End Sub

Sub VisibleWorkbooks()

Dim book As Workbook

Dim i As Integer

For Each book In Workbooks

If book.Saved = False Then

i = i + 1

End If

Next book

MsgBox i

End Sub

SEND MAIL ON OUTLOOK

Sub Send_Mail()

Dim OutApp As Object

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

With OutMail

.to = "Sales@FrontLinePaper.com"

.Subject = "Growth Report"

.Body = "Hello Team, Please find attached Growth Report."

.Attachments.Add ActiveWorkbook.FullName

.display

End With

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

SAVE WORKSHEET AS PDF & COPY WORKBOOK TO NEW WORKBOOK VBA

SAVE WORKSHEET AS PDF

Sub SaveWorkshetAsPDF()

Dimws As Worksheet

For Each ws In Worksheets

ws.ExportAsFixedFormat _

xlTypePDF, _

"ENTER-FOLDER-NAME-HERE" & _

ws.Name & ".pdf"

Next ws

End Sub

COPY WORKBOOK TO NEW WORKBOOK

Sub CopyWorksheetToNewWorkbook()

ThisWorkbook.ActiveSheet.Copy _

Before:=Workbooks.Add.Worksheets(1)

End Sub

LOCK CELL WITH FORMULAS & DELETE BALANK WORKSHEET VBA

LOCK CELL WITH FORMULAS

Sub lockCellsWithFormulas()

With ActiveSheet

.Unprotect

.Cells.Locked = False

.Cells.SpecialCells(xlCellTypeFormulas).Locked = True

.Protect AllowDeletingRows:=True

End With

End Sub

DELETE BALANK WORKSHEET

Sub deleteBlankWorksheets()

Dim Ws As Worksheet

On Error Resume Next

Application.ScreenUpdating= False

Application.DisplayAlerts= False

For Each Ws In Application.Worksheets

If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then

Ws.Delete

End If

Application.ScreenUpdating= True

Application.DisplayAlerts= True

End Sub

PROTECT SHEET WITH PASSWORD & SORT WORKSHEET VBA

PROTECT SHEET WITH PASSWORD

Sub ProtectWS()

ActiveSheet.Protect "mypassword", True, True

End Sub

SORT WORKSHEET

Sub SortWorksheets()

Dim i As Integer

Dim j As Integer

Dim iAnswer As VbMsgBoxResult

iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _

& "Clicking No will sort in Descending Order", _

vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If iAnswer = vbYes Then

If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then

Sheets(j).Move After:=Sheets(j + 1)

End If

ElseIf iAnswer = vbNo Then

If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1)

End If

Next j

Next i

End Sub

DELETE WORKSHEET & PROTECT ALL WORKSHEET VBA

DELETE WORKSHEET

Sub DeleteWorksheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.name <> ThisWorkbook.ActiveSheet.name Then

Application.DisplayAlerts = False

ws.Delete

Application.DisplayAlerts = True

End If

Next ws

End Sub

PROTECT ALL WORKSHEET

Sub ProtectAllWorskeets()

Dim ws As Worksheet

Dim ps As String

ps = InputBox("Enter a Password.", vbOKCancel)

For Each ws In ActiveWorkbook.Worksheets

ws.Protect Password:=ps

Next ws

End Sub

SELECT PRINT AREA & HIDE WORKSHEET & UNHIDE WORKSHEET

SELECT PRINT AREA

Sub printSelection()

Selection.PrintOut Copies:=1, Collate:=True

End Sub

HIDE WORKSHEET

Sub HideWorksheet()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> ThisWorkbook.ActiveSheet.Name Then

ws.Visible = xlSheetHidden

End If

Next ws

End Sub

UNHIDE WORKSHEET

Sub UnhideAllWorksheet()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

SET COLUMN DIFFERENCE & PRINT COMMENT VBA

Sub columnDifference()

Range("H7:H8,I7:I8").Select

Selection.ColumnDifferences(ActiveCell).Select

Selection.Style= "Bad"

End Sub

PRINT COMMENT

Sub printComments()

With ActiveSheet.PageSetup

.printComments = xlPrintSheetEnd

End With

End Sub

[10:24 AM, 12/18/2020] Aakash: Sub printNarrowMargin()

With ActiveSheet.PageSetup

.LeftMargin = Application

.InchesToPoints (0.25)

.RightMargin = Application.InchesToPoints(0.25)

.TopMargin = Application.InchesToPoints(0.75)

.BottomMargin = Application.InchesToPoints(0.75)

.HeaderMargin = Application.InchesToPoints(0.3)

.FooterMargin = Application.InchesToPoints(0.3)

End With

ActiveWindow.SelectedSheets.PrintOut _

Copies:=1, _

Collate:=True, _

IgnorePrintAreas:=False

End Sub

highlight greather than value VBA

highlight greather than value

Sub HighlightGreaterThanValues()

Dim i As Integer

i = InputBox("Enter Greater Than Value", "Enter Value")

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlCellValue, _

Operator:=xlGreater, Formula1:=i

Selection.FormatConditions(Selection.FormatConditions.Count).S

tFirstPriority

With Selection.FormatConditions(1)

.Font.Color = RGB(0, 0, 0)

.Interior.Color = RGB(31, 218, 154)

End With

End Sub

highlight negetive mark VBA

highlight negetive mark

Sub highlightNegativeNumbers()

Dim Rng As Range

For Each Rng In Selection

If WorksheetFunction.IsNumber(Rng) Then

If Rng.Value < 0 Then

Rng.Font.Color= -16776961

End If

End Sub

HIGHLIGHT RANGE VBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim strRange As String

strRange = Target.Cells.Address & "," & _

Target.Cells.EntireColumn.Address & "," & _

Target.Cells.EntireRow.Address

Range(strRange).Select

End Sub

highlight range

Sub HighlightRanges()

Dim RangeName As Name

Dim HighlightRange As Range

On Error Resume Next

For Each RangeName In ActiveWorkbook.Names

Set HighlightRange = RangeName.RefersToRange

HighlightRange.Interior.ColorIndex = 36

Next RangeName

End Sub

heighlight dublicate value VBA

heighlight dublicate valuele

Sub HighlightDuplicateValues()

Dim myRange As Range

Dim myCell As Range

Set myRange = Selection

For Each myCell In myRange

If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then

myCell.Interior.ColorIndex = 36

End If

Next myCell

End Sub

set custom header VBA

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 &open calculator & unmerge cell & date in header setup

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 ROW AND COLUMN VBA

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 VBA

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 VBA

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 VBA

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

Tuesday, November 24, 2020

AUTOMATIC WHATSUP IN GOOGLE SHEET WITH COADING

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

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()}

Wednesday, October 28, 2020

AUTOMATIC SEND MAIL ON GOOGLE SHEET

HLLO FRIENDS THIS IS SCRIPT COADING FOR SENDING AUTOMATIC MAIL BY GOOGLE SHEET

Email id message

/**

* Sends emails with data from the current spreadsheet.

function sendEmails() {

var sheet = SpreadsheetApp.getActiveSheet();

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

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

// Fetch the range of cells A2:B3

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

// Fetch values for each row in the Range.

var data = dataRange.getValues();

for (var i in data) {

var row = data[i];

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

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

var subject = 'Sending emails from a Spreadsheet';

MailApp.sendEmail(emailAddress, subject, message);

}

AUTOMATIC LOCK CELL AFTER ENTER TEXT IN CELL VBA COADING

HI FREND WITH THIS CODE WE CAN USE AUTOMATIC LOCK CELL AFTER ENTER TEXT IN CELL

Sub Worksheet_Change(ByVal Target As Range)

Dim xRg As Range

On Error Resume Next

Set xRg = Intersect(Range("A1:E15"), Target)

If xRg Is Nothing Then Exit Sub

Target.Worksheet.Unprotect Password:="111"

xRg.Locked = True

Target.Worksheet.Protect Password:="111"

End Sub

Tuesday, October 13, 2020

EXCEL VB COADING AND FORMULAS

THIS IS BASIC COADING FOR APPLY AUTOMATIC FILTER IN EXCEL SHEET

Advancefilter.applyfilter

AGAR KISI CELL ME TEXT AUR NUMBER EK SATH AUR ISE ALAG KARNA CHAHTE HE TO

THIS FORMULA APPPLY IS FORMULE SE NUMBER ALAG HO JAYEGA

=RIGHT(L823,LEN(L823)-MIN(FIND({0,1,2,3,4,5,6,7,8,9},L823&"0123456789"))+1)

AND IS FORMULE SE TEXT ALAG HO JAYEGA

=LEFT(L824,MIN(FIND({0,1,2,3,4,5,6,7,8,9},L824&"0123456789"))-1)

Friday, October 9, 2020

GMAIL SUITE ACCOUNT TRAININF

THIS IS LINK FOR ADVANCE TRAINING OF GMAIL SUITE ACCOUNT

[03/10, 5:57 PM] Aakash: https://youtu.be/A

[03/10, 5:58 PM] Aakash: https://youtu.be/q9XdDViKXE4

[03/10, 5:58 PM] Aakash: https://youtu.be/ib1j8B-rz6k

[03/10, 5:58 PM] Aakash: https://youtu.be/t42XCAChUN

[03/10, 5:59 PM] Aakash: https://youtu.be/jTageuhPfAM

[03/10, 5:59 PM] Aakash: https://youtu.be/Y7g8vWv11Vk

[03/10, 5:59 PM] Aakash: https://youtu.be/JENOhSXzi2U

[03/10, 6:00 PM] Aakash: https://youtu.be/yl_YoF7W4nQ

[03/10, 6:00 PM] Aakash: https://youtu.be/bDg1u6sZ1Aw

[03/10, 6:00 PM] Aakash: https://youtu.be/hBekKtV8Hr0

[03/10, 6:01 PM] Aakash: https://youtu.be/hI91Sb50OhI

[03/10, 6:01 PM] Aakash: https://youtu.be/1-CJpgofhCs

[03/10, 6:01 PM] Aakash: https://youtu.be/hJdoMKYjQDc

[03/10, 6:01 PM] Aakash: https://youtu.be/DgmP2puTXNA

[03/10, 6:02 PM] Aakash: https://youtu.be/KHzYMGNEKmA

[03/10, 6:02 PM] Aakash: https://youtu.be/FNRHSq58vpk

[03/10, 6:02 PM] Aakash: https://youtu.be/xFY9hGicTRM

[03/10, 6:03 PM] Aakash: https://youtu.be/7hv67zTj5sw

[03/10, 6:03 PM] Aakash: https://youtu.be/pesssXLkBsQ

[03/10, 6:03 PM] Aakash: https://youtu.be/_GcG4FuB-F8

[03/10, 6:03 PM] Aakash: https://youtu.be/mAcJvUeKoDY

[03/10, 6:03 PM] Aakash: https://youtu.be/brbyNmcJtII

[03/10, 6:03 PM] Aakash: https://youtu.be/YEbBB3gD_Pk

[03/10, 6:04 PM] Aakash: https://youtu.be/5i78mmbwwIA

[03/10, 6:04 PM] Aakash: https://youtu.be/45AOSKa9O08

Friday, October 2, 2020

GSUITE ACCOUNT LINK

ALL IS LINK OF GSUITE ACCOUNT

https://youtu.be/GdYq78dYG3k https://youtu.be/FmJLm_WJx8M [02/10, 15:52] Akash: https://youtu.be/d9DnXuSGF1o [02/10, 15:52] Akash: https://youtu.be/zbM4YIO8dhA [02/10, 15:52] Akash: https://youtu.be/wo4WXEIeP_o [02/10, 15:52] Akash: https://youtu.be/L42qB9xw92M [02/10, 15:52] Akash: https://youtu.be/0Ecu-9auVS0 [02/10, 15:52] Akash: https://youtu.be/9rGzdAeo9J8 [02/10, 15:52] Akash: https://youtu.be/0QUI7P9iU0g [02/10, 15:52] Akash: https://youtu.be/A2bx9vOaeBI [02/10, 15:52] Akash: https://youtu.be/CUTtwqgtF4s [02/10, 15:52] Akash: https://youtu.be/QLJ22YHo4AU [02/10, 15:52] Akash: https://youtu.be/P-Ek_J4h5eE [02/10, 15:52] Akash: https://youtu.be/NhAkVxsBXdk [02/10, 15:52] Akash: https://youtu.be/ystdF6jN7hc [02/10, 15:52] Akash: https://youtu.be/8GUB41-zjUo [02/10, 15:52] Akash: https://youtu.be/gT0VUKx-DWw [02/10, 15:52] Akash: 2 day [02/10, 15:52] Akash: https://youtu.be/1nInGoFsT3w [02/10, 15:52] Akash: https://youtu.be/BQVhT_9YDes [02/10, 15:52] Akash: https://youtu.be/PJqWGcc48EQ [02/10, 15:52] Akash: https://youtu.be/mGtf39d8u3w [02/10, 15:52] Akash: https://youtu.be/R1tujSAk-zY [02/10, 15:52] Akash: https://youtu.be/32qbHtZvZtM [02/10, 15:52] Akash: https://youtu.be/Y9FOyoS3Fag [02/10, 15:52] Akash: 3 [02/10, 15:52] Akash: https://youtu.be/uP09aFXQ58E [02/10, 15:52] Akash: https://youtu.be/vS4DAW_dJdI [02/10, 15:52] Akash: https://youtu.be/mlfWKYvGxt0 [02/10, 15:52] Akash: https://youtu.be/2HsFRKoPUQU [02/10, 15:52] Akash: https://youtu.be/dojB4fT27VQ [02/10, 15:53] Akash: https://youtu.be/G-ZMQi63PZA [02/10, 15:53] Akash: https://youtu.be/ul4PguzpCOY [02/10, 15:53] Akash: https://youtu.be/wwhT48edwgQ [02/10, 15:53] Akash: https://youtu.be/9TiXR5wwqPs [02/10, 15:53] Akash: https://youtu.be/1Uy-3l28N1I [02/10, 15:53] Akash: https://youtu.be/-3sW5UCarRE [02/10, 15:53] Akash: https://youtu.be/_Xqfc9rOlvI [02/10, 15:53] Akash: https://youtu.be/PHs7x08PgKQ [02/10, 15:53] Akash: https://youtu.be/Pdp8djigJG8 [02/10, 15:53] Akash: https://youtu.be/7W2-Q0gjTVk [02/10, 15:53] Akash: https://youtu.be/clk6kNBArUs [02/10, 15:53] Akash: https://youtu.be/2hUUaG4o3DA [02/10, 15:53] Akash: https://youtu.be/JHxU4DCjXV0 [02/10, 15:53] Akash: https://youtu.be/d9L-au66Zmw

[03/10, 5:57 PM] Aakash: https://youtu.be/zXPs3HtJjSk

[03/10, 5:58 PM] Aakash: https://youtu.be/q9XdDViKXE4

[03/10, 5:58 PM] Aakash: https://youtu.be/ib1j8B-rz6k

[03/10, 5:58 PM] Aakash: https://youtu.be/t42XCAChUN8

[03/10, 5:59 PM] Aakash: https://youtu.be/jTageuhPfAM

[03/10, 5:59 PM] Aakash: https://youtu.be/Y7g8vWv11Vk

[03/10, 5:59 PM] Aakash: https://youtu.be/JENOhSXzi2U

[03/10, 6:00 PM] Aakash: https://youtu.be/yl_YoF7W4nQ

[03/10, 6:00 PM] Aakash: https://youtu.be/bDg1u6sZ1Aw

[03/10, 6:00 PM] Aakash: https://youtu.be/hBekKtV8Hr0

[03/10, 6:01 PM] Aakash: https://youtu.be/hI91Sb50OhI

[03/10, 6:01 PM] Aakash: https://youtu.be/1-CJpgofhCs

[03/10, 6:01 PM] Aakash: https://youtu.be/hJdoMKYjQDc

[03/10, 6:01 PM] Aakash: https://youtu.be/DgmP2puTXNA

[03/10, 6:02 PM] Aakash: https://youtu.be/KHzYMGNEKmA

[03/10, 6:02 PM] Aakash: https://youtu.be/FNRHSq58vpk

[03/10, 6:02 PM] Aakash: https://youtu.be/xFY9hGicTRM

[03/10, 6:03 PM] Aakash: https://youtu.be/7hv67zTj5sw

[03/10, 6:03 PM] Aakash: https://youtu.be/pesssXLkBsQ

[03/10, 6:03 PM] Aakash: https://youtu.be/_GcG4FuB-F8

[03/10, 6:03 PM] Aakash: https://youtu.be/mAcJvUeKoDY

[03/10, 6:03 PM] Aakash: https://youtu.be/brbyNmcJtII

[03/10, 6:03 PM] Aakash: https://youtu.be/YEbBB3gD_Pk

[03/10, 6:04 PM] Aakash: https://youtu.be/5i78mmbwwIA

[03/10, 6:04 PM] Aakash: https://youtu.be/45AOSKa9O08

Saturday, September 26, 2020

ADVANCE FORMULE OF GOOGLE SHEET

'=ARRAYFORMULA(if(Row(A:A)=1,"Duplicate Check",if(C:C="","",if(countif(C:C,C:C)>1,"Duplicate",""))))

=ARRAYFORMULA(if(Row(A:A)=1,"Check for Duplicates",If(B:B="","",if(countif(B:B,B:B)>1,"Duplicate",iferror(if(match(B:B,blist,0),"Bounced","NA"))))))

=ARRAYFORMULA(if(Row(A:A)=1,"Send NL #",if(C:C="","",VLOOKUP(C:C,schedule,3,false))))

=ARRAYFORMULA(if(Row(A:A)=1,"Sched Date",if(C:C="","",VLOOKUP(C:C,schedule,5,false))))

="Pending to Sched: "&counta(B3:B)-counta(C3:C)

=ARRAYFORMULA(if(Row(A:A)=1,"Send Tmpl #",if(C:C="","",if(D:D="","NA",if(D:D=0,0,if(VLOOKUP(D:D,scheduled,3,false)="","NA",VLOOKUP(D:D,scheduled,3,false)))))))

=if(E9=today(),match(E9,F9:BA9,0),"")

'=if(OR(A3="",sum(F3:BA3)=0),"", iferror(min(filter(F3:BA3,F3:BA3>=today()))))

=if(P149="","",image(concatenate("http://drive.google.com/uc?export=view&id=",index(split(P149,"="),0,2))))

=IF(T150,T150,IF(U150="yes",NOW(),""))

=IF(COUNTIF(E9:E19,E9)>1,E9,"")

=IF(VALUE(RIGHT(G13,1))=0,"",1)

=LARGE(J6:J12,{1,2,3})

=SMALL(J6:J12,{1,2,3})

Saturday, July 25, 2020

EXCEL ME FORMAT CELL KE ANDAR CUSTOM OPTION KA USE

EXCEL ME CUSTOM FORMATING KA USE KARNA AJ SIKHEGE TO YE OPTION CUSTOM FORMATING KA HAI JISKI SHORT CUT CTRL+1 HAI YE FORMAT CELL BOX OPEN HO GAYA

DOSTO CUSTOM OPTION KA USE EK ADVANCE TARAH SE KYA JATA HAI ISME HUM CONDITION DEKE USE KAR SAKTE HAI AIYE KUCH USE DEKH LETE HAI

IS TARAH SE CONDITION DEKE SHOW KARWA SAKTE HAI IS TARAH KA ISKA USE KYA JATA HAI

AUR YE RAHI COADING

[Red][<50]"PASS";[Black][<90]"FIRST";[Green]"FAILs"

AGAR AP CHAHO TO KISI BHI NUMBER KE BAD KOI UNIT YA PAHLE KOI UNIT AUTOMATIC LAGANA CHAHTE HO TO

EXAMPLE :- GENERAL "KG"

YE CODING DALNE PAR SABHI KE SATH KG AYEGA AGAR AP CHATE TOTAL NUMBER APKE HISAB SE HONE CHAHYE YA SHURU ME ZERO ANA CHAHIYE TO CUSTOM ME JAKAR UTNE ZERO TYPE KARKE OPEN KAR DO FR ZERO SHOW KAREGA IS TARAH SE

OK BYE DOSTO