Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > screen updating file open
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 123
Default 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
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 119
Default 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
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 123
Default 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
Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 119
Default 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
Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 123
Default 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
Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 119
Default 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
Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 123
Default 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
Reply With QuoteReply With Quote
  #8   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 2,494
Default 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


Reply With QuoteReply With Quote
  #9   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 119
Default 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



Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
why would a excel file sent with data open as grey screen Lynne Excel Discussion (Misc queries) 1 August 25th 08 01:15 PM
use hyperlink to open file as front screen Kerry Excel Discussion (Misc queries) 0 October 30th 07 04:28 AM
Print multiple files from File Open screen MarvInBoise Excel Programming 0 August 28th 07 02:26 PM
File Open dialog box is full-screen...???? Tiscali Excel Discussion (Misc queries) 3 May 11th 07 10:34 AM
Screen Updating on Open Workbook PaulZ Excel Programming 1 June 29th 06 08:13 AM


All times are GMT +1. The time now is 10:32 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement