Sunday 3 May 2015

excel examples


======================================================================

Microsoft Sites:



Excel, Word, Powerpoint course Index:

http://office.microsoft.com/en-in/training/results.aspx?qu=excel%20training&ex=4&page=2&queryid=3a38f69d-9b0e-421c-a387-0b22d549c6c1


Excel shortcuts:(This is very informative)

http://office.microsoft.com/en-in/excel-help/introduction-0-52-RZ102673162.aspx?CTT=1&section=2

http://office.microsoft.com/en-in/excel-help/excel-2010-keyboard-shortcuts-i-ctrl-key-shortcuts-RZ102673162.aspx?section=5



Know Excel 2007

http://office.microsoft.com/en-in/training/get-to-know-excel-2007-create-your-first-workbook-RZ010076674.aspx?CTT=1



Excel link for learning basic formulas with examples like vlookup etc.,: 

http://office.microsoft.com/en-in/excel-help/examples-of-commonly-used-formulas-HP005200127.aspx

http://www.baycongroup.com/el0.htm



Some Basic Macro examples like macro for deleting duplicate rows-- writing macros for uppercase, lowercase text etc.,

http://support.microsoft.com/search/default.aspx?query=macros+in+excel+examples&catalog=LCID%3D1033&mode=r


Normal Excel blogs for excel tips:

http://spreadsheetpage.com/index.php/site/tips

http://spreadsheets.about.com/od/excelformulas/u/advanced_topics_user_path.htm


Simple Macros

http://msdn.microsoft.com/en-us/library/office/ee264224(v=office.12).aspx - - Good one

http://www.excelvbamacros.com/



VBA Examples:

http://msdn.microsoft.com/en-us/office/hh360994.aspx

http://msdn.microsoft.com/en-us/library/ee814737.aspx -- Very good

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

VBA Basics - http://www.datapigtechnologies.com/ExcelMain.htm


Excellent! But few examples

http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=315

http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=302

http://www.your-save-time-and-improve-quality-technologies-online-resource.com/free-vba-tutorials.html

VBA Tutorial: http://www.excelfunctions.net/Excel-VBA-Tutorial.html

http://quickvba.blogspot.in/

http://www.excelvbamacros.com/p/contact-us.html

http://excelvbatutor.com/vba_chp7.htm


Other sites:

http://www.internet4classrooms.com/technology_tutorials/advanced_excel_topics_charts_technology_tutorials.htm

http://www.excelforum.com/excel-general/

http://spreadsheetpage.com/index.php/tips

http://excelpoweruser.wordpress.com/2012/11/06/comment-formatting/




Practicing with data bases / Examples can download data

http://office.microsoft.com/en-in/templates/desktop-student-database-TC001225355.aspx

http://office.microsoft.com/en-in/templates/?CTT=97



Yahoo answers links for macros and vba basic examples


http://answers.yahoo.com/question/index?qid=20080314122402AA5Xkbg


VBA Access

http://www.functionx.com/vbaccess/index.htm

http://www.functionx.com/access/applications/ceilinn.htm


==============================================


Other Examples:


1. Index, Match
2.Max, Offset



Data Validation use list column for country, region, city each depending on other like country india, if you select india then in the next column it should display states, you select one state say andhra pradesh, then in the third column you should be able to select district all these column lists are interdependent on each other.

http://www.contextures.com/xldataval02.html



ABCDEFGH
1color\modelModel1Model2Model3Model4Arguments
2Brown5432modelcolor
3Red0289Model2blue
4Green10151720
5Blue891011
6Rainbow184080
7
8=MATCH(H3,A2:A6,0)
9=MATCH(G3,B1:E1,0)
10=INDEX(A1:E6,(MATCH(H3,A2:A6,0)+1),(MATCH(G3,B1:E1,0)+1))
11=INDEX(A1:E6,5,3)    Row=5, col=3 equivalent to above
12=INDEX(A1:E6,MATCH("Blue",A1:A6,0),MATCH("Model2",A1:E1,0))     equivalent to above


Source: http://dmcritchie.mvps.org/excel/vlookup.htm



