SharePoint 2013 - Top 10 benefits

1. A new and simplified user experience.  Drag and drop content into document libraries, see live previews of your content, edit lists inline and create sites in a few simple clicks. SharePoint 2013 puts you in control.
2. A new way to work together. New social features let you share what you’re working on, ask questions and keep track of what your colleagues are doing. SharePoint 2013 puts social to work.
3. Grow your network. New search profile features help you connect with people across your organization and easily discover interests, past projects and documents they've worked on. SharePoint 2013 helps you find answers to questions and discover experts you never knew existed.
4. Store and sync your documents. Sky Drive Pro sync’s your content in SharePoint to your desktop, so if you’re working remotely or about to jump on a plane your docs are just a mouse click away. SharePoint 2013 keeps your content in sync from virtually anywhere.
5. Share your stuff.  A new simple way to share documents from Office or Sky Drive Pro with people inside and outside of your organization puts working together with anyone just a couple of clicks away. SharePoint 2013 helps you get stuff done.
6. Keep your teams in sync. Set up a new team site in minutes with wizards built into SharePoint to help you set permissions, track meeting notes and bring together all your team’s email and documents in one place. SharePoint 2013 makes teamwork easy.
7. Keep your projects on track. SharePoint helps you organize your projects and tasks giving you a view into upcoming deliverable across SharePoint, Outlook and Microsoft Project.  SharePoint 2013 helps you prioritize and get stuff done.
8. Find what you’re looking for.  SharePoint helps you quickly customize and narrow your search to deliver more relevant results, and also provides recommendations on people and documents to follow. SharePoint 2013 makes it easy to discover answers and take action.
9. Take SharePoint with you on the go. If you’re running from meetings or out of the office you can share documents, or update your activity feed from your mobile phone or tablet. SharePoint 2013 keeps you connected from virtually anywhere.
10. Do more with SharePoint apps. The SharePoint store is an online marketplace to discover and install apps that’s designed to work with SharePoint. If you need a specific business solution to help you get even more out of SharePoint the store is just a click away. 

Reference: https://readytogo.microsoft.com

Calculated Fields formulas used in SharePoint

Get Week of the year
=DATE(YEAR([Start Time]),MONTH([Start Time]),DAY([Start Time]))+0.5-WEEKDAY(DATE(YEAR([Start Time]),MONTH([Start Time]),DAY([Start Time])),2)+1

First day of the week for a given date:
=[Start Date]-WEEKDAY([Start Date])+1

Last day of the week for a given date:
=[End Date]+7-WEEKDAY([End Date])

First day of the month for a given date:
=DATEVALUE(“1/”&MONTH([Start Date])&”/”&YEAR([Start Date]))

Last day of the month for a given year (does not handle Feb 29). Result is in date format:
=DATEVALUE (CHOOSE(MONTH([End Date]),31,28,31,30,31,30,31,31,30,31,30,31) &”/” & MONTH([End Date])&”/”&YEAR([End Date]))
Day Name of the week : e.g Monday, Mon
=TEXT(WEEKDAY([Start Date]), “dddd”)
=TEXT(WEEKDAY([Start Date]), “ddd”)


The name of the month for a given date – numbered for sorting – e.g. 01. January:
=CHOOSE(MONTH([Date Created]),”01. January”, “02. February”, “03. March”, “04. April”, “05. May” , “06. June” , “07. July” , “08. August” , “09. September” , “10. October” , “11. November” , “12. December”)

Get Hours difference between two Date-Time :
=IF(NOT(ISBLANK([End Time])),([End Time]-[Start Time])*24,0)

