vicber
Board Regular
- Joined
- May 21, 2004
- Messages
- 91
Good day all,
I have this :
Dim R As Integer, C As Integer
With Spreadsheet1
For R = 1 To 30
For C = 1 To 10
.Cells(R, C).Value = Worksheets("PendingNO").Cells(R, C).Text
.Cells(1, C).Font.Bold = True ' Bold row 1
.Cells.AutoFitColumns ' obvious
.Cells.HAlignment = 2 ' center text in all cells
.Cells(1, 1).Select
Next C
Next R
@ the UserForm_Initialize sub
It does work well, but I want now to get spreadsheet1.[E1:I1] merged
I tried
Me.Spreadsheet1.Range("E1:I1").Select
Selection.Merge
I tried to
Dim SPM as Range
set SPM = [E1:I1] (as well as Me.Spreadsheet1. etc...)
SPM.Select
Selection.Merge
I tried
.cells(1,[6:10]).Select
Selection.Merge
no way!!!!!
I tried to record a macro to capture the steps generated with the PropertyToolBox (where we can merge a selection in the spreadsheet),but it
does not capture it
I'm lost here! can anyone help?
Thanks
Bernard
I have this :
Dim R As Integer, C As Integer
With Spreadsheet1
For R = 1 To 30
For C = 1 To 10
.Cells(R, C).Value = Worksheets("PendingNO").Cells(R, C).Text
.Cells(1, C).Font.Bold = True ' Bold row 1
.Cells.AutoFitColumns ' obvious
.Cells.HAlignment = 2 ' center text in all cells
.Cells(1, 1).Select
Next C
Next R
@ the UserForm_Initialize sub
It does work well, but I want now to get spreadsheet1.[E1:I1] merged
I tried
Me.Spreadsheet1.Range("E1:I1").Select
Selection.Merge
I tried to
Dim SPM as Range
set SPM = [E1:I1] (as well as Me.Spreadsheet1. etc...)
SPM.Select
Selection.Merge
I tried
.cells(1,[6:10]).Select
Selection.Merge
no way!!!!!
I tried to record a macro to capture the steps generated with the PropertyToolBox (where we can merge a selection in the spreadsheet),but it
does not capture it
I'm lost here! can anyone help?
Thanks
Bernard