A
BCDE
1Color NameTint FormulaCost
28422 HampesteadB1 C4 F1$12.25
38427 Wishing StarM2 T8$ 6.35
48433 AshfordC7 F12 S8$ 8.75
58449 ModernistI6 S5 T4$ 9.25
68460 Bridal WreathAXN1 D12 E6$ 9.45
7Most Expensive:$12.258422 Hampestead
8
9CELLFormula
10C7=MAX(C2:C6)
11D7=OFFSET(A1,MATCH(C7,C2:C6,0),0)
12
13you can rewrite formulas as
14C7=MAX(C$2:OFFSET(C7,-1,0))
15D7=OFFSET($A$1,MATCH(C7,C$2:OFFSET(C7,-1,0),0),0)


Source: http://dmcritchie.mvps.org/excel/vlookup.htm


ABCDEFGH
1color\modelModel1Model2Model3Model4Arguments
2Brown5432modelcolor
3Red0289Model2blue
4Green10151720
5Blue891011
6Rainbow184080
7
8=MATCH(H3,A2:A6,0)
9=MATCH(G3,B1:E1,0)
10=INDEX(A1:E6,(MATCH(H3,A2:A6,0)+1),(MATCH(G3,B1:E1,0)+1))
11=INDEX(A1:E6,5,3)    Row=5, col=3 equivalent to above
12=INDEX(A1:E6,MATCH("Blue",A1:A6,0),MATCH("Model2",A1:E1,0))     equivalent to above




ABCDE
1Cat1SubCat1Data1Data2Data3
21151.24.56
31182.268.2
41223.17.19
5215356
62183.15.16.1
72223.25.46.2
8315444
9318555
10322666




=INDEX(C2:C10,MATCH(1,(A2:A10=G1)*(B2:B10=H1),0))
array entered with ctrl + shift & enter, assuming we are retrieving from column C, where G1 holds one lookup and H1 another.. Or hardcoded assume we want 3 from A and 15 from B


=INDEX(C2:C10,MATCH(1,(A2:A10=3)*(B2:B10=15),0))
would return 4

To find two different values:





ABCDE
1Book IdLocationDate InDate Out
223102/12/200104/22/2001
345504/17/200104/19/2001Location Mismatch
457603/18/200003/19/2000
559705/12/2001

ABCD
1Book IdLocationDate Purchased
223102/12/2000
345204/17/2001Location Mismatch
456504/20/2000Missing ID 56
557603/18/1999
659705/12/2000

Formula in D2 of Sheet M.Set1:  (use fill-handle to fill down)
=IF(ISERROR(VLOOKUP(A2,M.Set2!$A$2:$C$200,2,FALSE)),"Missing ID " & A2,IF(VLOOKUP(A2,M.Set2!$A$2:$C$200,2,FALSE)<> B2,"Location Mismatch",""))
Formula in E2 of Sheet M.Set2:  (same as previous formula just for a different sheet)
=IF(ISERROR(VLOOKUP(A2,M.Set1!$A$2:$C$200,2,FALSE)),"Missing ID " &A2,IF(VLOOKUP(A2,M.Set1!$A$2:$C$200,2,FALSE)<>B2,"Location Mismatch",""))


Unless you modify your data structure, VLOOKUP will not work as No1 and 
Patrick have indicated. 
To maintain the current structure, use INDEX(MATCH()). 
For example, to use name in SheetA!B1 as the look_up value for the
inspection of data in range SheetB!B1:B10 and return the associated value
from SheetB!A1:A10, use in SheetA the formula
=INDEX(SheetB!A1:A10,MATCH(SheetA!B1,SheetB!B1:B10,0)) 



ABCDEFGHI
1Plant-NameProd. Name  Jan Feb   March   April
2Plant-A    Prod A      512822Given:
3Plant-A    Prod B      6151518PlantPlant-A
4Plant-A    Prod C      8664245Prod.Prod B
5Plant-B    Prod A      2451216MonthMarch
6Plant-B    Prod B      422645
7Plant-B    Prod C      615252Find value(see formula)