Date Difference in days – Hours – Min format : e.g 4days 5hours 10min :
=YEAR(Today)-YEAR(Created)-IF(OR(MONTH(Today)
DAY(Today)
<=MONTH(Created),DAY(Today)
>=DAY(Created)),12,IF(AND(MONTH(Today)>MONTH(Created),DAY(Today)
“&Today-DATE(YEAR(Today),MONTH(Today)-IF(DAY(Today)

You can get Get more formulas from
http://office.microsoft.com/en-us/sharepointtechnology/HA011609471033.aspx

OR

http://msdn.microsoft.com/en-us/library/bb862071.aspx

Reference Page link:

Add a number of months to a date in Excel

Many of my friends have query about how to add / Subtract month in excel, Simple way of doing as below


=Date(Year(Start_Date) + add_year, Month(Start_Date) + add_month, Day(Start_Date) + add_day)

Calculate Time in Excel

The simple way to calculate the time is sum the two time inputs, shown in below example:

Use Excel built-in function SUM to calculate. Use same as you calculate any number:
Below mention three cells A1, A2 and A3 formatted as time (hh:mm)

A1 = 04:15
A2 = 10:15
A3 has the formula: =SUM(A1:A2)

then A3 will have the correct values of 14:30.

This is only useful until total is below 24 hours, but if your total times are greater than 24 hours then things get different, it will round the calculation and start from beginning and you won't get correct answer.

e.g.: If you have :
A1 = 15:30 and A2 = 10:15 then A3 will have 01:45 instead of 25:45. I.e. any hours beyond 24 hours are dropped.

To retain the hours beyond 24, you have two alternatives:

1. If you want to convert the hours beyond 24 into days then use this cell format : dd:hh:mm. The total in the previous example will be 01:01:45 (1 day , 1 hour and 45 minutes)

2. If you want to keep the hours beyond 24 as is then use this cell format :[h]:mm. The total in the previous example will be 25:45.

In both cases the formula will remain as it is. Only the cell format differs.

How To Get Last Row in Excel VBA code

There are many programmatic way to find last row of data input, but the simplest is....

Dim LastRow 
LastRow = ws.Range("A1").End(xlDown).Row

Creating a file name as a Date stamp in a batch File

Source Code line
Dir>C:\myFile_%date:/=%.log

Output File Name
myFile_05212014.log

VBA code for Outlook - Reply Mail With Attachment

May times it happens that you want to Reply some mail with attachment but when you click reply, it removes the attachment from your mail, and you need to attach it manually. Following function will help you to reply mail with attachment.

'''''''''''''''''''''' Reply Module ''''''''''''''''''''''''''

Sub ReplyWithAttachments()  ' For Only single Reply

    Dim rpl As Outlook.MailItem

    Dim itm As Object

     

    Set itm = GetCurrentItem()

    If Not itm Is Nothing Then

        Set rpl = itm.Reply

        CopyAttachments itm, rpl

        rpl.Display

    End If

     

    Set rpl = Nothing

    Set itm = Nothing

End Sub

 

Sub ReplyALLWithAttachments()   ' For Reply ALL

    Dim rpl As Outlook.MailItem

    Dim itm As Object

     

    Set itm = GetCurrentItem()

    If Not itm Is Nothing Then

        Set rpl = itm.ReplyAll

        CopyAttachments itm, rpl

        rpl.Display

    End If

     

    Set rpl = Nothing

    Set itm = Nothing

End Sub

Sub ReplyOnly()  ' For Only Reply without Body message

    Dim rpl As Outlook.MailItem

    Dim itm As Object

    Set itm = GetCurrentItem()

    If Not itm Is Nothing Then

        Set rpl = itm.Reply

        rpl.subject = itm.subject

        rpl.Display

'        rpl.HTMLBody = rpl.HTMLBody

    SendKeys "^f"

    SendKeys "From:"

    SendKeys "{Enter}"

    SendKeys "{Esc}"

    SendKeys "{Home}"

    SendKeys "^+{End}"

    SendKeys "{Del}"

    SendKeys "^{Home}"

    

    End If

     

    Set rpl = Nothing

    Set itm = Nothing

End Sub

Function GetCurrentItem() As Object ' Will Create object for the current selected One mail

    Dim objApp As Outlook.Application

         

    Set objApp = Application

    On Error Resume Next

    Select Case TypeName(objApp.ActiveWindow)

        Case "Explorer"

            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)

        Case "Inspector"

            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem

    End Select

     

    Set objApp = Nothing

End Function

 

Sub CopyAttachments(objSourceItem, objTargetItem)   ' Coping the Attachment if exist.

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder

   strPath = fldTemp.Path & "\"

   For Each objAtt In objSourceItem.Attachments

      strFile = strPath & objAtt.FileName

      objAtt.SaveAsFile strFile

      objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName

      fso.DeleteFile strFile

   Next

 

   Set fldTemp = Nothing

   Set fso = Nothing

End Sub

'''''''''''''''''''''' End of Reply Module '''''''''''''''''''''''''''''''''''''''''''

VBA code for Outlook - Forward Mail Without Attachment

May times it happens that you want to forward some mail without attachment that you received with attachments, and you need to delete manually. Following function will help you to remove the attachment while you send mail to someone.

Sub ForwardMailWithoutAttachment() 
 On Error GoTo ErrorHandler
    Dim obj As Object
    Dim msg As Outlook.MailItem
    Dim newMsg As Outlook.MailItem
    Dim subject As String
    Dim myattachments As Outlook.Attachments
    
     ' check for multiple selections
    If ActiveExplorer.Selection.Count > 1 Then
        MsgBox "please select one email only"
        GoTo ProgramExit
    End If
     
    Set obj = ActiveExplorer.Selection.Item(1)
    If Not obj Is Nothing Then
        If TypeName(obj) = "MailItem" Then
            Set msg = obj
            Set newMsg = msg.Forward
            subject = obj.subject ' Copy the selected Mail Subject
            If Len(subject) = 0 Then
                GoTo ProgramExit
            End If
            
            '########### To Remove the Attachment ##############
            Set myattachments = newMsg.Attachments
            While myattachments.Count > 0
                       myattachments.Remove 1
            Wend
            '###########################################
            With newMsg
                .subject = subject
                .Display
            End With
        Else
            MsgBox "Cannot Run this Macro. Invalid Selection of Mail."
            GoTo ProgramExit
        End If
    End If
ProgramExit:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit

End Sub

lotus formula to Extract One Value from Text List.

Extract 1 Value from Text List:
Normally when trying to extract a particular value from a text list, you would use Script and extract the value with the array(index), but there is a simple way to do this with formula language For this to work, you must know which value you wish to retrieve, ie.. what number the value is in the list. Use @Subset to get your desired results. This example uses a nested @Subset with another @Subset.

For example:
If the field you are wanting to extract the value from is, Rakesh, Sunny, Bhavin, Rajesh, Jathin, Kuti and you want to extract the value "Rajesh" from the list, use the following in another field:
Eg:
Here fieldname is Friends
@Subset(@Subset(Friends;4);-1)

This first gets the value of the first 4 entries in the list, then extracts the last value from that list giving you the desired result "Rajesh", since Rajesh is the 4th value in the 1st list, and the last in the second.

Find the position of text Value in Text List:

Here, you can use @Member(value ; list) lotus notes formula function. That determines the position of a value in a string list.

Eg:
position := @Member("Rajesh";Friends)

This formula will return no 4 to the "position" variable.

Refresh Lotus Notes Document with LotusScript

Will work for Refreshing the document.
Below script will (Open -> Edit - Save-> Close) the selected document from the view.

Sub Click(Source As Button)
Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument 
Dim ws As New NotesUIWorkspace 

Dim j As Integer

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
Set uidoc = ws.EditDocument(True,doc)
Call uidoc.Refresh
Call uidoc.Save 
Call uidoc.Close 
Next
End Sub

Find and Replace a Line Break Character in EXCEL

When you want to create a line break (line feed) in a cell, you press Alt + Enter, to start a new line. You can put one or more line breaks in a cell, to make the contents easier to read.

Find a Line Break
Line breaks are easy to add, but a little trickier to remove.

To find specific text in Excel, you can use Ctrl + F to open the Find and Replace dialog box. However, if you try to type Alt + Enter in the Find What box, you’ll just hear a beep from your computer. Excel won’t let you enter that shortcut.
Instead of using Alt + Enter in the Find What box, you can use a special shortcut -- Ctrl + J -- to enter a line break.
A line break is character 10 in the ASCII character set, and the Ctrl + J shortcut is the ASCII control code for character 10.

Find and Replace a Line Break
To replace a line break with a space character:

• Select the cells that you want to search
• On the keyboard, press Ctrl + H to open the Find and Replace dialog box, with the Replace tab active
• Click in the Find What box
• On the keyboard, press Ctrl + J to enter the line break character -- NOTE: Nothing will appear in the Find What box
• Press the Tab key on the keyboard, to move to the Replace With box
• Type a space character
• Click Find Next or Find All, to find the cells with line breaks.
• Click Replace or Replace All, to replace the line breaks with space characters.