November 19, 2008 03:17am pst

1. zorvek 2,827,429
2. rorya 2,224,701
3. saurabh726 2,071,159
4. byundt 960,600
5. chris_bot... 927,392
6. nutsch 687,343
7. patrickab 536,897
8. brettdj 516,730
9. matthews... 479,634
10. webtubbs 429,603
11. jeverist 411,038
12. ahammar 343,641
13. spattewar 330,928
14. jpaulino 281,347
15. RobSamp... 279,314
16. Psychotec 269,350
17. irudyk 229,501
18. epaclm 224,910
19. dj88 216,941
20. WJReid 194,934
21. weellio 153,019
22. Merch_Ops 142,013
23. GrahamSkan 135,635
24. StellanRo... 129,668
25. pkhari 123,549

1. zorvek 10,131,920
2. byundt 7,703,689
3. rorya 5,919,432
4. matthews... 3,042,762
5. jeverist 2,821,307
6. patrickab 2,292,460
7. saurabh726 2,164,738
8. roos01 1,923,578
9. brettdj 1,559,306
10. mvidas 1,529,753
11. webtubbs 1,525,995
12. fanpages 1,236,922
13. chris_bot... 1,116,898
14. MalicUK 1,060,396
15. nutsch 687,343
16. mgh_mgh... 649,110
17. ahammar 643,774
18. LoNeRaV... 602,049
19. ture 572,551
20. spattewar 539,877
21. R_Rajesh 468,975
22. jpaulino 394,246
23. david251 378,578
24. RobSamp... 377,863
25. gtgloner 350,284

07.02.2008 at 05:55AM PDT, ID: 23533324

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.7

Selecting cells to merge

Asked by nfstrong in Microsoft Excel Spreadsheet Software, Microsoft Access Database

Tags: Microsoft, Access, 2003

I am using the TransferSpreadsheet command in Access to export to Excel. I'm then calling this function to add formatting. I'm having an issue on line 28 getting the correct cells selected to merge. I would like to select row 1 columns A to cnt. I'm not sure if Range is correct or if I should use Cells.
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:

           
           
             Public Function FncAVSA(strCliNum As String)
    'Set Excel object, recordset and querydef
    Dim objExcel As Excel.Application
    Set objExcel = New Excel.Application
    Dim cnt As Integer
    Dim cnt1 As Integer
    Dim cnt2 As Integer
    Dim y As Integer
    'Open AVSA Report
    objExcel.Workbooks.Open "C:\Data\AVSA.xls", , 1
    objExcel.Visible = True
    With objExcel
        .Range("A1").ClearContents
        .Range("B1").ClearContents
        .Range("C1").Value = "AQR"
        .Range("E1").Value = "BQR"
        .Range("G1").Value = "CQR"
        .Columns("O:O").Delete
        .Range("A1").Select
        .Selection.EntireRow.Insert
        .Selection.EntireRow.Insert
        .Range("A4").Select
        .Selection.EntireRow.Insert
        .Range("A5").Select
        cnt = .Range(Selection, Selection.End(xlToRight)).Column.Count
        'Debug.Print cnt
        
        .Range("A1:" cnt & "1").Select
        .Selection.Merge
        .Range("A1").Value = "Availability Summary"
        .Range("B1", cnt & "2").Select
        .Selection.Merge
        .Range("B1").Value = "(in thousands)"
        cnt1 = (cnt / 2) - 3
        .Range("C1:H1").Select
        .Selection.Copy
        .Range(cnt1 & "3").Select
        .Selection.PasteSpecial
        .Range("A5").Value = "Date"
        .Range("B5").Value = "Beginning"
        .Range("B6").Value = "GrossAR"
        .Range("C5").Value = "Cash"
        .Range("C6").Value = "Advanced"
        .Range("D5").Value = "Interest"
        .Range("D6").Value = "Charges"
        .Range("E5").Value = "Insurance"
        .Range("E6").Value = "Charges"
        .Range("F5").Value = "Discount"
        .Range("F6").Value = "Reserves"
        .Range("G5").Value = "Other"
        .Range("C4:G4").Select
        .Selection.Merge
        .Range("C4").Value = "VOLUME"
        .Range("H4:L4").Select
        .Selection.Merge
        .Range("H4").Value = "LIQUIDATION"
        .Range("H5:I5").Select
        .Selection.Merge
        .Range("H5").Value = "Cash Collections"
        .Range("H6").Value = "$"
        .Range("I6").Value = "%"
        .Range("J5").Value = "Int&Ins"
        .Range("J6").Value = "Refunds"
        .Range("L5").Value = "Other"
        .Range("N5").Value = "Ending"
        .Range("N6").Value = "GrossAR"
        .Range("O5:P5").Select
        .Selection.Merge
        .Range("O5").Value = "UnearnedsDiscountsDlrReservesEtc"
        .Range("O6").Value = "$"
        .Range("P6").Value = "%"
        .Range("Q5:R5").Select
        .Selection.Merge
        .Range("Q5").Value = "Ineligibles"
        .Range("Q6").Value = "$"
        .Range("R6").Value = "%"
                .Range("A7").Select
         cnt2 = .Range(Selection, Selection.End(xlDown)).Rows.Count
        For y = 8 To cnt2
            .Range("A" & y).Select
            .Rows("y:y").Select
            With Selection.Interior
                .ColorIndex = 15
                .Pattern = xlSolid
            End With
            y = y + 2
        Next
    End With
    With objExcel.ActiveSheet.PageSetup
        .CenterHeader = strCliNum
        .CenterFooter = "Wells Fargo Confidential"
        .RightFooter = "EXHIBIT E"
        .LeftMargin = .InchesToPoints(0.5)
        .RightMargin = .InchesToPoints(0.5)
        .TopMargin = .InchesToPoints(0.5)
        .BottomMargin = .InchesToPoints(0.5)
        .HeaderMargin = .InchesToPoints(0.5)
        .FooterMargin = .InchesToPoints(0.5)
        .PrintGridlines = True
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    
End Function

           
         

Keywords: Selecting cells to merge

	Title
1	Merged cells change height in Internet …
2	gridview Add Header Row/Merge Col…
3	Un Merge one cell
4	Merging Excel spreadsheets
5	Adobe Livecycle Designer 8: Merge …
6	Merging Cells

Loading Advertisement...

20081112-EE-VQP-42 / EE_QW_2_20070628

Selecting cells to merge

Asked by nfstrong in Microsoft Excel Spreadsheet Software, Microsoft Access Database

Tags: Microsoft, Access, 2003

About this solution