ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   screen updating file open (https://www.excelbanter.com/excel-programming/416064-screen-updating-file-open.html)

BOSS
screen updating file open
 
I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

Orion Cochrane
screen updating file open
 
From what I saw, I did not see an Application.ScreenUpdating = True line just
above the End Sub line. You have to re-enable the updating to update the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

BOSS
screen updating file open
 
Even if i put the screen updating true, still it does not get disabled. I can
see the file getting opned and macro working over it. It should just does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True line just
above the End Sub line. You have to re-enable the updating to update the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

Orion Cochrane
screen updating file open
 
What version of Excel are you running? I run on 2003.

"Boss" wrote:

Even if i put the screen updating true, still it does not get disabled. I can
see the file getting opned and macro working over it. It should just does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True line just
above the End Sub line. You have to re-enable the updating to update the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

BOSS
screen updating file open
 
I am running in 2003

Thanks!
Boss

"Orion Cochrane" wrote:

What version of Excel are you running? I run on 2003.

"Boss" wrote:

Even if i put the screen updating true, still it does not get disabled. I can
see the file getting opned and macro working over it. It should just does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True line just
above the End Sub line. You have to re-enable the updating to update the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

Orion Cochrane
screen updating file open
 
When you tried to turn screen updating on, where did you insert that line?

"Boss" wrote:

I am running in 2003

Thanks!
Boss

"Orion Cochrane" wrote:

What version of Excel are you running? I run on 2003.

"Boss" wrote:

Even if i put the screen updating true, still it does not get disabled. I can
see the file getting opned and macro working over it. It should just does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True line just
above the End Sub line. You have to re-enable the updating to update the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

BOSS
screen updating file open
 
In the end, just before end sub..

Thanks!
Boss

"Orion Cochrane" wrote:

When you tried to turn screen updating on, where did you insert that line?

"Boss" wrote:

I am running in 2003

Thanks!
Boss

"Orion Cochrane" wrote:

What version of Excel are you running? I run on 2003.

"Boss" wrote:

Even if i put the screen updating true, still it does not get disabled. I can
see the file getting opned and macro working over it. It should just does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True line just
above the End Sub line. You have to re-enable the updating to update the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp & "\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value = spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value = fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub

Gary Keramidas
screen updating file open
 
i've seen some thing's turn it back on inadvertently. just add the line in
different places to see where it's getting turned on. for example, add it he

.Execute
Application.ScreenUpdating = False
if it still doesn't work, add it farther down in the code until it stops.


--


Gary


"Boss" wrote in message
...
In the end, just before end sub..

Thanks!
Boss

"Orion Cochrane" wrote:

When you tried to turn screen updating on, where did you insert that line?

"Boss" wrote:

I am running in 2003

Thanks!
Boss

"Orion Cochrane" wrote:

What version of Excel are you running? I run on 2003.

"Boss" wrote:

Even if i put the screen updating true, still it does not get disabled.
I can
see the file getting opned and macro working over it. It should just
does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True
line just
above the End Sub line. You have to re-enable the updating to update
the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp &
"\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value =
spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value =
fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found
file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" &
i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" &
i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash
Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash
Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro,
co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash
Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub



Orion Cochrane
screen updating file open
 
I agree. I have written code where I needed to turn off screen updating at
another point in my macro other than making it the first line of code. I
should have caught that. Good catch, Garry.

"Gary Keramidas" wrote:

i've seen some thing's turn it back on inadvertently. just add the line in
different places to see where it's getting turned on. for example, add it he

.Execute
Application.ScreenUpdating = False
if it still doesn't work, add it farther down in the code until it stops.


--


Gary


"Boss" wrote in message
...
In the end, just before end sub..

Thanks!
Boss

"Orion Cochrane" wrote:

When you tried to turn screen updating on, where did you insert that line?

"Boss" wrote:

I am running in 2003

Thanks!
Boss

"Orion Cochrane" wrote:

What version of Excel are you running? I run on 2003.

"Boss" wrote:

Even if i put the screen updating true, still it does not get disabled.
I can
see the file getting opned and macro working over it. It should just
does not
show any processing.
Please help
Thanks!


"Orion Cochrane" wrote:

From what I saw, I did not see an Application.ScreenUpdating = True
line just
above the End Sub line. You have to re-enable the updating to update
the
values.

"Boss" wrote:

I will pull my hairs off if it does not solve..

screenupdating not getting disabled. pleas ehelp




Sub Main_Steady()

Dim sfile As String, spath As String
Dim intflfound As Integer
Dim fundgrp As String
Application.ScreenUpdating = False
sfile = "Steady"

i = 6

For sht = 55 To Sheets.Count 'sheets count

fundgrp = Sheets(sht).Name

spath = "G:\US_IS\Cash_Project\Metrics\Year 2008\" & fundgrp &
"\New"

With Application.FileSearch
.NewSearch
.LookIn = spath
.Filename = sfile
.SearchSubFolders = True
.MatchTextExactly = False
'.MatchAllWordForms = True
.Execute

If .FoundFiles.Count = 0 Then

ThisWorkbook.Sheets("Reports").Range("b" & i).Value =
spath
ThisWorkbook.Sheets("Reports").Range("a" & i).Value =
fundgrp

i = i + 1

Else

For intflfound = 1 To .FoundFiles.Count ' found
file



Workbooks.Open Filename:=(.FoundFiles(intflfound)),
UpdateLinks:=0

x = ActiveWorkbook.Name
Sheets("Cash Availability").Activate

If Run("'" & ActiveWorkbook.Name &
"'!Cash_Availability.cash_availability") Then

ThisWorkbook.Sheets("Reports").Range("b" &
i).Value
= spath
ThisWorkbook.Sheets("Reports").Range("a" &
i).Value
= fundgrp

i = i + 1

Else

For co = 2 To 24 'for all count
For ro = 6 To 28 Step 2 'for all count

On Error Resume Next

ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash
Availability").Cells(ro, co).Value

Next 'for all count

Next 'for all count


For ro = 11 To 29 Step 6 'quater count
For co = 2 To 24 'quarter count


ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash
Availability").Cells(ro, co).Value


Next 'quarter count
Next 'quarter count


For ro = 31 To 31 'year count
For co = 2 To 24 'year count

ThisWorkbook.Sheets(fundgrp).Cells(ro,
co).Value =
ThisWorkbook.Sheets(fundgrp).Cells(ro, co).Value + _
ActiveWorkbook.Sheets("Cash
Availability").Cells(ro,
co).Value

Next 'yr count
Next 'yr count


End If

Workbooks(x).Close SaveChanges = "No"




Next
End If
End With


Next

Sheets("reports").Activate

End Sub





All times are GMT +1. The time now is 09:58 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com