why do I have to reopen my project to use excel?

[billy7978]

hi friends. I really have a serious problem. maybe it is easy for you but it is not for me.

I am leading excell with vb.
I have some merged cells. when I run the project it works. but if
I click button the second time it does not work. I see that the merged cells are unmerged. so I have to close my project and run again.

 

[Scott Huish]

Can you post your code and explain what exactly is not working?

 

[orbea_adam]

billy7978,
Welcome to Mr Excel. "leading"? Oh, learning...I have learned from others in this forum that using merged cells is not a good practice. Instead use: Center Across Selection.
Adam

 

[billy7978]

hepl please

Can you post your code and explain what exactly is not working?

command1_click

excell.Range(Cells(1, 1), Cells(1, 4)).Merge

excell.Range("A" & 1).Value = MDIForm1.Text24.Text excel.Columns
WrapText = True
end sub

when i run it for the first time it works. but again if i click the button it does not work so i have to reopen my project. when i reopen it , it again works good but only once.... then i have to close my project and open it again.

 

[orbea_adam]

hmm, I'm no bueno with VBA. HOTPEPPER, you there?

 

[Scott Huish]

Not sure how it is working the first time, you don't define excell anywhere.

Is MDIForm1 a regular userform? What is the reference to excel.Columns?

You are not using WrapText as a property for a range object. What range did you want WrapText set for?

 

[billy7978]

closing problem

Not sure how it is working the first time, you don't define excell anywhere.

Is MDIForm1 a regular userform? What is the reference to excel.Columns?

You are not using WrapText as a property for a range object. What range did you want WrapText set for?

Dim exl As Object
Dim xlWb As Object



command1_click
Set exl = CreateObject("Excel.Application")
exl.Visible = True


Set xlWb = excell.Workbooks.Add
Set exl = xlWb.Worksheets(1)

exl.Range(Cells(1, 1), Cells(1, 4)).Merge '....( a1 to a4)

exl.Range("A" & 1).Value = "a long adress there is no problem here"
'exl.Columns WrapText = True (it is not so important)
end sub

in this way it works good but just once . if i click second time the cells are unmerged. so i have to reopen my project. after reopening it works again. but again once
.

 

[Scott Huish]

Is this VB not VBA?

 

[billy7978]

Is this VB not VBA?

yes it is vb

 

[billy7978]

hmm, I'm no bueno with VBA. HOTPEPPER, you there?

it is vb not vba