Skip to main content

Posts

Mail_ReceivedOrNot_Mailed मेल प्राप्त हुआ या नहीं मिला

  Mail_ReceivedOrNot_Mailed Formula Used:- ="\\pgarg\Pk_Sharing_Folder\OutlookSaveDSRAttachment\Delhi_Ncr\"&TEXT(Q1,"DD-MM-YYYY")&"\"&"*" =IFERROR(@INDEX(List_Delhi_NCR,ROW()-2),"") Sub SetReminderMail_Delhi_NCR() Dim Sdate As String Dim sWorkbook As Workbook Dim sWorkbook1 As String Dim sWorkbook2 As String Dim wb As Workbook Dim objApp As Object Dim ws As Worksheet Dim destWB As Workbook Dim Path As String Dim sh As Object                  Application.DisplayAlerts = False         Application.ScreenUpdating = False 'Delete all file from folder temp2         On Error Resume Next         Kill "E:\Pkgarg_Record\Pkgarg_Final_Cril_Report\temp\*.*"         On Error GoTo 0 'Process start         On Error Resume Next         Set wb = Workbooks("\Mail_ReceivedOrNot_Mailed\Mail_ReceivedOrNot_Mailed.xlsm")  ...

OUTLOOK PROCESS FOR MAIL DOWNLOAD WITH USERFORM USERFORM के साथ मेल के लिए डाउनलोड प्रक्रिया

OUTLOOK PROCESS FOR MAIL DOWNLOAD WITH USERFORM For ThisOutlookSession Sub Call_SaveAttachment_UserForm() SaveAttachment_UserForm.Show False End Sub For Reminder in  ThisOutlookSession Private Sub application_Reminder(ByVal Item As Object) If TypeName(Item) = "TaskItem" Then     Dim myItem As TaskItem     Set myItem = Item     If myItem.Subject = "run macro SaveAttachment_DelhiNcr" Then          Call SaveAttachment_DelhiNcr          Else             Call SaveAttachment_Outstation          End If     End If           End Sub 'Private Sub application_Reminder(ByVal Item As Object) 'If TypeName(Item) = "TaskItem" Then  '   Dim myItem As TaskItem   '  Set myItem = Item    ' If myItem.Subject = "run macro SaveAttachment_Outstation" Then          'Call Save...

Keyboard shortcuts for Google Sheets

Keyboard shortcuts for Google Sheets To see a list of keyboard shortcuts in Google Sheets, press Ctrl + / (Windows, Chrome OS) or ⌘ + / (Mac). To search the menus, press Alt + / (Windows, Chrome OS) or Option + / (Mac). Common actions Select column Ctrl + Space Select row Shift + Space Select all Ctrl + a Ctrl + Shift + Space Undo Ctrl + z Redo Ctrl + y Ctrl + Shift + z F4 Find Ctrl + f Find and replace Ctrl + h Fill range Ctrl + Enter Fill down Ctrl + d Fill right Ctrl + r Save (every change is saved automatically in Drive) Ctrl + s Open Ctrl + o Print Ctrl + p Copy Ctrl + c Cut Ctrl + x Paste Ctrl + v Paste values only Ctrl + Shift + v Show common keyboard shortcuts Ctrl + / Insert new sheet Shift + F11 Compact controls Ctrl + Shift + f Input tools on/off (available in spreadsheets in non-Latin languages) Ctrl + Shift + k Select input tools Ctrl + Alt + Shift + k Search the menus Alt + / Format cells ...

VBA Coding For Login Form लॉगिन फॉर्म के लिए VBA कोडिंग

VBA Coding For Login Form Need  TextBox Name = txtUserName TextBox Name = txtPassword Button Name = cmdSubmit Button Name = cmdClear Button Name = cmdExit & One Excel Sheet which have User ID & Password ----------------------------------------------------------------------- Private Sub cmdClear_Click() txtUserName.Value = "" txtPassword.Value = "" End Sub -------------------------------------------------------------------------- Private Sub cmdExit_Click() ActiveWorkbook.Close savechanges = True End End Sub ---------------------------------------------------------------------------- Private Sub cmdSubmit_Click() Worksheets("User").Range("A1").Value = txtUserName.Value Worksheets("User").Range("A2").Value = txtPassword.Value If (Worksheets("User").Range("C1").Value = True) And Worksheets("User").Range("C2").Value = True Then     MsgBo...

VBA Coding : For Sharing data by Email With Attachment using Excel data in other Place

' We have some data in Excel that we want to share by email with attachment हमारे पास Excel में कुछ डेटा हैं जिन्हें हम अनुलग्नक के साथ ईमेल द्वारा साझा करना चाहते हैं Sub For_GSTR3B_Report_Share() Dim sWorkbook1 As Workbook Dim wb As Workbook Dim objApp As Object  'For New Workbook Dim ws As Worksheet Dim savepath As String         'Delete all file from folder temp2         On Error Resume Next         Kill "C:\Users\PRAMOD.GARG\Desktop\pk_temp*.*"         On Error GoTo 0               On Error Resume Next         Set wb = Workbooks("Pkgarg_Control_Sheet_With_Gaurav_Coding.xlsm")         On Error GoTo 0         If Not wb Is Nothing Then         MsgBox "It's open"         wb.Activate         Worksheets("For_GSTR3B_Report_Share...

VBA Coding - For Making Consolidated Data sheet by using MultipleSheets data (MultipleSheets डेटा का उपयोग करके समेकित डाटा बनाने के लिए)

VBA Coding - For Making Consolidated Data sheet by using MultipleSheets data  (MultipleSheets डेटा का उपयोग करके समेकित डाटा बनाने के लिए) Sub For_Mastersheet_Update() Dim wb As Workbook Dim rng As Range Set wb = Workbooks("Pk_File.xlsm") wb.Activate Worksheets("Master").Activate Worksheets("Master").Cells.ClearContents Worksheets("XYZ2").Activate Worksheets("XYZ2").Range("a1").CurrentRegion.Select   ' For Select Current Region or All Data Worksheets("XYZ2").Range("a1").CurrentRegion.Copy     ' For Copy Select Data Worksheets("Master").Activate                         ' For activate sheet where you want to copy data Worksheets("Master").Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats   ' Paste Copy Data Selection.Columns.AutoFit          ...