Merge cells

[nnuswantari]

Please tell me sintax to merge cells with macro in excel. Thanx

 

[PHV]

Did you try the macro recorder ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GlennUK]

Hi nnuswantari,

I agree with PHV, but can I also ask why you want to merge cells? I have found that merged cells can create a lot of problems, and where appropriate now use Centre Across Selection instead.

Cheers, Glenn.

Beauty is in the eye of the beerholder.

 

[ThichTraXanh]

range("A1:E1").select
selection.mergecells = true

 

[PHV]

ThichTraXanh, why playing with Selection ?
Range("A1:E1").MergeCells = True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

ThichTraXanh,

It is rarely a good practice to use the Select or Activate methods. The property or method can, in most cases, be applied directly to an object, with much better performance results.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[nnuswantari]

Ok friends, thanx a lot for your solution.

 

[ThichTraXanh]

thanks guys, I didn't know that I can apply directly like that. Excel help shows with Selection. There is a weird thing that I try to understand why it happens that way, and only happen with sub not function.

Exam:
sub test(intX as integer, strY as string)
'do something
end sub

test 1, "this string"

It will give me a error like type mismatch, cann't pass byval...

Any idea???

 

[SkipVought]

Try then...

[b][red]
dim i as integer
i=1[/red][/b]
test [b][red]i[/red][/b], "this string"

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[fumei]

Sub test(intX As Integer, strY As String)
   'do something
MsgBox strY
End Sub

Sub Try()
test 1, "Yadda"
End Sub

works for me. Msgbox displays "Yadda".

Gerry

 

[ThichTraXanh]

If it happens again I'll post the code. Thanks