Error
 

I have an error that comes up often for no aparent reason because I can go
back and do the command again and it works fine, anyway the error is as
follows:

Automation Error

The Object has disconnected from its clients

The above error causes the workbook to shutdown without any attempt to save
so I have lost many hours of work over the numerious times this error has
come about, so if anybody can tell me what is going on and how I can fix this
that would be great.

Error
 

What is the line causing the error?

Tim

"Jason Zischke" wrote in message
...
I have an error that comes up often for no aparent reason because I can go
back and do the command again and it works fine, anyway the error is as
follows:

Automation Error

The Object has disconnected from its clients

The above error causes the workbook to shutdown without any attempt to
save
so I have lost many hours of work over the numerious times this error has
come about, so if anybody can tell me what is going on and how I can fix
this
that would be great.

Error
 

Tim williams

It varies as to where it falls over and doesn't seem to be anything wrong
with the coding because i'd do the command again and works fine

"Tim Williams" wrote:

What is the line causing the error?

Tim

"Jason Zischke" wrote in message
...
I have an error that comes up often for no aparent reason because I can go
back and do the command again and it works fine, anyway the error is as
follows:

Automation Error

The Object has disconnected from its clients

The above error causes the workbook to shutdown without any attempt to
save
so I have lost many hours of work over the numerious times this error has
come about, so if anybody can tell me what is going on and how I can fix
this
that would be great.

Error
 

"Jason Zischke" wrote

It varies as to where it falls over and doesn't seem to be anything wrong
with the coding because i'd do the command again and works fine

So what does the code do? Does it automate a process?

Difficult to help without something to work with...

Tim


--
Tim Williams
Palo Alto, CA


"Jason Zischke" wrote in message
...
Tim williams

It varies as to where it falls over and doesn't seem to be anything wrong
with the coding because i'd do the command again and works fine

"Tim Williams" wrote:

What is the line causing the error?

Tim

"Jason Zischke" wrote in
message
...
I have an error that comes up often for no aparent reason because I can
go
back and do the command again and it works fine, anyway the error is
as
follows:

Automation Error

The Object has disconnected from its clients

The above error causes the workbook to shutdown without any attempt to
save
so I have lost many hours of work over the numerious times this error
has
come about, so if anybody can tell me what is going on and how I can
fix
this
that would be great.

Error
 

Tim Williams

The following is a copy of the code the last time it happened:

scalingheight = (Sheets("Accessories Calculations").Range("e2") + 120 +
Sheets("Variable Properties").Range("b12") + 120)
buildlength = (Sheets("Bay Calculator").Cells(2, 2) + Sheets("Variable
Properties").Cells(27, 2) + Sheets("Variable Properties").Cells(27, 4))

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''
Sheet19.Activate
'side elevation 1&2 scaling
hsScaling1 = (buildlength / Sheet19.Shapes("Rectangle 5").Width)
vsScaling1 = (scalingheight / Sheet19.Shapes("rectangle 5").Height)
If hsScaling1 vsScaling1 Then
scalingside = (hsScaling1 * 1.3)
Else
scalingside = (vsScaling1 * 1.3)
End I
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''

'-----------------------------------------------------------------------------------------------------------------
'''''''''''''''''''''END1''''''''''''''''''''''

Sheet19.Activate
scalingheight = (Sheets("Accessories Calculations").Range("e2") + 120 +
Sheets("Variable Properties").Range("b12") + 120)
buildwidth = Sheets("Variable Properties").Cells(11, 2).Value +
Sheets("Variable Properties").Cells(22, 2).Value + Sheets("Variable
Properties").Cells(22, 4).Value


'end scaling
heScaling = (buildwidth / Sheet19.Shapes("Rectangle 13").Width)
veScaling = (scalingheight / Sheet19.Shapes("rectangle 13").Height)

If heScaling veScaling Then
scalingend = (heScaling * 1.3)
Else
scalingend = (veScaling * 1.3)
End If

If scalingend scalingside Then
scaling = scalingend
Else
scaling = scalingside
End If

'Common heights & setting not to be scaled
gutterht = (120 / (buildlength * 0.0033))
bargewidth = (120 / (buildlength * 0.0033))
slabht = (120 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
windowsillht = (2100 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
gutterends = (120 / (buildlength * 0.0033))

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''

Length = (buildlength / scaling)
wallht = (Sheets("Variable Properties").Range("b12") / scaling)
walllgth = (Sheets("Bay Calculator").Cells(2, 2) / scaling)
rise = (Sheets("Accessories Calculations").Range("e2") / scaling)
totalheight = (rise + wallht + gutterht + slabht)
span = (Sheets("Variable Properties").Range("b11") / scaling)
totalwidth = (Sheets("Variable Properties").Cells(11, 2) + Sheets("Variable
Properties").Cells(22, 2) + Sheets("Variable Properties").Cells(22, 4))
apex = (Sheets("Accessories Calculations").Cells(168, 5) / scaling)
skillionlgth = (Sheets("variable properties").Cells(24, 2) / scaling)
sktoproofht = (Sheets("variable properties").Cells(21, 6) / scaling)
skbotroofht = (Sheets("variable properties").Cells(22, 6) / scaling)
skillionextensiontop = (Sheets("variable properties").Cells(22, 2) / scaling)
skillionextensionbot = (Sheets("variable properties").Cells(22, 4) / scaling)
baycrs = (Sheets("Bay Calculator").Cells(2, 2) / Sheets("variable
properties").Cells(14, 2) / scaling)
leftgable = Sheets("Variable Properties").Range("B27").Cells / scaling
rightgable = Sheets("Variable Properties").Range("D27").Cells / scaling

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '

'Common heights & setting not to be scaled
gutterht = (120 / (buildlength * 0.0033))
bargewidth = (120 / (buildlength * 0.0033))
slabht = (120 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
windowsillht = (2100 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
gutterends = (120 / (buildlength * 0.0033))

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''

'Elevation 1,2,3,4 & Floor plan settings

Sheet19.Activate

With ActiveSheet.Shapes("Rectangle 5")
pagetop = .Top
window1left = .Left
window1right = .Left + .Width
window1bot = .Top + .Height
window1lengthgap = ((.Width - Length) / 2)
window1heightgap = ((.Height - totalheight) / 2)
topgap = (.Height - (totalheight + (15 / scaling))) / 2
End With

With ActiveSheet.Shapes("Rectangle 12")
window2top = .Top
window2left = .Left
window2right = .Left + .Width
window2bot = .Top + .Height
window2lengthgap = ((.Width - Length) / 2)
window2heightgap = ((.Height - totalheight) / 2)
End With
If Sheets("Variable Properties").Range("D15").Cells = "Yes" Then
ActiveSheet.Shapes("post").Select
Selection.Copy
ActiveSheet.Paste
Selection.Name = "SkillionPost"
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Top = pagetop + window1heightgap + rise + gutterht
Selection.ShapeRange.Height = wallht
Selection.ShapeRange.Width = postwidth
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = window1left + window1lengthgap + Length -
postwidth
Selection.ShapeRange.ZOrder msoSendFront
End If

As soon it had got to "ActiveSheet.Paste" thats when it failed however my
program has done this bit of code countless of times before and still works
now it has been only just that one time that it has fallen over.

If you can help me that will be great.

Jason Zischke
"Tim Williams" wrote:

"Jason Zischke" wrote

It varies as to where it falls over and doesn't seem to be anything wrong
with the coding because i'd do the command again and works fine

So what does the code do? Does it automate a process?

Difficult to help without something to work with...

Tim


--
Tim Williams
Palo Alto, CA


"Jason Zischke" wrote in message
...
Tim williams

It varies as to where it falls over and doesn't seem to be anything wrong
with the coding because i'd do the command again and works fine

"Tim Williams" wrote:

What is the line causing the error?

Tim

"Jason Zischke" wrote in
message
...
I have an error that comes up often for no aparent reason because I can
go
back and do the command again and it works fine, anyway the error is
as
follows:

Automation Error

The Object has disconnected from its clients

The above error causes the workbook to shutdown without any attempt to
save
so I have lost many hours of work over the numerious times this error
has
come about, so if anybody can tell me what is going on and how I can
fix
this
that would be great.

Error
 

Jason,

I don't see any automation code in your procedure, so I don't see where the
error you got could have come from. Maybe there's something else going on
which is not related to your code. Do you have any add-ind loaded?

If you only saw the error one time then it's going to be difficult to track
down.

Tim

--
Tim Williams
Palo Alto, CA


"Jason Zischke" wrote in message
...
Tim Williams

The following is a copy of the code the last time it happened:

scalingheight = (Sheets("Accessories Calculations").Range("e2") + 120 +
Sheets("Variable Properties").Range("b12") + 120)
buildlength = (Sheets("Bay Calculator").Cells(2, 2) + Sheets("Variable
Properties").Cells(27, 2) + Sheets("Variable Properties").Cells(27, 4))


'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''''
Sheet19.Activate
'side elevation 1&2 scaling
hsScaling1 = (buildlength / Sheet19.Shapes("Rectangle 5").Width)
vsScaling1 = (scalingheight / Sheet19.Shapes("rectangle 5").Height)
If hsScaling1 vsScaling1 Then
scalingside = (hsScaling1 * 1.3)
Else
scalingside = (vsScaling1 * 1.3)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''


'---------------------------------------------------------------------------
--------------------------------------
'''''''''''''''''''''END1''''''''''''''''''''''

Sheet19.Activate
scalingheight = (Sheets("Accessories Calculations").Range("e2") + 120 +
Sheets("Variable Properties").Range("b12") + 120)
buildwidth = Sheets("Variable Properties").Cells(11, 2).Value +
Sheets("Variable Properties").Cells(22, 2).Value + Sheets("Variable
Properties").Cells(22, 4).Value


'end scaling
heScaling = (buildwidth / Sheet19.Shapes("Rectangle 13").Width)
veScaling = (scalingheight / Sheet19.Shapes("rectangle 13").Height)

If heScaling veScaling Then
scalingend = (heScaling * 1.3)
Else
scalingend = (veScaling * 1.3)
End If

If scalingend scalingside Then
scaling = scalingend
Else
scaling = scalingside
End If

'Common heights & setting not to be scaled
gutterht = (120 / (buildlength * 0.0033))
bargewidth = (120 / (buildlength * 0.0033))
slabht = (120 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
windowsillht = (2100 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
gutterends = (120 / (buildlength * 0.0033))


'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''''''''''''''''''''''''''

Length = (buildlength / scaling)
wallht = (Sheets("Variable Properties").Range("b12") / scaling)
walllgth = (Sheets("Bay Calculator").Cells(2, 2) / scaling)
rise = (Sheets("Accessories Calculations").Range("e2") / scaling)
totalheight = (rise + wallht + gutterht + slabht)
span = (Sheets("Variable Properties").Range("b11") / scaling)
totalwidth = (Sheets("Variable Properties").Cells(11, 2) +
Sheets("Variable
Properties").Cells(22, 2) + Sheets("Variable Properties").Cells(22, 4))
apex = (Sheets("Accessories Calculations").Cells(168, 5) / scaling)
skillionlgth = (Sheets("variable properties").Cells(24, 2) / scaling)
sktoproofht = (Sheets("variable properties").Cells(21, 6) / scaling)
skbotroofht = (Sheets("variable properties").Cells(22, 6) / scaling)
skillionextensiontop = (Sheets("variable properties").Cells(22, 2) /
scaling)
skillionextensionbot = (Sheets("variable properties").Cells(22, 4) /
scaling)
baycrs = (Sheets("Bay Calculator").Cells(2, 2) / Sheets("variable
properties").Cells(14, 2) / scaling)
leftgable = Sheets("Variable Properties").Range("B27").Cells / scaling
rightgable = Sheets("Variable Properties").Range("D27").Cells / scaling


'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''

'Common heights & setting not to be scaled
gutterht = (120 / (buildlength * 0.0033))
bargewidth = (120 / (buildlength * 0.0033))
slabht = (120 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
windowsillht = (2100 / (buildlength * 0.0033))
postwidth = (75 / (buildlength * 0.0033))
gutterends = (120 / (buildlength * 0.0033))


'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''''''''''''''''''''''''''

'Elevation 1,2,3,4 & Floor plan settings

Sheet19.Activate

With ActiveSheet.Shapes("Rectangle 5")
pagetop = .Top
window1left = .Left
window1right = .Left + .Width
window1bot = .Top + .Height
window1lengthgap = ((.Width - Length) / 2)
window1heightgap = ((.Height - totalheight) / 2)
topgap = (.Height - (totalheight + (15 / scaling))) / 2
End With

With ActiveSheet.Shapes("Rectangle 12")
window2top = .Top
window2left = .Left
window2right = .Left + .Width
window2bot = .Top + .Height
window2lengthgap = ((.Width - Length) / 2)
window2heightgap = ((.Height - totalheight) / 2)
End With
If Sheets("Variable Properties").Range("D15").Cells = "Yes" Then
ActiveSheet.Shapes("post").Select
Selection.Copy
ActiveSheet.Paste
Selection.Name = "SkillionPost"
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Top = pagetop + window1heightgap + rise + gutterht
Selection.ShapeRange.Height = wallht
Selection.ShapeRange.Width = postwidth
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = window1left + window1lengthgap + Length -
postwidth
Selection.ShapeRange.ZOrder msoSendFront
End If

As soon it had got to "ActiveSheet.Paste" thats when it failed however my
program has done this bit of code countless of times before and still
works
now it has been only just that one time that it has fallen over.

If you can help me that will be great.

Jason Zischke
"Tim Williams" wrote:

"Jason Zischke" wrote

It varies as to where it falls over and doesn't seem to be anything
wrong
with the coding because i'd do the command again and works fine

So what does the code do? Does it automate a process?

Difficult to help without something to work with...

Tim


--
Tim Williams
Palo Alto, CA


"Jason Zischke" wrote in
message
...
Tim williams

It varies as to where it falls over and doesn't seem to be anything
wrong
with the coding because i'd do the command again and works fine

"Tim Williams" wrote:

What is the line causing the error?

Tim

"Jason Zischke" wrote in
message
...
I have an error that comes up often for no aparent reason because I
can
go
back and do the command again and it works fine, anyway the error
is
as
follows:

Automation Error

The Object has disconnected from its clients

The above error causes the workbook to shutdown without any
attempt to
save
so I have lost many hours of work over the numerious times this
error
has
come about, so if anybody can tell me what is going on and how I
can
fix
this
that would be great.