Bob Ulmas, solved this problem 2001-05-30 in worksheet.functions as follows:If “Plant Name” is in cell A2, then this formula will work
Array-enter:
    =INDEX(data,MATCH(A10&A11,A3:A8&B3:B8,0),MATCH(A12,2:2,0))
Where A10 contains variable plant (Plant A) and A11 contains variable
product (Prod B) and A12 contains the variable month (March)
array-enter is Ctrl/shift/enter


A
BCDE
3Hidden
4INVOICE NOINVOICE NOMANIFEST NOSKUSum of INVOICED QTY
550145014100332518003010035
65014100342518003009049
75014100352510041735550
85014100362518001134551
95014100372510041734140
10501410038251004173414
115014251004173551
125014251800113451
1350155015100382518001134540
145015100392518001134641
155015100402518001134742
165015100412518001134843
175015100422518001134944
185015100432518001135045
195015100442518001135146
205015100452518001135247
2150151004625180011353
22
23
24




Spreadsheet Formulas
CellFormula
A5=IF(B5="",A4,B5)
A6=IF(D6="","",IF(B6="",A5,B6))
A23=IF(D23="","",IF(B23="",A22,B23))



=SUM(SUM(OFFSET(A1,SMALL(IF(ISNUMBER(A2:A100),ROW(A2:A100)),{1,2,3})-1,)))



Recall, array formulas are entered by simultaneously pressing the Ctrl+Shift+Enter keys, not just Enter. The curly braces are not entered by you; Excel places them automatically when the array formula is properly applied.


Source: http://www.atlaspm.com/toms-tutorials-for-excel/toms-tutorials-for-excel-summing-the-first-nth-numbers-in-a-mixed-list/

Pivot table - Good example

http://www.pivot-table.com/




Removing Duplicate Rows in one column using Macros: 






Sub DelDups_OneList()
Dim iListCount As Integer
Dim iCtr As Integer

' Turn off screen updating to speed up macro.
Application.ScreenUpdating = False

' Get count of records to search through.
iListCount = Sheets("Sheet1").Range("A1:A100").Rows.Count
Sheets("Sheet1").Range("A1").Select
' Loop until end of records.
Do Until ActiveCell = ""
   ' Loop through records.
   For iCtr = 1 To iListCount
      ' Don't compare against yourself.
      ' To specify a different column, change 1 to the column number.
      If ActiveCell.Row <> Sheets("Sheet1").Cells(iCtr, 1).Row Then
         ' Do comparison of next record.
         If ActiveCell.Value = Sheets("Sheet1").Cells(iCtr, 1).Value Then
            ' If match is true then delete row.
            Sheets("Sheet1").Cells(iCtr, 1).Delete xlShiftUp
               ' Increment counter to account for deleted row.
               iCtr = iCtr + 1
         End If
      End If
   Next iCtr
   ' Go to next record.
   ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
    


Removing Duplicate Rows in two columns using macros

Sample 2: Compare two lists and delete duplicate items

The following sample macro compares one (master) list against another list, and deletes duplicate items in the second list that are also in the master list. The first list is on Sheet1 in the range A1:A10. The second list is on Sheet2 in the range A1:A100. To use the macro, select either sheet, and then run the macro. 

Sub DelDups_TwoLists()
Dim iListCount As Integer
Dim iCtr As Integer

' Turn off screen updating to speed up macro.
Application.ScreenUpdating = False

' Get count of records to search through (list that will be deleted).
iListCount = Sheets("sheet2").Range("A1:A100").Rows.Count

' Loop through the "master" list.
For Each x In Sheets("Sheet1").Range("A1:A10")
   ' Loop through all records in the second list.
   For iCtr = 1 To iListCount
      ' Do comparison of next record.
      ' To specify a different column, change 1 to the column number.
      If x.Value = Sheets("Sheet2").Cells(iCtr, 1).Value Then
         ' If match is true then delete row.
         Sheets("Sheet2").Cells(iCtr, 1).Delete xlShiftUp
         ' Increment counter to account for deleted row.
         iCtr = iCtr + 1
      End If
   Next iCtr
Next
Application.ScreenUpdating = True
MsgBox "Done!"
End


good site:

Tom ultris site:

http://www.atlaspm.com/?s=row&x=0&y=0